[Tasos]

Καλησπέρα σε όλους!

Γιώργο δοκίμασε:

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

Για να εκτυπώσεις:

PR1.PrintOut Copies:=NumberOfCopies

Καλή συνέχεια!

Τάσος