definition impression

[eduraiss]

Bonjour le forum
j'ai un problème au niveau de l'impression
J'ai un code (ci_dessous) qui me permet de faire plusieurs copies (trois copies) mais il arrive parfois que si une colonne est agrandie l'impression se fait en double (donc 6 feuilles)

comment faire que même si une colonne est agrandie je sorte qu'un trois feuilles
merci a vous

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

'impression Z1B
Range("B41:J89").Select
ActiveSheet.PageSetup.PrintArea = "$B$41:$J$89"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("B2").Select

'impression Z3
Range("B90:J149").Select
ActiveSheet.PageSetup.PrintArea = "$B$90:$J$143"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("B2").Select

 

[eduraiss]

Re : definition impression

Re

Ok merci a toi, j'essais avec ce systheme

Merci

Cordialement

 

[Janot95]

Re : definition impression

Bonjour,

Certes un vieux sujet, mais d'actualité pour moi...

Je viens de tester cette macro sous MSO2003... (Il faudrait que ça fonctionne également sous MSO2010)
__________
Sub Macro3()
Range("b4:k38").Select
With ActiveSheet.PageSetup
.PrintArea = "$B$4:$K$38"
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

ActiveWindow.SelectedSheets.PrintPreview
' ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True

Range("B4").Select
End Sub
__________
J'ai rajouté 1 ligne pour tester avant d'imprimer
(ActiveWindow.SelectedSheets.PrintPreview)

Mais, je me retrouve toujours avec 4 pages !!!
Pourké ???

Merci pour vos réponses.
Cordialement.

 

[Janot95]

! C'est bon, j'ai trouvé pourquoi...

Pour info...

Il suffit de rajouter la ligne suivante :
.Zoom = False
... juste après ".PrintArea..."

Merci quand même à Vous...

@+Janot