Problème d'aperçu avant impression.

noviceAG

XLDnaute Impliqué

• 14 Octobre 2009

• #2

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

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 14 Octobre 2009

• #3

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 -)

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 14 Octobre 2009

• #4

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

 

Vote positif 0 Vote négatif

P

pat12

XLDnaute Occasionnel

• 14 Octobre 2009

• #5

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

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 15 Octobre 2009

• #6

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

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 15 Octobre 2009

• #7

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

 

Dernière édition: 15 Octobre 2009

Vote positif 0 Vote négatif

P

pat12

XLDnaute Occasionnel

• 15 Octobre 2009

• #8

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.

 

Vote positif 0 Vote négatif

P

pat12

XLDnaute Occasionnel

• 16 Octobre 2009

• #9

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.

Code:

[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]

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 16 Octobre 2009

• #10

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.

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 16 Octobre 2009

• #11

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

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 16 Octobre 2009

• #12

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

 

Vote positif 0 Vote négatif

P

pat12

XLDnaute Occasionnel

• 20 Octobre 2009

• #13

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

 

Vote positif 0 Vote négatif