Réglages d'impression - Imprimer la page non affichée !

[Willy]

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

 

[Zon]

Salut,

Oui tu peux sélectionner une autre page pour la 2 eme tu mets de 2 à 2 . Mais un paramètre nommé je ne crois pas à moins que tu actives tout simpliment ta feuille formulaires_formation avant de lancer la dialogs

A+++

 

[Willy]

Bonsoir Zon,

Merci de ton aide.
C'est ce que je craignais !!
je pense que je vais afficher temporairement la page à imprimer puis revenir sur le sommaire.

Merci encore
Willy