Come stampare in Visual Basic 6

October 18

Come stampare in Visual Basic 6


La stampa in Visual Basic può essere un po 'ingombrante per impostare, ma una volta fatto, le complessità sono invisibili per l'utente. Un controllo di Visual Basic chiamato il controllo Common Dialog incorpora un metodo per la stampa in Visual Basic. Utilizzando il codice collegato a questo controllo si aprirà una finestra di dialogo in cui l'utente può scegliere attributi specifici per la stampa, come le pagine da stampare, il numero di copie e le proprietà specifiche della stampante in questione.

istruzione

1 Creare la finestra di dialogo della stampante aprendo Visual Basic e selezionare "EXE standard" dall'elenco dei modelli offerti per un nuovo progetto. Salvare il nuovo progetto creato con un nome semplice come "stampante" cliccando su "File" e "Salva progetto come." Enter "stampante" nella finestra di dialogo che si apre. Per impostazione predefinita, Visual Basic attribuisce una estensione di "VBP." Save the default "Form1", creato nello stesso modo, cliccando su "Salva modulo come" e dare la forma del nome "stampante" pure.

2 Aggiungere il controllo Common Dialog al progetto. Clicca su "Progetto" nel menu nella parte superiore dello schermo. Dal menu a tendina, selezionare "Aggiungi componenti." Scorrere verso il basso una lunga lista che appare fino a vedere "Microsoft Common Dialog Control 6.0 (SP6). Selezionare questo con il mouse e poi cliccare su "OK".

3 Fare doppio clic sul controllo finestra di dialogo comune, che dovrebbe ora essere visualizzato in fondo il controllo mostrato nel pannello a sinistra sullo schermo. Un'icona guardando come due zeri con un bar su di loro e due punti uno sotto l'altro rappresenta questo controllo. Quando si esegue il mouse sopra questo, le parole "CommonDialog" apparirà.

4 Fare doppio clic sull'icona "CommandButton" nel pannello di sinistra, rappresentata da un piccolo rettangolo. Questo pone un comando sul modulo. Fare clic sul pulsante ora con l'etichetta "Command1". Nella lista "Proprietà" per questo controllo a destra, cambiare il nome in "cmdPrint". Scorrere verso il basso fino a visualizzare "Caption". Cambiare il nome di questo a "Stampa".

5 Digitare:
Dim FileName, TextLine, BeginPage, EndPage, NumCopies, Orientamento, i
CommonDialog1.ShowPrinter
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
Orientamento = CommonDialog1.Orientation
FileName = InputBox ( "Quale file dovrei stampare?")
Apri Nome file in lettura in 1 #
Do While Not EOF (1)
Line Input # 1, TextLine
Printer.Print TextLine
Ciclo continuo
Close # 1
Fine

6 Testare il codice premendo il tasto "F5" e quindi su "Stampa" nel modulo. Immettere il percorso del file di un file di testo sul computer. Il documento dovrebbe stampare. In caso contrario, rivedere ogni riga di codice qui sopra per assicurarsi che sia corretto.