PB IMPRESSION

Question

Bonjour,

J'ai un soucis d'impression. Voici le code utilis&#233; : 

Private Sub Btn_print_option1_Click()


Printer.PaperSize = vbPRPSA4
Printer.Orientation = vbPRORLandscape
Printer.Font = "Courier New"
Printer.FontSize = 8


Open (App.Path & "\option1.rtf") For Input As #91
Do Until EOF(91)
    Line Input #91, laligne
    Printer.Print laligne
    Loop
Close #91
cdprint.ShowPrinter
Printer.EndDoc


End Sub

A l'ex&#233;cution, la fenetre avec la liste des imprimantes dispo s'affiche bien, quand je choisi l'imprimante et que je clique sur imprimer, l'impression sort tout le temps sur mon imprimante definie par defaut et non sur l imprimante que j'ai choisi dans la liste.

Sur le commandcontrol, printerdefault n'est pas coch&#233;.

Comment faire pour que l'&#233;dition se lance sur l' imprimante s&#233;lectionn&#233;e ?

Merci de votre aide.

radcur · Answer

salut



selon moi ca vient du fais que ton cdprint.showprint est "trop loin"
dans ton code.  Quand tu travailles avec l'objet Printer, c'est
avec l'imprimante par defaut que tu travailles.  Essaie de mettre
ton cdprint.showprint au debut.

PB IMPRESSION

1 réponse

Discussions similaires