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

[vellamos]

καλημερα παιδια, εχω φτιαξει ενα excel για να εκτυπωνω τιμολογια. τα εχω ολα αυτοματα δηλαδη να περναει τα στοιχεια του πελατη μου, με λιστα να επιλεγω το προιον και να κανει ολους τους υπολογισμους. αυτο που θελω τωρα να κανω ειναι αν υπαρχει καποιος τροπος να φτιαξω ενα κουμπι εκτυπωσης οπου θα στελνει το τιμολογιο για εκτυπωση και παραλληλα θα δημιουργει και θα αποθηκευει ενα νεο excel σε αλλο φακελο με το ονομα και επιθετο του πελατη και διπλα την ημερομηνια.επισεις μετα απο κεθε εκτυπωση να μηδενηζει το τιμολογιο και να προσθετει +1 στον αυξοντα αριθμο. ευχαριστω

[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

[christakos]

καλημέρα Χρήστο,
στο συνημμένο έχει ένα κουμπί, αν βάλουμε και εικόνα (logo) τα διαγράφει στην αποθήκευση.
Σε ερώτηση μου είπες να διαγραφτούν οι γραμμές
.ActiveSheet.Shapes.SelectAll
Selection.Delete

ωραία, άλλα τα κρατάει όλα, shapes και logo εικόνας.

Πώς γίνετε πχ αν έχουμε 2 shapes και μια εικόνα, να μας κρατήσει μόνο την εικόνα?
γιατί π.χ σε ένα χαρτί αν χρειαστεί να βλέπουμε μόνο το λογότυπο ή μια δικιά μας προσωπική εικόνα
και όχι shapes ή commandsButtons αν έχουμε.

[asterix]

Χρήστο καλημέρα και ευχαριστώ πολύ για την άμεση απάντηση σου οκ δούλεψε κανονικά.
Στο ίδιο αρχείο πρόσθεσα ένα ακόμα φύλλο και το ζητουμενο ειναι αν με το κλικ του κουμπιου ή με την χρήση ενός ακόμα κουμπιού μπορούν να μεταφέρονται τα αντίστοιχα κελιά στο νέο φύλλο ΕΣΟΔΑ

Ευχαριστώ

[ChrisGT7]

Καλησπέρα Χρήστο,

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

Option Explicit

Sub EKTYPWSH_PARASTATIKOY()
    On Error GoTo InvalidFile
    Dim Shp As Shape
    
    Application.DisplayAlerts = False
    ActiveSheet.Copy
    With ActiveWorkbook
        For Each Shp In .ActiveSheet.Shapes
            If Shp.Type = msoAutoShape Then Shp.Delete
        Next
        
        .SaveAs Filename:=ThisWorkbook.Path & "\" & _
            [J5] & ", " & [D7] & ", " & Format([J3], "dd.mm.yy") & ".xlsx", FileFormat:=51
        .PrintOut
        .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

Ο συγκεκριμένος κώδικας διαγράφει μόνο τα σχήματα (όπως είναι τα κουμπιά) από το αρχείο που πρόκεται να διαγραφεί ελέγχοντας τον τύπο του σχήματος. Οπότε, ανάλογα τι τύπο σχήματος θέλουμε να κρατήσουμε στο αρχείο μας, πρέπει να κάνουμε τους αντίστοιχους ελέγχους.

[ChrisGT7]

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

Δοκίμασε αν σε καλύπτει το συνημμένο αρχείο.

Τροποποιείς τον κώδικα σύμφωνα πάντα με τις ανάγκες σου.