Imprimer la page

M

MacMac

XLDnaute Occasionnel

• 5 Décembre 2006

• #2

Re : Imprimer la page

Bonjour ,

moi je possede un userform ceer par une personne de se forum que je remerci tres bien il est exelent pour les impressions de page

j'espere que seci t'irais pour le mieux je te joint le fichier

bonne continuations

MacMac

 

Pièces jointes

• essai.xls

  47 KB · Affichages: 113
• essai.xls

  47 KB · Affichages: 116
• essai.xls

  47 KB · Affichages: 111

Vote positif 0 Vote négatif

D

Djam

Guest

• 5 Décembre 2006

• #3

Re : Imprimer la page

Salut à toi et merci.

En fait, je préfèrerai placer tout simplement un bouton ou une îcone sur chaque feuille à partir duquel on pourrait imprimer la feuille où le bouton est située.

Par exemple :

Je suis sur la page 24 et j'effectue divers enregistrements comptables et je souhaiterai imprimer le tableau que je viens de compléter. Et bien, je souhaiterai avoir un bouton ou un îcone qui, lorsque j'appuie dessus, il m'imprimer cette page 24.

Le but étant d'avoir un bouton pour chaque page et éviter d'aller dans "fichier/imprimer...etc"

Merci quand même pour ta proposition, c'est pas mal du tout...

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 5 Décembre 2006

• #4

Re : Imprimer la page

Bonjour

Ci joint un exemple

JP

 

Pièces jointes

• impression.xls

  24.5 KB · Affichages: 96
• impression.xls

  24.5 KB · Affichages: 107
• impression.xls

  24.5 KB · Affichages: 94

Vote positif 0 Vote négatif

D

Djam

Guest

• 5 Décembre 2006

• #5

Re : Imprimer la page

Merci mais (je suis chiant !!!) en fait, je souhaite avoir un bouton "impression" pour chaque page de chaque feuille d'un dossier excel.

A moins que ça ne soit moi qui n'est pas compris précisement le sens du fichier joint ! C'est possible aussi !

 

Vote positif 0 Vote négatif

Feutrine

XLDnaute Occasionnel

• 5 Décembre 2006

• #6

Re : Imprimer la page

Bonjour à tous,
MacMac et jp14, si j'ai bien compris, vos macros servent à imprimer la feuille en cours. Or, la demande de Djam (qui devient la mienne par la même occasion) est la page en cours (exemple : feuille1, page 24).

Merci de vos réponses.
Amicalement
Feutrine

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 5 Décembre 2006

• #7

Re : Imprimer la page

Bonsoir

Ci joint une macro pour imprimer une page d'une feuille.
A tester

JP

 

Pièces jointes

• Module2.zip

  863 bytes · Affichages: 59
• Module2.zip

  863 bytes · Affichages: 56
• Module2.zip

  863 bytes · Affichages: 56

Vote positif 0 Vote négatif

Feutrine

XLDnaute Occasionnel

• 5 Décembre 2006

• #8

Re : Imprimer la page

Re,
Merci beaucoup jp, c'est déjà très bien de cette façon. Mais avec ton code, ça sous-entend que l'on connaisse le n° de page (si on est en mode "apercu des sauts de page, pas de problème).
Donc, pour faire mieux que bien, est-t-il possible que si la cellule sélectionnée est par exemble C44 le code "reconnaisse" tout seul comme un grand que nous sommes en page 2 ?
Je sais, je suis exigeante !
Un énorme merci.

Amicalement
Feutrine

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 7 Décembre 2006

• #9

Re : Imprimer la page

Bonsoir Feutrine, le forum

Ci joint une macro qui indique la page à imprimer en fonction de la cellule active.

C'est une macro à tester et surtout à amméliorer.

JP

 

Pièces jointes

• sautdepage.zip

  18.4 KB · Affichages: 51

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 7 Décembre 2006

• #10

Re : Imprimer la page

salut à tous

avec l'aide de jp14, module 2 et saut de page, tu peux faire un amalgame des deux, avec saut de pade tu recupere de n° de la page a imprimer et avec module deux en suppriment les saisies, tu imprimes la page voulue

a+, je suis le fil, tres interressé.

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 8 Décembre 2006

• #11

Re : Imprimer la page

Bonsoir

Ci joint un fichier avec une macro simplifiée et corrigée en partie.
Le nombre de pages à imprimer est parfois faux (.HPageBreaks.Count ne renvoie pas toujours la bonne valeur), ce qui entraine une mauvaise numérotation des pages.

Je n'ai pas trouvé comment corriger cette mauvaise indication.
Pour utiliser la macro, un message indique la page à imprimer et le nombre de page.

JP

PS pour que la macro fonctionne correctement il faut supprimer les lignes
Application.ScreenUpdating = False
Application.ScreenUpdating = true

Ajout de contrôle pour vérifier si la zone d'impression existe et si la cellule se trouve dans la zone d'impression

Corrections à apporter à la macro "verifsidansplage"
rajouter :
Dim pos As Long
modifier les deux lignes :
zoneimp2a = Mid(plage, pos + 1, Len(plage) - (pos))
zoneimp1a = Mid(plage, 1, pos - 1)
( remplacement de zoneimp par plage)

 

Pièces jointes

• sautdepagev4.zip

  30.1 KB · Affichages: 50

Dernière édition: 28 Décembre 2006

Vote positif 0 Vote négatif