Problème d'aperçu avant impression.

[pat12]

Bonjour j’ai une feuille qui comporte un nombre de ligne (jamais le même nombre) j’ai un bouton qui me donne un aperçu avant impression.
Quand je clique sur le bouton de l’aperçu j’ai 8 pages alors que tout rentre sur deux pages.
1. Y-a-t-il un code pour ne pas afficher les lignes vide.
2. Et pour répéter la ligne d’en-tête (ligne 8 de A à M) sur toutes les pages de l’aperçu.
Merci

 

[noviceAG]

Re : Problème d'aperçu avant impression.

Bonjour Pat, le Forum,
Ne peux-tu mettre ton fichier pour que l'on voie ?

 

[chris]

Re : Problème d'aperçu avant impression.

Bonjour

Il y a probablement des données ou des mises en forme en dehors du tableau.

Sélectionne toutes les colonnes supposées vides et supprime les idem pour les lignes. Attention Supprimer et non vider (CTRL -)

 

[jeanpierre]

Re : Problème d'aperçu avant impression.

Bonjour pat12, chris, noviceAG,

Bises chris.

Pour ta seconde question :

Menu Fichier/Mise en page, onglet Feuille et dans Lignes à répéter en haut, tu selectionnes ta ligne 8 et Ok.

Bonne journée.

Jean-Pierre

 

[pat12]

Re : Problème d'aperçu avant impression.

Ok noviceAG voici un lien pour le télécharger il ne peut pas passer par le forum.
dans la page recherche clique sur un des bouton de couleur ensuite sur le bouton loupe et tu verra mon problème.
le code pour déverrouillé les feuilles est 654321
Merci.

Ce lien n'existe plus

 

[noviceAG]

Re : Problème d'aperçu avant impression.

Bonjour Pat, Jeanpierre, Chris, le Forum,
Dis-moi si cela te convient :

http://www.cijoint.fr/cjlink.php?file=cj200910/cijUWCFpec.zip

En te souhaitant bonne continuation

 

[noviceAG]

Re : Zone d'impression variable

Code Vba :

Private Sub ZonImpVar_Click()
'Merci à Philipp et et Kim
Dim DerLig As Integer
Dim DerCol As Integer
DerLig = Range("B65536").End(xlUp).Row
DerCol = Range("IV2").End(xlToLeft).Column
ActiveSheet.PageSetup.PrintArea = Range(Cells(8, 13), Cells(DerLig, DerCol)).Address 'Ligne 8 Colonne MActiveWindow.View = xlPageBreakPreview
'Si tu veux que le macro imprime directement, enlève le signe devant la ligne ci-dessous
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Bonne fin de journée à toutes et à tous

 

[pat12]

Re : Zone d'impression variable

C'est très bien noviceAG j'ai l'aperçu des sauts de page qui me donne l'exemple et quand j'imprime j'ai que les pages souhaitez.
Encore merci.

 

[pat12]

Re : Problème d'aperçu avant impression.

Bonjour j'ai oublié si je veux l'aperçu que entre la colonne B et M je n'ai pas trouvé le code.
Le code de noviceAG est super mais il par de A à M j'ai une feuille ou je ne veux pas prendre la première colonne A
merci.

[COLOR=#0000ff]Private Sub[/COLOR] ZonImpVar_Click()
[COLOR=green]'Merci à Philipp et et Kim[/COLOR]
[COLOR=blue]Dim [/COLOR]DerLig [COLOR=blue]As Integer[/COLOR]
[COLOR=blue]Dim [/COLOR]DerCol [COLOR=blue]As Integer[/COLOR]
DerLig = Range("B65536").End(xlUp).Row
DerCol = Range("IV2").End(xlToLeft).Column
ActiveSheet.PageSetup.PrintArea = Range(Cells(8, 13), Cells(DerLig, DerCol)).Address [COLOR=green]'Ligne 8 Colonne M[/COLOR]ActiveWindow.View = xlPageBreakPreview
[COLOR=green]'Si tu veux que le macro imprime directement, enlève le signe devant la ligne ci-dessous[/COLOR]
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
[COLOR=blue]End Sub[/COLOR]

 

[noviceAG]

Re : Problème d'aperçu avant impression.

Re,
Regarde ce fil :

http://www.excel-downloads.com/forum/35682-definir-une-zone-dimpression-variable.html

C'est celui qui m'a permis de te répondre, pour un plus, je ne suis pas compétent hélas.
Bonne soirée.

 

[noviceAG]

Re : Problème d'aperçu avant impression.

Re,
Un essai :
Cijoint.fr - Service gratuit de dépôt de fichiers

Private Sub Image2_Click()
'Merci à Philipp et et Kim
Dim DerLig As Integer
Dim DerCol As Integer
DerLig = Range("B65536").End(xlUp).Row
DerCol = Range("IV2").End(xlToLeft).Column
Application.ScreenUpdating = False
ActiveSheet.PageSetup.PrintArea = Range(Cells(8, 13), Cells(DerLig, DerCol)).Address 'Ligne 8 Colonne M
'Je masque la colonne A
Columns("A:A").Select
Selection.EntireColumn.Hidden = True
'Met le signe ' devant la ligne ci-dessous si tu ne veux pas de Prévisualisation
ActiveWindow.View = xlPageBreakPreview
'Si tu veux que le macro imprime directement, enlève le signe ' devant la ligne ci-dessous
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'Je réaffiche la colonne A
Cells.EntireColumn.Hidden = False
Range("A8").Select
Application.ScreenUpdating = True
End Sub

Bon Week end

 

[noviceAG]

Re : Problème d'aperçu avant impression.

Re,
Tu mets :
si je veux l'aperçu que entre la colonne B et M
j'ai une feuille ou je ne veux pas prendre la première colonne A
Il te faudra changer le nom de la macro Private Sub Image2_Click() et l'associer au bouton de ta feuille pour éviter un conflit dans le Vba
Au plaisir

 

[pat12]

Re : Problème d'aperçu avant impression.

Ok merci a tous j'ai réalisé ce que je souhaité, mais avec votre soutien.
Bonne journée et encore Merci.
Pat12