Modification PaperSize Impression

Version imprimable

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:

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!

16/04/2012, 16h21
Jean-Philippe André

salut,

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

Code:

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
16/04/2012, 17h13
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:

objItem.PaperSize = xlPaperUser

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

Merci!