vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück
Rubrik: CommonDialog01.05.02
Drucken mit dem CommonDialog Steuerelement

VB-Version:  VB5, VB6
 Views:  13.440 

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.

Diese Seite wurde bereits 13.440 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel