J'ai vais cela mais il imprime sur l'imprimante pas défault et moi je veux qu'il le fasse sur une imprimante virtuelle en faite je veux faire un code du style

Imprimante="imprimante 1"
Etat="Etat1"

Imprime Etat1 sur Imprimante1

Bonjour,
Mais ton imprimante virtuelle c'est quoi ?
A+ L'expérience instruit plus sûrement que le conseil. (André G­ide)  

Changer ton imprimante par défaut (param Win) par PDF Writer L'expérience instruit plus sûrement que le conseil. (André G­ide)  

J'ai trouvé un code mais ça ne marche toujours pas, il imprime sur l'imprimante réseau et non par PDF Writer, je comprend pas pourquoi

'Initialisationdes varibales
strPoste = "."
strNomEtat = "NB_REP"
StrImprimante = "PDF Writer"

'Memoriser l'imprimante par défault
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strPoste & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Default = true")
For Each objPrinter In colInstalledPrinters
defaultprinter = objPrinter.Name
Next

'Ouverture de l'etat en mode caché
DoCmd.OpenReport strNomEtat, acViewPreview, , , acHidden


'Modife de l'imprimante par defaut

Set wsn = CreateObject("WScript.Network")
wsn.SetDefaultPrinter "Microsoft Office Document Image Writer"

'impression de l'etat
DoCmd.OpenReport strNomEtat, acViewNormal, , , acHidden


'Reactive l'imprimante default d'origine
wsn.SetDefaultPrinter defaultprinter

' fermer L 'état
DoCmd.Close acReport, strNomEtat, acSaveNo

Ca m'étonne même qu'il y ai une réaction avec ta macro, le code que tu montre n'est pas du VBA
Mais il y a moyen par ce procédé mais avec des déclarations API et macro en language VBA
J'ai jamais vraiment chercher à faire ca mais je sais que c'est possible, si t'est pas trop pressé je peu voir...
EDIT:
Autant pour moi, j'ai pas fait attention que tu employait GetObject() et je ne connais pas les commandes pour l'objet Printer dans ce mode. J'ai penser que c'était avec des API.
L'expérience instruit plus sûrement que le conseil. (André G­ide)  

Merci c trés gentil

Petite remarque cependant..
Set wsn = CreateObject("WScript.Network")
Me semble que tu l'envoi sur le réseau, essayé autre param que NetWork ?
par exemple..Set wsn = CreateObject("WScript.Connection")
L'expérience instruit plus sûrement que le conseil. (André Gide)  

Tu a essayé en faisant l'inverse ?
Printer.DeviceName = \PrinterPDF Writer
Mais c'est peut-être en lecture seule.
A+ L'expérience instruit plus sûrement que le conseil. (André G­ide)  

C'est pas possible c'est en lecture seul

Bon, je recherche dans mes archices pour changer d'imprimante mais c'est pas pour du tout cuit, j'en ai des... (archives) L'expérience instruit plus sûrement que le conseil. (André G­ide)  

Te fatigue j'ai trouve Merci d'avoir pris du temps pour moi. J'ai trouve ce code en plus je l'ai compris donc c'est super, ça marche l'etat exporté n'est pas celui voulu mais je vais trouver, le code est bon c'est l essentiel. Je met ic le codei


NumIMP = 0
NombreImp = Application.Printers.Count
For Each ImpCherche In Application.Printers
If ImpCherche.DeviceName = "PDF Writer" Then
Set Application.Printer = Application.Printers(NumIMP)
Exit For
Else
NumIMP = NumIMP + 1
End If
Next ImpCherche

If NumIMP = NombreImp Then
msgbox "Vous n'avez pas d'imprimante PDF Writer!!", vbCritical, "Impossible"
Exit Sub
End If

DoCmd.OpenReport strNomEtat, acViewPreview

DoCmd.PrintOut acPrintAll, , , 1
DoCmd.Close acReport, strNomEtat
Set Application.Printer = Nothing