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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question