123collargol
Messages postés25Date d'inscriptionlundi 3 septembre 2007StatutMembreDernière intervention19 mars 2015 12 janv. 2012 à 13:11
'Ne pas oublier de referencer Windows Script Host Object Model
Dim wsh As New WshNetwork
Dim strDefault As String
strDefault = Printer.DeviceName 'l'imprimante par defaut est noté dans strDefault
CommonDialog1.ShowPrinter
'CODE POUR VOTRE IMPRESSION
'TERMINER PAR :
wsh.SetDefaultPrinter (strDefault) 'restaurer l'imprimante par défaut