Drucken mit dem CommonDialog Steuerelement VB-Version:  VB5, VB6
	Views:  16.978

Sie möchten den Standard-Dialog für das Ausdrucken von Dokumenten anbieten?

Für unser Beispiel benötigen Sie eine TextBox (Text1), deren MultiLine-Eigenschaft auf True gesetzt ist, einen CommandButton (cmdPrint) sowie das CommonDialog Control, das Sie über " Komponenten hinzufügen" auswählen. Dann noch folgenden Code:

 
Private Sub cmdPrint_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.FontBold = .FontBold
        Printer.FontItalic = .FontItalic
        Printer.FontSize = .FontSize
        Printer.FontStrikethru = .FontStrikethru
        Printer.FontUnderline = .FontUnderline
        Printer.Print Text1.Text
        Printer.EndDoc
      Next i
    End If
 End With
End Sub

Starten Sie Ihr Programm, geben Sie Text in die TextBox ein und klicken Sie auf den CommandButton um den Drucken-Dialog aufzurufen. Der Standard-Drucker ist voreingestellt und Sie können jetzt drucken.