definition impression

Staple1600

XLDnaute Barbatruc

• 9 Juillet 2007

• #2

Re : definition impression

Bonsoir

En nommant tes plages dynamiquement

cf recherche sur le forum

mot-clé: plage dynamique

un exemple extrait du forum

(Plage dynamique de nom Plage01 par rapport au nombre de lignes en G à partir de la cel G9

=DECALER('Feuille01'!$G$9:$G$9;;;NBVAL(Feuille01!$ G:$G))

Cliquez pour agrandir...

 

Dernière édition: 9 Juillet 2007

Vote positif 0 Vote négatif

B

ballmaster

XLDnaute Occasionnel

• 9 Juillet 2007

• #3

Re : definition impression

Essaie ca, à partir de ton code :

'impression Z1A
Range("B1:J40").Select
with ActiveSheet.PageSetup
.PrintArea = "$B$1:$J$40"
.FitToPagesWide = 1
.FitToPagesTall = 1ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("B2").Select

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 9 Juillet 2007

• #4

Re : definition impression

bonsoir a tous les deux
ballmaster ta ligne ci-dessous ne fonctionne pas elle s'affiche en rouge

.FitToPagesTall = 1ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True


merci a
A+

 

Vote positif 0 Vote négatif

B

ballmaster

XLDnaute Occasionnel

• 9 Juillet 2007

• #5

Re : definition impression

Autant pour moi

Celle-là fonctionne, j'ai testé

Sub test()
'impression Z1A
Range("B1:J40").Select
With ActiveSheet.PageSetup
.PrintArea = "$B$1:$J$40"
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("B2").Select
End Sub

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 9 Juillet 2007

• #6

Re : definition impression

Re

je joins un fichier avec ta macro

si j'élargis une colonne la zone d'impression varie elle aussi
A+

 

Pièces jointes

• eric.zip

  7.1 KB · Affichages: 58
• eric.zip

  7.1 KB · Affichages: 53
• eric.zip

  7.1 KB · Affichages: 51

Vote positif 0 Vote négatif

B

ballmaster

XLDnaute Occasionnel

• 9 Juillet 2007

• #7

Re : definition impression

Si tes colonnes restent de B à J, alors pas de problèmes

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 9 Juillet 2007

• #8

Re : definition impression

Re
je viens de faire une impression avec le fichier eric, mais avant j'ais agrandi la colonne G il me sort deux feuilles alors que je n'en voudrais qu'une

Merci

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 9 Juillet 2007

• #9

Re : definition impression

Bonjour
Dans le code qui imprime la plage, il faut
.FitToPagesWide = 1 'pour limiter à une page en largeur
.FitToPagesTall = False 'pour ne pas limiter le nombre en hauteur

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 9 Juillet 2007

• #10

Re : definition impression

RE
Bonsoir Chris

il doit y avoir un problème voir le fichier eric ci-dessus j'ai bien mis ce code mais si je bouge une colonne pour l'élargir la zone d'impression imprimera deux feuilles


Merci

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Juillet 2007

• #11

Re : definition impression

Re


Tu n'a pas essayer avec une plage de cellules nommée dynamiquement?

You could manage this by using a Dynamic Named Range, but if you want a VBA solution entirely try

Option Explicit

Sub SetPrintArea()
Dim PrintA As Range
Dim c As Long
'find the last used column in the range (Columns.Count)
'by working from the extreme right, the true last column is found,
'avoiding possible empty cells within that row
c = ActiveSheet.Cells(21, Columns.Count).End(xlToLeft).Column
'this will start at A21
Set PrintA = ActiveSheet.Range(Cells(21, 1), Cells(Rows.Count, c).End(xlUp))
PrintA.PrintPreview
End Sub

Cliquez pour agrandir...

 

Dernière édition: 9 Juillet 2007

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 9 Juillet 2007

• #12

Re : definition impression

Re

Bosoir Staple1600, non je ne sais comment faire
es ce que c'est de al définir par insertion nom?

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Juillet 2007

• #13

Re : definition impression

Re


Je cherche plus d'infos

Ps: j'ai édité mon précédent message

Il y un code VBA qui devrait pouvoir t'aider

Des infos sur les plages dynamiques

 

Dernière édition: 9 Juillet 2007

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 9 Juillet 2007

• #14

Re : definition impression

re

j'ai bien definie la zone avec la formule DECALERmais ensuite?


A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Juillet 2007

• #15

Re : definition impression

Re

Si tu as bien nommée ta plage de cellules nommée

si tu insères une colonne dans celle-ci

la zone nommée en tiendra compte automatiquement

alors dans ton code tu marques

ActiveSheet.PageSetup.PrintArea = [plagenommee]

 

Vote positif 0 Vote négatif