Discussion :

[abu143]

Bonjour,

Dans une macro d'impression, je souhaite choisir l'imprimante et ses paramètres : impression couleur ou noir et blanc, recto verso, agraphage ... Je travaille sur un fichier qui sera imprimé sur une imprimante réseau avec un système de boîte aux lettres. Je ne veux pas que le fichier arrive automatiquement dans la boîte aux lettres (ce qui est paramètrer en automatique sur les ordinateurs).
Comment puis je paramètrer ces critères dans ma macro ?

merci d'avance de votre aide

[datacell33]

si tu essayes d'utiliser la méthode Printout :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWindow.SelectedSheets.PrintOut

Tu verras rapidement qu'il est malheureusement impossible de demander à l'utilisateur de choisir l'imprimante. Tu peux peut-être laisser l'utilisateur choisir son imprimante et les paramètres ?

Dans ce cas, il faut appeler directement la boite de dialogue d'impression Excel, avec la méthode Show de l'objet Dialog. Toute la difficulté réside dans le choix de l'index de la collection Dialogs, lequel choisir ?

L'aide en ligne Excel VBA fournit la liste des boite de dialogue d'Excel (2003 : chercher DIALOGS, collection d'objets et en bas, Liste des Arguments). Voici les 1eres lignes :

xlDialogActivate window_text, pane_num
xlDialogActiveCellFont font, font_style, size, strikethrough, superscript, subscript, outline, shadow, underline, color, normal, background, start_char, char_count
xlDialogAddChartAutoformat name_text, desc_text
xlDialogAddinManager operation_num, addinname_text, copy_logical
xlDialogAlignment horiz_align, wrap, vert_align, orientation, add_indent
xlDialogApplyNames name_array, ignore, use_rowcol, omit_col, omit_row, order_num, append_last
xlDialogApplyStyle style_text

Dans ton cas, pour forcer l'ouverture de la boite de dialogue "Imprimer" avec toutes les options habituelles (choix de l'imprimante...), il faut écrire :

Application.Dialogs(xlDialogPrint).Show

[pgz]

Bonjour.

Si c'est l'utilisateur qui doit choisir et paramétrer l'imprimante, ouvrir la fenêtre de dialogue convient très bien.
Si c'est le code qui choisit, tu as la propriété activePrinter (de l'application ou de la méthode PrintOut).
Pour paramétrer l'impression, regarde la classe PageSetup des Worksheets.

Cordialement,

PGZ