Private Sub Command1_Click()
  Dim BeginPage, EndPage, NumCopies, i
  ' Cancel-Error auf True setzen
  CommonDialog1.CancelError = True
  ' Druck dialog box anzeigen
  CommonDialog1.ShowPrinter
  ' Variablen speichern
  BeginPage = CommonDialog1.FromPage
  EndPage = CommonDialog1.ToPage
  NumCopies = CommonDialog1.Copies
  For i = 1 To NumCopies
    'Hier den code zun drucken hinein
  Next i
End Sub