Collate:=True par defaut dans le xlDialogPrint ?

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