Dim prt As Printer, impricherchee as string impricherchee = "..nom de l'impri........." For Each impri In Printers If impri.DeviceName = impricherchee Then Set Printer = impri Exit For End If Next if printer.devicename <> impricherchee then msgbox "alerte : votre impri " & impricherchee & " n'a pas été trouvée !" ' et tes instructions d'abandon, exit sub, par exemple end if ' et des instrructions d'impression
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.