Printfunctie in excel als macro II

[sjoerd81]

Hallo,

Ik dien een aantal ontvangstbevestigingsformulieren, voor verschillende personen, uit te printen. Dit aantal kan variëren van 1 tot max 25 personen.Dus bij drie personen heb ik drie printjes nodig en bij vijftien personen vijftien printjes (geen kopieën!) In de kolommen G tm W staan deze formulieren.
Met de VLOOKUP functie bepaal ik in cel Z2 het afdrukbereik.

Vooralsnog heb ik deze macro:
ActiveSheet.PageSetup.PrintArea = Range("Z2")

Deze macro is niet volledig. Mijn VBA kennis is echter van een dusdaning niveau dat ik hier niet uit kom. Wie kan mij helpen met deze macro?

Alvast bedankt
Sjoerd

 

[sjoerd81]

Niemand die me kan helpen?

Met de onderstaande macro ben ik al een eind op weg.

ActiveWindow.SelectedSheets.PrintOut
Range("Z2").Select

Alleen worden nu steeds alle pagina's uitgeprint, terwijl dat niet de bedoeling is.

Wat doe ik fout?

 

[Hoornvan]

sjoerd81,

Kijk hier eens misschien zit het antwoord erbij.

 

[sjoerd81]

Hoornvan bedankt voor je reactie. Ik heb inmiddels al vanalles geprobeerd, maar het wil me maar niet lukken. Ik word er een beetje tureluur. Zo moeilijk kan het toch niet zijn. Welke ervaren vba'er helpt mij?