[Εκτύπωση] εκτυπωση τιμολογιου

[ChrisGT7]

Καλησπέρα Μιχάλη,

Δοκίμασε το συνημμένο αρχείο αν σε βοηθάει.

Επειδή δε γνωρίζω τη μορφή του αρχείου σου, ο κώδικας σίγουρα χρειάζεται τροποποίηση.

Πατώντας το κουμπί ΕΚΤΥΠΩΣΗ & ΑΠΟΘΗΚΕΥΣΗ, δημιουργείται ένα αντίγραφο του τρέχοντος τιμολογίου, αποθηκεύεται και εκτυπώνεται στον προεπιλεγμένο εκτυπωτή.

Το αρχείο αποθηκεύεται στο φάκελο που βρίσκεται το συνημμένο αρχείο και έχει τη μορφή: Αρ. τιμολογίου, Επωνυμία πελάτη, ηη.μμ.εε
Έχω βάλει και τον αριθμό του τιμολογίου για τη μοναδικότητα του αρχείου στο φάκελο, γιατί αν υπάρχει άλλο αρχείο με το ίδιο όνομα θα αντικατασταθεί με το νέο. Σε μια ημέρα ένας πελάτης μπορεί να έχει παραπάνω από ένα τιμολόγια.

[vellamos]

ευχαριστω πολυ, θα το δικιμασω και θα σου πω αν κανω καποια τροποποιηση

[vellamos]

Αρχική Δημοσίευση από ChrisGT7

Καλησπέρα Μιχάλη,

Δοκίμασε το συνημμένο αρχείο αν σε βοηθάει.

Επειδή δε γνωρίζω τη μορφή του αρχείου σου, ο κώδικας σίγουρα χρειάζεται τροποποίηση.

Πατώντας το κουμπί ΕΚΤΥΠΩΣΗ & ΑΠΟΘΗΚΕΥΣΗ, δημιουργείται ένα αντίγραφο του τρέχοντος τιμολογίου, αποθηκεύεται και εκτυπώνεται στον προεπιλεγμένο εκτυπωτή.

Το αρχείο αποθηκεύεται στο φάκελο που βρίσκεται το συνημμένο αρχείο και έχει τη μορφή: Αρ. τιμολογίου, Επωνυμία πελάτη, ηη.μμ.εε
Έχω βάλει και τον αριθμό του τιμολογίου για τη μοναδικότητα του αρχείου στο φάκελο, γιατί αν υπάρχει άλλο αρχείο με το ίδιο όνομα θα αντικατασταθεί με το νέο. Σε μια ημέρα ένας πελάτης μπορεί να έχει παραπάνω από ένα τιμολόγια.

εκανα τις αλλαγες και δουλευει αψογα. ΧΙΛΙΑ ΕΥΧΑΡΙΣΤΩ

[asterix]

Αρχική Δημοσίευση από ChrisGT7

Καλησπέρα Μιχάλη,

Δοκίμασε το συνημμένο αρχείο αν σε βοηθάει.

Επειδή δε γνωρίζω τη μορφή του αρχείου σου, ο κώδικας σίγουρα χρειάζεται τροποποίηση.

Πατώντας το κουμπί ΕΚΤΥΠΩΣΗ & ΑΠΟΘΗΚΕΥΣΗ, δημιουργείται ένα αντίγραφο του τρέχοντος τιμολογίου, αποθηκεύεται και εκτυπώνεται στον προεπιλεγμένο εκτυπωτή.

Το αρχείο αποθηκεύεται στο φάκελο που βρίσκεται το συνημμένο αρχείο και έχει τη μορφή: Αρ. τιμολογίου, Επωνυμία πελάτη, ηη.μμ.εε
Έχω βάλει και τον αριθμό του τιμολογίου για τη μοναδικότητα του αρχείου στο φάκελο, γιατί αν υπάρχει άλλο αρχείο με το ίδιο όνομα θα αντικατασταθεί με το νέο. Σε μια ημέρα ένας πελάτης μπορεί να έχει παραπάνω από ένα τιμολόγια.

Μια ερώτηση και από έμενα αν θέλω να κάνω επιλογή εκτυπωτή και στον φάκελο αποθήκευσης τι τροποποίηση χρειάζεται να γίνει στον κώδικα
Ευχαριστώ

[ChrisGT7]

Καλησπέρα Γιώργο,

Αντικατέστησε τον κώδικα του αρχείου με τον παρακάτω:

Option Explicit

Sub EKTYPWSH_PARASTATIKOY()
    On Error GoTo InvalidFile
    Dim Fld As FileDialog
    Set Fld = Application.FileDialog(msoFileDialogFolderPicker)
    
    With Fld
        .Title = "Επιλέξτε φάκελο αποθήκευσης"
        .AllowMultiSelect = False
        .InitialFileName = ThisWorkbook.Path
        If .Show <> -1 Then Exit Sub
        Dim FPath As String
        FPath = .SelectedItems(1)
    End With

    Application.DisplayAlerts = False
    ActiveSheet.Copy
    With ActiveWorkbook
        .ActiveSheet.Shapes.SelectAll
        Selection.Delete
        .SaveAs Filename:=FPath & "\" & [J5] & ", " & [D7] & ", " & _
            Format([J3], "dd.mm.yy") & ".xlsx", FileFormat:=51
        Application.Dialogs(xlDialogPrint).Show
        .Close False
    End With
    [J5] = [J5] + 1
    Application.DisplayAlerts = True
    
InvalidFile:
    If Err.Number = 0 Then Exit Sub
    MsgBox "Σφάλμα αποθήκευσης!", vbCritical, "ΣΦΑΛΜΑ"
    Application.DisplayAlerts = True
End Sub