Gestion des bacs imprimantes

Question

J'ai le code suivant, pourtant lors de l'impression sur la premi&#232;re imprimante, tout part vers le bac 2, quelqu'un &#224; une suggestion ?

Sub NomImprimante()
Dim SearchString As String
Dim l As Integer
Dim TypeImprimante As String
Dim MyPos As Integer
Dim FinChaine As Integer


Const DebutChaine As Integer = 11    ' longueur du nom du serveur
Const SearchChar As String = "_$_"   ' Sp&#233;cifie la cha&#238;ne recherch&#233;e


SearchString = ActivePrinter            ' Affecte le nom de la queue d'impression
MyPos = InStr(SearchString, SearchChar) ' Recherche la position d&#233;terminant la fin
long1 = Len(SearchString)               ' d&#233;termine la longueur


FinChaine = long1 - MyPos


TypeImprimante = Mid(SearchString, DebutChaine, long1 - (DebutChaine + FinChaine))


Select Case TypeImprimante


  Case "Q_HP_LASERJET_4200"                     ' driver: HP LaserJet 4200 PCL 5e 60.05.30.04
    With Selection.PageSetup
        .FirstPageTray = 263      ' Bac 2
        .OtherPagesTray =  wdPrinterDefaultBin  ' Bac par d&#233;faut
    End With
                                                ' D&#233;part manuel : 258
                                                ' Bac 1 : 264
                                                ' Bac 2 : 263
                                                ' Bac 3 : 262
                                                                                           
  Case Q_HP_LASERJET_4000                       ' driver: HP LaserJet 4000 Series PCL6 W2003 Original Driver
    With Selection.PageSetup
        .FirstPageTray = 261                    ' Bac 2
        .OtherPagesTray = wdPrinterDefaultBin   ' Bac par d&#233;faut
    End With
    
  Case Xerox_ProC3545                           ' driver: Xerox DocuColor 2240 PCL 6 WinXP
    With Selection.PageSetup
        .FirstPageTray = 258                    ' Bac 2
        .OtherPagesTray = wdPrinterDefaultBin   ' Bac par d&#233;faut
    End With
    
  Case Else
    MsgBox "Mauvaise imprimante"


End Select


End Sub

cs_Jack · Answer

Salut
D&#233;sol&#233;, cette r&#233;ponse ne r&#233;pondra pas &#224; ta question, juste des remarques

-1- Chez moi, ActivePrinter n'existe pas (VB6 sous Windows 2000)
Va falloir nous donner les infos de base de ta question : Langage et OS
En recherchant sur MSDN, ActivePrinter appartient au VBA de Excel 2003 ET &#224; l'objet MapPoint ou Application. Il faut donc d&#233;clarer une instance de ce MapPoint avant, ou pr&#233;ciser Application.ActivePrinter
Voir cet exemple trouv&#233; sur Google http://msdn.microsoft.com/library/default.asp?url=/library/en-us/mappoint2004/BIZOMPActivePrinter.asp

-2- Je parie que tu n'as pas "Option Explicit" en t&#234;te de chacune de tes pages de code.
Sinon, tu aurais d&#233;couvert deux erreurs :
   Case Q_HP_LASERJET_4000
   Case Xerox_ProC3545
Il manque les " pour d&#233;signer une chaine de caract&#232;re comme tu l'as fait sur le premier Case

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

Mes excuses, VBA &#233;tait le th&#232;me et je ne l'ai pas vu car il est mal plac&#233; (en dessous de la fenetre de saisie).
J'ai rien dit.

Gestion des bacs imprimantes

2 réponses

Discussions similaires