Configuration de l'imprimante (objet printer) selon commondialog

Question

Je n'ai toujours pas trouvé comment récupérer l'imprimante sélectionnée dans le commondialog showprint et la définir pour l'objet Printer.
Ca m'imprime toujours sur l'imprimante par défaut alors que j'ai changé dans la boîte de dialogue.
Je ne dois pas avoir tout compris aux flags et hdc... (comme vaguement indiqué dans l'aide)

cs_Freemind · Answer

Dis moi si tu as du nouveau, j'ai le même  prob

mayvin33 · Answer

Salut,J'ai le meme probleme que toi, j'ai beau selectionner une imprimante dans le Commondialog, si derriere je ne lui affecte pas la valeur "printerdefault true" alors il ne tient pas compte de mon choix d'imprimante. Je sais que l'on peut specifier l'index de l'imprimante que l'on desire via "Set Printer Printers(n)" mais je ne sais pas comment on recupere cet index depuis le commondialog (ni si c'est possible !). Alors si tu as la soluce, merci de me la faire partager car ça fait deux jours que je m'enerve dessus !!!

cs_leyel · Answer

Je n'ai toujours pas trouvé comment récupérer l'imprimante sélectionnée dans le commondialog showprint et la définir pour l'objet Printer.
Ca m'imprime toujours sur l'imprimante par défaut alors que j'ai changé dans la boîte de dialogue.
Je ne dois pas avoir tout compris aux flags et hdc... (comme vaguement indiqué dans l'aide)

guiguiramus · Answer

Si ça vous intéresse la gestion avec le commondialog se fait par :

1- Passer les flags qui vont bien pour retrouver le contexte d'imprimante:
(pour toutes les valeurs voir ds msdn CommonDialog, contrôle, constantes)

CommonDialog1.Flags = cdlPDReturnDC (&h100)

2- faire l'appel de la boite imprimante:

CommonDialog1.ShowPrinter

3- associer le contexte a un objet vide

dim prt

prt = CommonDialog1.hDC

4- Lier le contexte à l'objet printer

Set Printer = prt

5- y'a plus qu'à utiliser l'objet printer normalement

A+
Guillaume

Reg le MF91 · Answer

Salut,

j'ai essayé la gestion de Guillaume mais quand l'execution arrive sur "Set Printer = prt" il termine la sub sans genérer d'erreur.
Du coup pas d'impression.

Y a t il qque chose de particulier à ajouter?

Merci d'avance

MF91

Reg le MF91 · Answer

Petite rectification, cette ligne genère une erreur 424 "Un objet est requis"

Reg le MF91 · Answer

Petite rectification, cette ligne genère une erreur 424 "Un objet est requis"

philippe laschweng 1 · Answer

Un peu tard mais ca pourra servir à d'autres personnes : Exemple de MSDN

Private Sub Command1_Click()
  Dim BeginPage, EndPage, NumCopies, i
  ' Attribue à CancelError la valeur True
  CommonDialog1.CancelError = True
  On Error GoTo ErrHandler
  ' Affiche la boîte de dialogue Impression
  CommonDialog1.ShowPrinter
  ' Récupère les valeurs définies par l'utilisateur dans la boîte
  ' de dialogue
  BeginPage = CommonDialog1.FromPage
  EndPage = CommonDialog1.ToPage
  NumCopies = CommonDialog1.Copies
  For i = 1 To NumCopies
    ' Insérer ici du code pour envoyer des données à l'imprimante
  Next i
  Exit Sub
ErrHandler:
  ' L'utilisateur a cliqué sur Annuler
  Exit Sub
End Sub

Configuration de l'imprimante (objet printer) selon commondialog

8 réponses

Discussions similaires