Impossible de changer d'imprimanteRésolu

Question

Bonjour,

J'ai le code suivant pour changer mon imprimante. "label_imprimante" contient le nom de l'imprimante sur laquelle je veux imprimer

    Dim imprimante As Printer

    For Each imprimante In Printers
        If UCase(imprimante.DeviceName) = UCase(label_imprimante) Then
            Set Printer = imprimante
            Exit For
        End If
    Next

    Printer.TrackDefault = True
    Printer.ScaleMode = 6
    Printer.Orientation = 2
    Printer.FontName = "Arial"
    Printer.FontSize = 10
    Printer.CurrentX = 10
    Printer.CurrentY = 15
    Printer.Print "texte &#224; imprimer" 
    Printer.EndDoc

Les propri&#233;t&#233;s de mon objet "printer" sont bien chang&#233;es (dans le debugger).
Le probl&#232;me est que mes impressions sortent toujours sur l'imprimante par d&#233;faut de windows. J'ai fais le tour du forum mais je n'ai rien trouv&#233;. Pouvez-vous m'aider.

Merci d'avance

cs_pledoux · Accepted Answer

Suite et fin...

Printer.TrackDefault = True

red&#233;finit l'imprimante avec celle par d&#233;faut de windows.
Il faut donc mettre la propri&#233;t&#233; &#224; FALSE.

Cela pourra peut-&#234;tre aider des personnes, plusieurs messages concernent ce sujet sans donner la r&#233;ponse.

Zlub · Answer

Salut,


Ton code est bon, t'es certain que tu ne fais pas de modif du printer ailleur dans ton code ?



Et ton label contient bien le nom de l'imprimante ? label_imprimante.Caption &#231;a serait mieux ... Au passage c'est bien un label ? sinon c'es quoi ? 


++

Zlub
 
  <hr size="2" width="100%">Click sur le bouton ci-dessous si la r&#233;ponse te convients - pour indiquer aux autre o&#249; est la r&#233;ponse &#224; ta question.

cs_pledoux · Answer

Bonjour,

Derni&#232;re pr&#233;cision 'label_imprimante' est dimensionn&#233; en STRING et lu dans un fichier texte. J'ai fait un test et il correspond bien &#224; une de mes imprimantes

Impossible de changer d'imprimante

3 réponses

Discussions similaires