Private Sub Command1_Click()
  Dim BeginPage, EndPage, NumCopies, i
  ' Cancel Error auf TRUE setzen
  CommonDialog1.CancelError = True
  ' Drucker-Dialogbox anzeigen
  CommonDialog1.ShowPrinter
  ' Eingaben der PrintBox in Variablen abspeichern
  BeginPage = CommonDialog1.FromPage
  EndPage = CommonDialog1.ToPage
  NumCopies = CommonDialog1.Copies
  For i = 1 To NumCopies
    ' Hier deinen Quelltext zum Drucken hineinschreiben
  Next i
End Sub