Collate:=True par defaut dans le xlDialogPrint ?

[kalenjiman]

Bonjour, j'ai crée une macro pour imprimer en PDF. Je souhaiterais activer par défaut l'option imprimer classeur entier avant l'affichage de mon xlDialogPrint(pour que les utilisateurs n'ai pas a le faire). La commande doit etre collate:=true mais je ne sais comment la placer dans mon code.

Pouvez vous me venir en aide, SVP ?


Private Sub CommandButtonOK_Click()

On Error GoTo Err1:
Application.ActivePrinter = "Adobe PDF sur Ne01:"
Application.Dialogs(xlDialogPrint).Show
Workbooks(classeur1).Close
Exit Sub
Err1:
On Error GoTo Err2:
Application.ActivePrinter = "Adobe PDF sur Ne02:"
Application.Dialogs(xlDialogPrint).Show
Workbooks(classeur1).Close
Exit Sub
Err2:
Application.ActivePrinter = "Adobe PDF sur Ne03:"
Application.Dialogs(xlDialogPrint).Show
Workbooks(classeur1).Close
Exit Sub

End Sub

 

[job75]

Re : Collate:=True par defaut dans le xlDialogPrint ?

Bonsoir kalenjiman,

Voyez en envoyant les touches de raccourci Alt+I (du moins sur Excel 2003) avant l'affichage de la boîte de dialogue :

SendKeys "%i"
'---------------------
Application.Dialogs(xlDialogPrint).Show

A noter que l'utilisateur peut toujours modifier cette option.

A+

 

[kalenjiman]

Re : Collate:=True par defaut dans le xlDialogPrint ?

ça marche a merveille. Merci