Choix de page en impression

degap05 · 10 Décembre 2008

Bonjour à tous et à toutes,

Voici le code qui me permet d'imprimer un imprimé. Celui-ci contient trois feuilles Excel.

Pensez-vous qu'il soit possible de pouvoir choisir l'impression de la première feuille seulement, ou des pages 1 et 2, ou 1,2 et 3.
Là ou j'en suis les 3 feuilles sont imprimées systématiquement, ce que je ne souhaite pas.

'Imprimer l'imprimé de mise en dotation
Sub ImpressionDotation_Click()
Application.ScreenUpdating = False
Sheets("Dotation").Visible = True
Worksheets("Dotation").Select
Sheets("Dotation").Unprotect
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then ActiveSheet.PrintOut
Sheets("Dotation").Protect
Application.ScreenUpdating = True
Sheets("Dotation").Visible = False
End Sub

Merci de votre aide.

TheLio · 10 Décembre 2008

Re : Choix de page en impression

Hello.
Tu peux modiffier ton code ainsi:

'Imprimer l'imprimé de mise en dotation
Sub ImpressionDotation_Click()
Application.ScreenUpdating = False
Sheets("Dotation").Visible = True
Worksheets("Dotation").Select
Sheets("Dotation").Unprotect
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then ActiveSheet.PrintOut From:=2, To:=2, Copies:=1
Sheets("Dotation").Protect
Application.ScreenUpdating = True
Sheets("Dotation").Visible = False
End Sub

A++
Lio

job75 · 10 Décembre 2008

Re : Choix de page en impression

Bonjour,

D'une manière ou d'une autre (InputBox, Range), définissez les variables p1 et p2 et écrivez :

Code:

If Application.Dialogs(xlDialogPrinterSetup).Show = True Then ActiveSheet.PrintOut From:=p1, To:=p2

Edit : salut TheLio

A+

degap05 · 10 Décembre 2008

Re : Choix de page en impression

Merci à TheLio et à job75,
Vos solutions fonctionnent, mais je ne sais pas faire:
"D'une manière ou d'une autre (InputBox, Range), définissez les variables p1 et p2"

C'est surement la que réside la solution puisque j'aimerais pouvoir choisir.

Encore un peu d'aide SVP.

job75 · 10 Décembre 2008

Re : Choix de page en impression

Re,

En fait, je n'avais pas bien regardé. Au lieu de votre boîte de dialogue (qui choisit l'imprimante), affichez la boîte "Imprimer" qui permet de faire tout ce qu'on veut, donc de choisir l'imprimante, les pages, et d'imprimer :

Code:

Application.Dialogs([COLOR="Red"]xlDialogPrint[/COLOR]).Show

Edit : on peut toujours imprimer une feuille protégée, inutile donc d'ôter la protection. Et puis, masquer la feuille et afficher la page de départ avant la mise à jour de l'écran...

A+

degap05 · 10 Décembre 2008

Re : Choix de page en impression

Merci job75,

Application.Dialogs(xlDialogPrint).Show
Cela fonctionne parfaitement avec les imprimantes réseau.

Je suis entièrement satisfait.

A une prochaine fois.

Choix de page en impression

degap05

XLDnaute Impliqué

TheLio

XLDnaute Accro

job75

XLDnaute Barbatruc

degap05

XLDnaute Impliqué

job75

XLDnaute Barbatruc

degap05

XLDnaute Impliqué

Discussions similaires