Afdrukken op A4 (liggend)

[Evelthoven]

Is er iemand die onderstaande code kan aanpassen ?
Wat ik graag wil is dat ik van Blok 1, 2, 3 en 4 aparte afdrukken krijg op elk een A4 en dan liggend. Tot nu toe gaat het goed, maar alles is erg klein.

Wat ik eigenlijk wil is dat elk blok zo groot mogelijk wordt afgedrukt, zodat het toch nog enigszins leesbaar is.

Sub printeninblokken2()
ActiveSheet.PageSetup.Orientation = xlLandscape

Set Blok1 = Application.Union(Range("A1:K34"), Range("L1:AY34"))
Blok1.PrintOut
'Chr (10)
Set Blok2 = Application.Union(Range("A1:K34"), Range("BH1:DC34"))
Blok2.PrintOut
Chr (10)
Set Blok3 = Application.Union(Range("A1:K34"), Range("DD1:ES34"))
Blok3.PrintOut
Chr (10)
Set Blok4 = Application.Union(Range("A1:K34"), Range("ET1:GL34"))
Blok4.PrintOut
End Sub

Alvast bedankt voor jullie reacties.

Gr.
Eric

 

[madmuppet]

voeg dit even toe:

.FitToPagesWide = 1
.FitToPagesTall = 1

 

[Evelthoven]

Bedankt,

Probleem opgelost