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.334 mal aufgerufen. |
vb@rchiv CD Vol.6 ![]() ![]() Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Buchempfehlung Tipp des Monats ![]() Dieter Otter Beliebige Zeichen am Anfang und Ende eines Strings entfernen Mit der Trim-Funktion lassen sich nicht nur Leerzeichen, sondern bei Bedarf auch beliebige Zeichen entfernen. sevAniGif (VB/VBA) ![]() Anzeigen von animierten GIF-Dateien Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. |
||||||||||
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. |