Configuration de l'imprimante (objet printer) selon commondialog

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)

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

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 !!!



-------------------------------
Réponse au message :
-------------------------------

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)

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)

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

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

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

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

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