stampa Visual Basic include una funzione di " stampante" per stampare un file , ma dà alcun controllo sulla formattazione , in particolare per avvolgere le linee lunghe . Codice aggiuntivo può manipolare il testo , i test per lunghezza della linea e la posizione degli spazi di trovare un buon posto di rompere le righe. Tuttavia, c'è un modo più semplice che coinvolge solo poche righe di codice e un controllo TextBox Rich . L'unico inconveniente è che non fornisce le impostazioni dei margini . Questo è possibile con un ( Application Programming Interface) chiamata API , ma il codice API è lungo , in esecuzione su 122 linee di codice e 700 parole + con spiegazione . Questo supera la portata di questo articolo . Istruzioni
1

Creare un nuovo progetto EXE standard in Visual Basic facendo clic su " File ", poi " Nuovo progetto" e scegliendo il modello EXE standard . Aggiungere un controllo Label al form che si apre facendo clic sull'icona Etichetta nella casella degli strumenti che mostra sulla sinistra . Questa è la grande lettera " A" in capsule . Guardate nell'elenco Proprietà sulla destra per le Label1 proprietà e modificare la didascalia di leggere "Nome del file da stampare ? " Ma non includere le virgolette .
2

Aggiungere un controllo TextBox la forma nello stesso modo , usando l'icona Casella degli strumenti di una piccola piazza con le lettere minuscole " ab " in esso . Posizionare il testo a destra dell'etichetta. Individuare la proprietà "Testo" nell'elenco delle proprietà di questo controllo e fare doppio clic sulla proprietà Text per evidenziare il nome di default . Premere il tasto " Canc " sulla tastiera per rimuoverlo.
3

Aggiungere due pulsanti di comando dalla casella degli strumenti , identificato da un piccolo rettangolo . Modificare la didascalia della prima di "Stampa" e la didascalia del secondo a "Annulla". Aggiungere un controllo alla Casella degli strumenti facendo clic su "Progetto " nel menu in alto e poi " Componenti . Trovare il "Microsoft Rich TextBox Control 6.0 ( SP6) " nella lista e fare clic sulla casella di controllo per selezionarla. Fare clic su " Applica " e "OK ". Aggiungere il nuovo controllo , che dovrebbe essere in fondo alla lista di controllo . Spostando il cursore sopra l'icona verrà visualizzato il nome .
4

Clicca su Microsoft Rich TextBox Control 6.0 ( SP6) sul modulo . Nell'elenco delle proprietà di questo controllo , eliminare il nome "Text" , modificare la proprietà " Multiline " da " false" a " Vero, fare il" " proprietà " Visible False " e impostare la proprietà" Font "a qualsiasi tipo di carattere e la dimensione lo si desidera.
5

Fare doppio clic sul controllo Stampa per aprire la finestra del codice . Inserisci il codice esattamente come appare qui sotto :

Private Sub Command1_Click ( ) Dim strFileToPrint , strFullFile , strReadLine Come StringstrFileToPrint = Text1.TextOpen strFileToPrint For Input As # 1Do Fino EOF ( 1) Line Input # 1 , strReadLinestrFullFile = strFullFile & strReadLineLoopRichTextBox1 = strFullFileRichTextBox1.Visible = TrueRichTextBox1.SelLength = 0RichTextBox1.SelPrint Printer.hDCEnd Sub