Bonjour,
Je me permets de soliciter votre aide car cela fait un petit moment que j'essaye de comprendre mon erreur en vain...
J'ai chercher sur internet, essayé les solutions proposées mais rien y fait...
Je vous remercie déjà de l'aide que vous allez m'apporter.
Voila je souhaite imprimer un fichier PDF se situant dans mon répértoire courant. Cependant dans un formulaire auparavant je choisis l'imprimante sur laquelle je vais imprimer. Mon formulaire a été construit grâce aux fonctions : http://access.developpez.com/faq/?page=TAEtat
L'imprimante sélectionnée est notée dans une zone de texte imprimante : Me.Imprimante.
De temps en temps ça imprime sur l'imprimante que j'ai bien sélectionné et de temps en temps ça imprime sur la précédente. Le problème c'est que je ne change rien pour que ça marche mieux donc je ne comprends vraiment pas...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim wsn
 
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
 
For Each VarElément In Lst_imp.ItemsSelected<div style="margin-left:40px">Me.imprimante = Lst_imp.Column(1, VarElément)</div>Next VarElément 
Set wsn = CreateObject("WScript.Network")
wsn.SetDefaultPrinter Me.imprimante
ImprimerFichier (CurrentProject.Path & "\" & nomfichier & ".pdf")
wsn.SetDefaultPrinter defaultprinter
Voila merci beaucoup de votre aide...