Fenêtre de dialogue pour imprimer

[DIGGERJACK]

Bonsoir le forum

Grace à l'instruction suivante j'ouvre la fenêtre de dialogue du choix de l'imprimante et je voudrais faire en sorte que " Sélection" soit cocher par défaut ou avoir l'instruction pour le faire

Application.Dialogs(xlDialogPrint).Show

Merci de votre aide

 

[Épaf]

Re : Fenêtre de dialogue pour imprimer

Bonsoir DIGGERJACK,
A tout hasard, regarde PrintOut, dans l'aide (F1), ça évite la boite de dialogue.
Bonne soirée

 

[DIGGERJACK]

Re : Fenêtre de dialogue pour imprimer

Bonsoir Epaf

Je dois absolument ouvrir la boîte de dialogue pour pouvoir sélectionner une imprimante

Bonne soirée

 

[Épaf]

Re : Fenêtre de dialogue pour imprimer

Tu ne peux pas la désigner par le code ?
@+

 

[fred65200]

Re : Fenêtre de dialogue pour imprimer

Bonsoir,

Si c'est juste pour sélectionner une imprimante, tu peux utiliser
xlDialogPrinterSetup avec le nom de l'imprimante en Argument

fred65200

xlDialogPrint
range_num, from, to, copies, draft, preview, print_what, color, feed, quality, y_resolution, selection, printer_text, print_to_file, collate

Application.Dialogs(xlDialogPrint).Show arg13:="nom imprimante"

 

[Épaf]

Re : Fenêtre de dialogue pour imprimer

ou si tu connais son nom sur le réseau, la désigner

    PrinterDefault = ActivePrinter 'tu mémorise le nom de l'imprimante par défaut
    TempPrinter = "\\OLAN\CCABB101 sur Ne04:"
    Application.ActivePrinter = TempPrinter  ' on active l'imprimante
    ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:="", Collate:=True
    Application.ActivePrinter = PrinterDefault 'on rétablit l'imprimante par défaut

Bonne soirée

 

[DIGGERJACK]

Re : Fenêtre de dialogue pour imprimer

Bonjour le forum
Merci pour vos réponses mais je dois absolument ouvrir cette fenêtre de dialogue car le projet va servir à plusieurs personnes dans différentes entreprises

Merci de votre aide
Bonne journée

 

[PascalXLD]

Re : Fenêtre de dialogue pour imprimer

Bonjour

peut-être ainsi

If Application.Dialogs(xlDialogPrinterSetup).Show = True Then Selection.PrintOut

 

[DIGGERJACK]

Re : Fenêtre de dialogue pour imprimer

Re et bonjour Pascal

Merci beaucoup pour cette solution
Après différent tests cela fonctionne très bien

Merci et bonne journée

 

[mikael2235]

Re : Fenêtre de dialogue pour imprimer

Bonjour

peut-être ainsi

If Application.Dialogs(xlDialogPrinterSetup).Show = True Then Selection.PrintOut

Marche aussi dans mon cas, c'est ce que je cherchais à faire.

Mikael

 

[mikael2235]

Re : Fenêtre de dialogue pour imprimer

Marche aussi dans mon cas, c'est ce que je cherchais à faire.

Mikael

Bonjour,

J'ai utilisé cette méthode pour le choix de l'imprimante.

Une boite de dialogue s'ouvre donc avec le liste des imprimantes installées.

Par contre est-il possible de verrouiller le bouton annuler de cette boite de dialogue ? Je veux obliger les utilisateurs à imprimer.

Et peut-on ne pas afficher les imprimantes PDF (PDFCreator par exemple) ???

Merci