impression de pages avec un bouton de commande

[Luc]

Bonsoir,

j'ai plusieurs pages à chaque feuille d'un classeur et je voudrais incorporer un bouton de commande sur chaque page afin d'imprimer directement celle que je désire.
Comment dois-je procéder.
Je vous remercie par avance pour vos réponses.
Merci
Luc

 

[treza88]

bonjour Luc

Tu crée ton bouton sur la feuille est quand tu clique sur visualiser le code tu mets :

ActiveSheet.PrintOut

à l'interieur de la procedure et ça sur chaque feuille

 

[treza88]

bonjour Luc

Tu crée ton bouton sur la feuille est quand tu clique sur visualiser le code tu mets :

ActiveSheet.PrintOut

à l'interieur de la procedure et ça sur chaque feuille

 

[Luc]

bonsoir,
Je vous rermercie pour votre réponse, j'ai essayer ce code, mais cette procédure imprime la totalité des pages que possède la feuille.
Ce que je cherche c'est d'imprimer une page seule avec un bouton commande.
exemple : ma feuille compte 10 pages.
Je voudrais, si c'est possible incorporer sur ces dix pages un bouton commande pour pouvoir imprimer chacune isolément.
Comme la procédure Excel, mais en plus convivial.

Sincères salutations.
Luc

 

[Luc]

bonsoir,
Je vous rermercie pour votre réponse, j'ai essayer ce code, mais cette procédure imprime la totalité des pages que possède la feuille.
Ce que je cherche c'est d'imprimer une page seule avec un bouton commande.
exemple : ma feuille compte 10 pages.
Je voudrais, si c'est possible incorporer sur ces dix pages un bouton commande pour pouvoir imprimer chacune isolément.
Comme la procédure Excel, mais en plus convivial.

Sincères salutations.
Luc

 

[treza88]

bonjour

Ta zone d'impression pour une page correspond a quoi exactement?

 

[luc]

bonsoir,
ma Zone d'impression pour une de mes feuilles
correspond à A1:G165 qui me donne six pages, que j'ai voulu,formant ainsi des tableaux de sources différentes mais avec un format de présentation identique
je voudrais donc pouvoir imprimer chaque page à la demande en incorporant un bouton 'imprimer cette page'.
Encore merci de vouloir m'aider
Luc

 

[treza88]

Bonsoir

Pourquoi ne pas avoir mis chaque tableau sur des feuilles differentes si se sont des tableau independants sur chaque page.
Se serait plus facile à gerer.

 

[treza88]

Sinon tu peux essayer le code suivant pour le bouton de la page 1:

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1

et le codesuivant pour la page 2:

ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2

et ainsi de suite

 

[LUC]

Je veux remercie infiniment.
Ce code marche parfaitement.
Sincères salutations.
luc