Discussion :

[Beaudelicius]

Bonjour Forum,

Lors de l'impression je désire modifier les pripriétés d'une imprimante.
Je me suis basé sur un procédure trouvé dans le FAQ, mais ça ne fonctionne pas..

http://excel.developpez.com/faq/?pag...tesImprimantes

Voici la procédure modifié:

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
18
19
20
Dim objWMIService As Object, colItems As Object
        Dim objItem As Object
        Dim strComputer As String
 
        On Error Resume Next
        strComputer = "."
 
        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
        Set colItems = objWMIService.execQuery("Select '%zebra%' from Win32_printerConfiguration", , 48)
 
        For Each objItem In colItems
            If objItem.Description = "\\xxx\Zebra 105SL xxx" Then
                'objItem.pelsWidth = 1000
                'objItem.pelsHeight = 812
                objItem.PaperSize = "User Defined"
 
 
            Exit For
            End If
        Next objItem

La procédure ne modifie pas le PaperSize, il garde toujours celui par défaut.

Merci!

[Jean-Philippe André]

salut,

en mettant un point d'arrêt dans le code au niveau de la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objItem.PaperSize = "User Defined"

peux-tu vérifier que le code passe bien dans cette boucle dans un premier temps stp ?

Ensuite la constante pour le format papier utilisateur est xlPaperUser

[Beaudelicius]

Bonjour jpcheck,

Merci pour ta réponse, et oui j'avais déjà testé et oui il entre bien dans le if.

J'ai également testé avec ta modification

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objItem.PaperSize = xlPaperUser

Mais ça ne change rien, la propriété garde comme valeur la dernière valeur entré.

Merci!