Druck in Visual Basic kann ein wenig umständlich einzurichten , aber einmal erledigt , sind die Feinheiten für den Benutzer unsichtbar . Ein Visual Basic -Steuerelement aufgerufen, das Common Dialog Control beinhaltet ein Verfahren zum Bedrucken in Visual Basic. Mit Code an dieser Steuerung wird ein Dialogfeld geöffnet, in dem der Benutzer bestimmte Attribute für den Druck wie , welche Seiten gedruckt werden sollen , wie viele Kopien und spezifische Eigenschaften des Druckers beteiligt. Anleitung
1

Erstellen Sie die Dialogfenster Drucker durch Öffnen Visual Basic und wählen Sie " Standard EXE " aus der Liste der Vorlagen für ein neues Projekt angeboten . Speichern Sie das neue Projekt mit einem einfachen Namen wie "Drucker" erstellt , indem Sie auf "Datei" und " Projekt speichern unter." Enter " Drucker" im Dialogfeld , das sich öffnet . Standardmäßig legt Visual Basic eine Verlängerung der " vbp . " Save the default " Form1 " in der gleichen Weise erstellt , ein Klick auf " Formular speichern als" und geben die Form den Namen "Printer" als gut.
2

Fügen Sie den Common Dialog Control für das Projekt. Klicken Sie auf "Projekt " im Menü am oberen Rand des Bildschirms. Aus der Dropdown-Liste die Option " Komponenten hinzufügen ". Blättern Sie nach unten eine sehr lange Liste , die bis Sie "Microsoft Common Dialog Control 6.0 (SP6) zu sehen scheint . Wählen Sie diese mit der Maus und klicken Sie dann auf "OK".
3

Klicken Sie doppelt auf das Common Dialog -Steuerelement, das jetzt an der Unterseite der Steuerung im linken Fensterbereich auf gezeigt werden sollte , welche der Bildschirm . Eine Ikone , die wie zwei Nullen mit einer Bar über sie und zwei Punkten eine unter dem anderen stellt dieses Steuerelement . Wenn Sie die Maus überfahren dies , werden die Worte " CommonDialog " erscheinen .
4

Doppelklicken Sie auf das " CommandButton "-Symbol in der linken Seite , von einem kleinen Rechteck dargestellt . Dies legt ein Kommando auf dem Formular. Klicken Sie nun auf den Button mit der Aufschrift " Command1. " In der Liste "Eigenschaften" für dieses Steuerelement auf der rechten Seite , den Namen zu ändern " cmdPrint " . Blättern Sie nach unten , bis Sie sehen Ändern Sie den Namen dieses auf "Drucken "
5

Typ "Caption . ": . Dim FileName , TextLine , BeginPage , EndPage , NumCopies , Orientierung , iCommonDialog1.ShowPrinterBeginPage = CommonDialog1 . FromPageEndPage = CommonDialog1.ToPageNumCopies = CommonDialog1.CopiesOrientation = CommonDialog1.OrientationFileName = InputBox (" Was soll ich Datei ausdrucken ?") öffnen FileName For Eingang As # 1Do While Not EOF (1) line Input # 1 , # TextLinePrinter.Print TextLineLoopClose 1End
6

Testen Sie den Code durch Drücken von " F5" und klicken Sie dann auf "Drucken" auf dem Formular. Geben Sie den Speicherort einer Textdatei auf Ihrem Computer. Das Dokument soll gedruckt werden. Wenn dies nicht der Fall , überprüfen Sie jede Codezeile oben , um sicherzustellen, dass sie korrekt ist .