Come ottenere un elenco di stampanti in VB6

Parte di programmazione di un'applicazione desktop sta dando agli utenti la possibilità di stampare . Prima che gli utenti 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 l'oggetto Visual Basic ( VB ) " stampante" . L' oggetto Printer in possesso di un elenco di stampanti , in modo da poter scorrere e visualizzare ciascuno. Istruzioni
1

Creare una variabile intera e assegnarle il conteggio totale delle stampanti . Ciò è necessario in modo da sapere quante volte un ciclo tra l'oggetto Printer . Il codice per creare una variabile VB è qui sotto: Dim i As Integeri = Printer.Count
2

Display " Nessuna stampante configurata " se l' utente non ha installato i dispositivi . Questo è un metodo di controllo di errore per evitare la visualizzazione niente all'utente . Se la variabile che ho creato nel passo 1 è pari a zero , poi si sa nessuna stampante siano configurate . Il codice qui sotto annuncia per l'utente che non ci sono stampanti installate : se i = 0 ThenMsgBox " Nessuna stampante installata " End If
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: Dim j come IntegerFor j = 0 per i - 1listbox1.AddItem Stampanti ( j ) DeviceNameLoop
4

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

• Come creare un link in Visual Basic 
• Come richiamare un sottoprogramma dal suo interno in Visual Basic