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 16.247 mal aufgerufen. |
TOP! Unser Nr. 1 Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||
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. |