[Εκτύπωση] Απόδειξη Δαπανών

[Flashgordon61]

Καλημέρα ……….
Μία ερώτηση σχετικά με το αρχείο (ReceiptOfExpense.xls) από τα Χρήσιμα αρχεία & παραδείγματα.
Αν επιλέξουμε φυσικό εκτυπωτή η εκτύπωση των αντιτύπων προχωρά με το λεκτικό
(Για τον πελάτη, Για το λογιστήριο, Για το αρχείο, Για την εφορία) σε κάθε αντίτυπο.
Αν επιλέξουμε να αποθηκεύσουμε τα αντίτυπα επιλέγοντας εκτυπωτή πχ (Microsoft Print to PDF)
πρέπει να γράψουμε το όνομα του κάθε αντιτύπου.
Αναρωτιέμαι αν μπορεί να τροποποιηθεί ο κώδικας ώστε η ονοματολογία των αντιτύπων
να είναι αυτόματη, από την τιμή ενός κελιού πχ (Α7 στο επισυναπτόμενο αρχείο).

Σημείωση : Το Φύλλο Εργασίας είναι κλειδωμένο με κωδικό "1"

Ευχαριστώ εκ των προτέρων ….

Γιώργος

[ChrisGT7]

Καλημέρα και Χρόνια πολλά Γιώργο,

Δοκίμασε να αντικαταστήσεις το παρακάτω κομμάτι κώδικα:

For i = 1 To Range("NumberOfShared").Value + 1
     .Range("COPYVALUE") = Range("NumberOfShared").Offset(i)
     .PrintOut Copies:=IIf(Range("xCopies") = vbNullString, 1, Range("xCopies"))
Next

με αυτό:

If MsgBox("Εκτύπωση σε αρχείο;", vbYesNo + vbDefaultButton2 + vbQuestion, "ΕΚΤΥΠΩΣΗ") = vbNo Then
     For i = 1 To Range("NumberOfShared").Value + 1
          .Range("COPYVALUE") = Range("NumberOfShared").Offset(i)
          .PrintOut Copies:=IIf(Range("xCopies") = vbNullString, 1, Range("xCopies"))
     Next
Else
     For i = 1 To Range("NumberOfShared").Value + 1
          .Range("COPYVALUE") = Range("NumberOfShared").Offset(i)
          .PrintOut Copies:=IIf(Range("xCopies") = vbNullString, 1, Range("xCopies")), _
               PrintToFile:=True, PrToFileName:=[A7] & ".xps"
     Next
End If

Πατώντας Εκτύπωση, ο κώδικας σε ρωτάει αν θες εκτύπωση σε αρχείο. Αν απαντήσεις Ναι, τότε στο φάκελο που βρίσκεται το τρέχον αρχείο της απόδειξης δαπάνης, δημιουργούνται τόσα αρχεία μορφής xps όσα τα αντίγραφα που έχεις επιλέξει. Η ονομασία των αρχείων βασίζεται στην τιμή του κελιού Α7.

Ελπίζω να σε διευκολύνει αυτός ο τρόπος.