Come ottenere un elenco di stampanti in VB6

August 29

Come ottenere un elenco di stampanti in VB6


Parte di programmazione di un'applicazione desktop è dare agli utenti la possibilità di stampare. Prima di stampare un documento, è possibile elencare tutte le stampanti disponibili configurate sulla macchina. Questo dà agli utenti la possibilità di scegliere dove possono stampare il documento. È possibile ottenere un elenco di stampanti configurate utilizzando il Basic (VB) oggetto "stampante" Visual. L'oggetto Printer in possesso di un elenco delle stampanti, in modo da poter scorrere e visualizzare ciascuno.

istruzione

1 Creare una variabile intera e assegnare il conteggio totale delle stampanti. Ciò è necessario in modo da sapere quante volte a scorrere l'oggetto Printer. Il codice per creare una variabile VB è qui sotto:
Dim i come Integer
i = Printer.Count

2 Display "Nessuna stampante configurato" se l'utente non ha i dispositivi installati. Questo è un metodo di controllo di errore per evitare la visualizzazione niente all'utente. Se la variabile i creato nel passaggio 1 è pari a zero, poi si sa non stampanti sono configurate. Il codice sotto annuncia per l'utente che non ci sono stampanti installate:
Se i = 0 Then
MsgBox "Nessuna stampante installata"
Finisci se

3 Loop attraverso l'oggetto Printer e aggiungere l'elenco delle stampanti a un controllo casella di riepilogo. Questo dà all'utente la possibilità di cliccare su una stampante. Il codice per visualizzare ogni stampante è qui sotto:
j Dim as Integer
Per j = 0 per i - 1
listbox1.AddItem Stampanti (j) .DeviceName
Ciclo continuo

4 Salvare il nuovo codice e premere il tasto "F5". Il tasto "F5" esegue l'applicazione nel debugger e consente di verificare il nuovo codice. Quando viene eseguito, si vede ogni stampante elencata nel controllo casella di riepilogo.