Bonjour

j'essaie de changer l'imprimante par defaut pour cela je fais :

pour les declarations de variable:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Dim strPrinter As [String]
Dim xlApp As Excel.Application
Dim test As String
pour le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
test = strPrinter & " sur " & "Ne01:"
dans test il y a le nom de l'imprimante : "\\splpt10031\PILPT11Y1P sur
 Ne01:"
 
xlApp.Application.ActivePrinter = test
et dans xlApp.Application.ActivePrinter qui vaut "\\splpt10031
\PLLPT11ZMR sur Ne01:" et moi je veux changer cette imprimante par
 defaut par "\\splpt10031\PILPT11Y1P sur Ne01:"
et la ça veut pas marché, en faite quand je veux l'attribuer une autre imprimante il accepte pas
pourtant j'ai utilisé la meme syntaxe , j'ai essayé un copy ça marche pas
' l'erreur qui m'affiche est
COMexception was unhandled
Exception from HRESULT: 0x800A03EC
merci de m'aider