W
Willy
Guest
Bonjour le forum,
La procédure suivante permet à l'utilisateur soit d'imprimer directement la feuille FORMULAIRE_FORMATION avec les réglages d'impression par défaut soit de sélectionner les réglages.
Private Sub monBoutonImprimer()
Dim Question
Const Mess1 = "Voulez-vous changer les réglages d'impression ?"
Const Mess2 = "Si vous cliquez NON, l'impression sera lancée avec les réglages actuels !"
Question = MsgBox(Mess1 & vbLf & vbLf & Mess2, vbYesNoCancel, "DEMANDE DE STAGE - IMPRESSION")
If Question = vbYes Then
Application.Dialogs(xlDialogPrint).Show
End If
If Question = vbNo Then Sheets("FORMULAIRE_FORMATION").PrintOut Copies:=1, Collate:=True
If Question = vbCancel Then Exit Sub
end Sub
Mon problème est que si l'utilisateur choisi de régler l'impression, lorsqu'il imprime c'est la page en cour qui est imprimée !!
Moi je lance cette procédure à partir de la page sommaire.
Est t'il possible donc en lançant Application.Dialogs(xlDialogPrint).Show d'imprimer une page autre que la page en cour ?
Merci de votre aide
Bonne fin de journée
Willy
La procédure suivante permet à l'utilisateur soit d'imprimer directement la feuille FORMULAIRE_FORMATION avec les réglages d'impression par défaut soit de sélectionner les réglages.
Private Sub monBoutonImprimer()
Dim Question
Const Mess1 = "Voulez-vous changer les réglages d'impression ?"
Const Mess2 = "Si vous cliquez NON, l'impression sera lancée avec les réglages actuels !"
Question = MsgBox(Mess1 & vbLf & vbLf & Mess2, vbYesNoCancel, "DEMANDE DE STAGE - IMPRESSION")
If Question = vbYes Then
Application.Dialogs(xlDialogPrint).Show
End If
If Question = vbNo Then Sheets("FORMULAIRE_FORMATION").PrintOut Copies:=1, Collate:=True
If Question = vbCancel Then Exit Sub
end Sub
Mon problème est que si l'utilisateur choisi de régler l'impression, lorsqu'il imprime c'est la page en cour qui est imprimée !!
Moi je lance cette procédure à partir de la page sommaire.
Est t'il possible donc en lançant Application.Dialogs(xlDialogPrint).Show d'imprimer une page autre que la page en cour ?
Merci de votre aide
Bonne fin de journée
Willy