Une partie de la programmation d'une application de bureau est de donner aux utilisateurs la possibilité d'imprimer . Avant que les utilisateurs d'imprimer un document, vous pouvez lister toutes les imprimantes disponibles configurés sur la machine . Cela donne aux utilisateurs la possibilité de choisir où ils peuvent imprimer le document. Vous pouvez obtenir une liste des imprimantes configurées à l'aide de l' (VB) objet Visual Basic «Imprimante» . L'objet imprimante peut contenir une liste d'imprimantes , de sorte que vous pouvez parcourir et afficher chacun. Instructions
1

Créer une variable entière et lui attribuer le nombre total des imprimantes. Ceci est nécessaire afin que vous sachiez combien de fois la boucle à travers l'objet de l'imprimante. Le code pour créer une variable VB est la suivante: Dim i comme Integeri = Printer.Count
2

Display " Pas imprimantes configurées " si l'utilisateur n'a pas les périphériques installés . Il s'agit d'une méthode de contrôle d'erreur pour éviter d'afficher rien à l'utilisateur. Si la variable i créé à l'étape 1 est égal à zéro , alors vous savez pas d'imprimantes sont configurées. Le code ci-dessous annonce à l'utilisateur qu'il n'y a pas imprimantes installées : Si i = 0 ThenMsgBox " Pas imprimantes installées " End If
3

boucle à travers l'objet de l'imprimante et ajouter la liste des imprimantes à un contrôle de zone de liste. Cela donne à l' utilisateur la possibilité de cliquer sur une imprimante. Le code pour afficher chaque imprimante est la suivante: j As IntegerFor j = 0 à i - 1listbox1.AddItem Imprimantes ( j) DeviceNameLoop
4

enregistrer le nouveau code et appuyez sur la touche "F5" . . La touche " F5" exécute l'application dans le débogueur et vous permet de vérifier le nouveau code. Lorsqu'il est exécuté , vous voyez chaque imprimante répertoriée dans la liste de contrôle de la boîte.