Private Sub mnuPrint_Click() 
  ' wird im "CommonDialog" auf "Abbrechen" geklickt, 
  ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst. 
  Dim BeginPage, EndPage, NumCopies, i 
 
  On Error Resume Next 
  With CommonDialog1 
    .CancelError = True 
    ' Dialogfeld Drucken anzeigen 
    .ShowPrinter 
    If Err.Number = 0 Then
 
      ' vom Benutzer ausgewählte Werte vom Dialogfeld abrufen 
      BeginPage = .FromPage 
      EndPage = .ToPage 
      NumCopies = .Copies 
      For i = 1 To NumCopies 
        ' hier gegebenenfalls Schriftart, Schriftgröße, etc. vorgeben 
        Printer.Print "" 
        Printer.Print "" 
        Printer.FontSize = 15 
        Printer.CurrentX = 700 
        Printer.CurrentY = 700 
        Printer.Print "Überschrift 1" 
        Printer.FontSize = .FontSize 
 
        If Check3.Value Then 
          Printer.Print "Text" 
        Else 
          Printer.Print "" 
        End If 
 
        Printer.Print Text1.Text 
        Printer.EndDoc 
      Next i 
    End If
  End With 
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de