stampa in Visual Basic può essere un po ' complicato da configurare, ma una volta fatto, le complessità sono invisibili all'utente . Un controllo di Visual Basic chiama 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 gli attributi specifici per la stampa , come le pagine da stampare , il numero di copie e le proprietà specifiche della stampante in questione. Istruzioni
1
Creare la finestra di dialogo della stampante aprendo Visual Basic e selezionando " EXE standard " dall'elenco dei modelli offerti per un nuovo progetto . Salvare il nuovo progetto creato con un nome semplice come " stampante" , fare clic su "File " e " Salva progetto con nome." Enter "Stampante" nella finestra di dialogo che si apre . Per impostazione predefinita , Visual Basic attribuisce un'estensione di " vbp . " Salvare il default " Form1 ", creato nello stesso modo , facendo clic su "Salva come modulo " e dare la forma del nome "Stampante" pure.
2
aggiungere il controllo finestra di dialogo comune per il progetto . Fare clic su "Progetto " nel menu nella parte superiore dello schermo. Dal menu a tendina , selezionare " Aggiungi componenti ". Scorrere un elenco molto lungo che viene visualizzato fino a vedere " 6.0 Controllo Microsoft Common Dialog ( SP6 ) . Selezionare questo con il mouse e quindi fare clic su "OK".
3 Fare doppio clic sul controllo finestra di dialogo comune , che dovrebbe ora essere visualizzati in fondo allo del controllo mostrata nel pannello di sinistra lo schermo . Un'icona guardando come due zeri con un bar su di loro e due puntini uno sotto l'altro rappresenta questo controllo . Quando si esegue il mouse sopra questo , apparirà la dicitura " CommonDialog " .
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 che ora si chiama " Command1 ". Nell'elenco " Proprietà" per questo controllo a destra , cambiare il nome in " cmdPrint " . Scorrere verso il basso fino a visualizzare Cambia il nome di questo di "stampare"
5 Tipo
" Caption ". : . Dim FileName , TextLine , BeginPage , EndPage , NumCopies , Orientamento , iCommonDialog1.ShowPrinterBeginPage = CommonDialog1 . FromPageEndPage = CommonDialog1.ToPageNumCopies = CommonDialog1.CopiesOrientation = CommonDialog1.OrientationFileName = InputBox ( "Quale file devo stampare ? " ) Apri nome del file per input come # 1Do While Not EOF ( 1) Line Input # 1 , TextLinePrinter.Print TextLineLoopClose # 1End
6
prova il codice premendo il tasto " F5 " e quindi fare clic su "Stampa" sul modulo . Immettere il percorso del file di un file di testo sul computer . Il documento dovrebbe essere stampato . Se non lo fa , rivedere ogni riga di codice qui sopra per accertarsi che sia corretta .
