Macro voor een afdrukopdracht

[Evelthoven]

Goedemiddag,

Ik heb een werkblad met gegevens in de cellen A1 t/m GL34

Als ik deze info wil afdrukken dan wordt alles erg klein en onleesbaar, daarom zou ik graag alsvolgt willen printen:

alles op een A4tje onder elkaar, liggend

Cel A1 t/m K34 steeds als terugkerende kolommen (als een soort blok), dus links op de pagina.

Schematisch moet het er alsvolgt uit komen zien:

Blok met cellen A1 t/m K34 blok met cellen L1 t/m BG34
lege regel
Blok met cellen A1 t/m K34 blok met cellen BH1 t/m DC34
lege regel
Blok met cellen A1 t/m K34 blok met cellen DD1 t/m ES34
lege regel
Blok met cellen A1 t/m K34 blok met cellen ET1 t/m GL34
lege regel

Ik denk dat dit mbv. een macro ingesteld moet worden.

Kan iemand mij helpen ?

Alvast bedankt

Eric

 

[Cobbe]

Ik een manier uitgedokterd zoals het volgens mij goed komt.
Zal wel nog een betere en/of elegantere manier bestaan, maar daar ben je niet ver mee als je ze niet kent.

Sub printeninblokken()
ActiveSheet.PageSetup.Orientation = xlLandscape
Range("Kopstuk").PrintOut
Range("Blok2").PrintOut
Range("Kopstuk").PrintOut
Range("Blok3").PrintOut
Range("Kopstuk").PrintOut
Range("Blok4").PrintOut
Range("Kopstuk").PrintOut
Range("Blok5").PrintOut
End Sub

Ik heb alle bereiken een naam gegeven.

Cobbe

 

[Evelthoven]

Bedankt voor je reactie.
Het is bijna zoals ik het graag wil, maar nog niet helemaal.
Nu wordt elke range op een nieuw blad afgedrukt, maar de bedoeling is dat alle ranges op hetzelfde blad worden afgedrukt, dus ik bedoel eigenlijk:

Kopstuk Blok2
lege regel
Kopstuk Blok3
lege regel
Kopstuk Blok4
lege regel
Kopstuk Blok5
lege regel

Ik hoop dat het lukt.

gr.
Eric

 

[Cobbe]

Ik zal wel iets missen zeker, maar ik snap niet hoe je zo'n groot gebied op 1 A4 wil krijgen.

Ik heb nu wel code om voor elk blok 1 A4 te printen.

Je hebt dan die namen niet meer nodig.

Sub printeninblokken()
ActiveSheet.PageSetup.Orientation = xlLandscape

Set Blok1 = Application.Union(Range("A1:K34"), Range("L1:BG34"))
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

Ik hoor het wel.

CObbe

 

[Evelthoven]

Bedankt,

Het probleem is grotendeels opgelost, kan hier wel verder mee.

Gr.
Eric