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.252 mal aufgerufen. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung sevOutBar 4.0 Vertikale Menüleisten á la Outlook Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. |
||||||||||
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. |