[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.

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