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

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [Εκτύπωση] Απόδειξη Δαπανών (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/5832-apodeiksi-dapanon.html)

Απόδειξη Δαπανών

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

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

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

Γιώργος

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

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

Κώδικας:

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.

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