[gfevran]

Σπύρο καλησπέρα
Είχα επιχειρήσει με τη δική σου πρόταση αλλά δεν τα κατάφερα,
προσπαθώντας να συντάξω τον κώδικα μου έβγαζε Error.
επίσης δεν ξέρω πως να βάλω αριθμούς στην combobox.

τη μεταβλητή την έβαλα (Dim NumberOfCopies As Integer 'Ορισμός μεταβλητής)
αυτο δεν ξέρω που να το βάλω (NumberOfCopies = Application.InputBox(Prompt:="Επιλέξτε αριθμό αντίτυπων", _
Title:="Αριθμός αντίτυπων...", Default:=1, Type:=1)
If NumberOfCopies < 1 Then Exit Sub )
Για να εκτυπώσεις:
Κώδικας:
και αυτο το έβαλα (PR1.PrintOut Copies:=NumberOfCopies)