Visual Basic -Druck enthält einen "Printer "-Funktion , um eine Datei zu drucken , gibt aber keine Kontrolle über die Formatierung , insbesondere zu langen Zeilen umbrochen . Zusätzlicher Code manipulieren können den Text, die Tests für Leitungslänge und Lage der Räume , einen guten Platz , um die Linien zu brechen finden. Allerdings gibt es einen einfacheren Weg, mit nur ein paar Zeilen Code und ein Rich TextBox Kontrolle. Der einzige Nachteil ist, wird es nicht geben Randeinstellungen . Dies ist möglich mit einer API (Application Programming Interface )-Aufruf , aber die API -Code ist langwierig, läuft über 122 Code-Zeilen und 700 + Wörter mit Erläuterungen . Dies übersteigt den Umfang dieses Artikels sprengen. Anleitung
1

Erstellen Sie ein neues Standard EXE-Projekt in Visual Basic , indem Sie auf "Datei ", dann " New Project" und die Wahl der Standard-EXE- Vorlage. Fügen Sie ein Label -Steuerelement zum Formular , das durch einen Klick auf das Label- Symbol in der Toolbox zeigt auf der linken Seite öffnet sich. Dies ist der große Buchstabe "A" in Großbuchstaben . Schauen Sie in der Liste Eigenschaften auf der rechten Seite für die Label1 Eigenschaften und ändern Sie die Bildunterschrift zu lesen "Name der zu druckenden Datei ? " Aber nicht die Anführungszeichen .
2

Fügen Sie ein TextBox -Steuerelement die Form, in der gleichen Weise , mit der Toolbox -Symbol von einem kleinen Platz mit Kleinbuchstaben "ab" in ihm. Positionieren Sie das Textfeld auf der rechten Seite des Etiketts. Suchen Sie die Eigenschaft "Text" in der Liste der Eigenschaften für dieses Steuerelement , und doppelklicken Sie auf die Text-Eigenschaft auf den voreingestellten Namen zu markieren. Drücken Sie die Taste "Löschen " auf Ihrer Tastatur, um ihn zu entfernen.
3

Fügen Sie zwei Schaltflächen aus der Toolbox , durch ein kleines Rechteck gekennzeichnet. Ändern Sie die Caption der ersten, "Drucken" und die Bildunterschrift des zweiten auf " Abbrechen " . Fügen Sie ein Steuerelement zur Toolbox , indem Sie auf "Projekt" in der oberen Menüleiste und dann "Komponenten . Finden Sie die "Microsoft Rich Textbox Control 6.0 (SP6) " in der Liste und klicken Sie auf das Kontrollkästchen , um es auszuwählen . Klicken Sie auf " Übernehmen" und " OK". Fügen Sie die neue Steuerung, die an der Unterseite der Steuerung Liste sein sollte. Verschieben Sie den Cursor über das Symbol, wird der Name .
4

Klicken Sie auf das Microsoft Rich Textbox Control 6.0 (SP6) auf dem Formular. In der Liste der Eigenschaften für dieses Steuerelement , löschen Sie die "Text" Namen , ändern Sie die " Multiline " Eigentum von " false" auf "Stimmt, machen das " Visible "-Eigenschaft " Falsch " und setzen Sie den " Font " -Eigenschaft, um unabhängig von Schriftart und-größe Sie wünschen.
5

Doppelklicken Sie auf die Print -Steuerung , um das Codefenster zu öffnen. Geben Sie diesen Code genau wie es unten angezeigt:

Private Sub Command1_Click () Dim strFileToPrint , strFullFile , strReadLine Wie StringstrFileToPrint = Text1.TextOpen strFileToPrint Für Eingang As # 1Do Bis EOF (1) Line Input # 1 , strReadLinestrFullFile = strFullFile & strReadLineLoopRichTextBox1 = strFullFileRichTextBox1.Visible = TrueRichTextBox1.SelLength = 0RichTextBox1.SelPrint Printer.hDCEnd Sub