Private Sub Command1_Click()
  Dim BeginPage, EndPage, NumCopies, i
  CommonDialog1.CancelError = True
'Drucker DialogBox anzeigen
  CommonDialog1.ShowPrinter
'Einstellungen der DialogBox in Variablen einlesen
  BeginPage = CommonDialog1.FromPage
  EndPage = CommonDialog1.ToPage
  NumCopies = CommonDialog1.Copies
  For i = 1 To NumCopies
  Form1.PrintForm   'Die Form ausdrucken
  Next i
End Sub