Een for/next - lus

[wieter]

Private Sub CommandButton2_Click()
ActiveSheet.PrintOut
End Sub

Hallo,
Wil iemand in bovenstaande code een for-next lus toevoegen, zodat het blad 2x afgedrukt wordt?
Ik had wel enige ervaring in de basic-syntax van vroeger, maar die verschilt grondig met VBA.
Dank aan helpers Wieter

 

[Wigi]

Private Sub CommandButton2_Click()
ActiveSheet.PrintOut [B]copies:=2[/B]
End Sub

In de help files staan de argumenten va deze methode.

 

[wieter]

Bedankt Wim