Macro werkbladen printen aan de hand van celwaarde

[vijg316]

Ik heb een macro gemaakt die alle werkbladen moet uitprinten aan de hand van de celwaarde in S1 (als celwaarde in s1 is gevuld, dan gaan printen) Nu wil ik graag dat elk werkblad ook zoveel keer wordt geprint als de celwaarde in S1. Als ik de macro draai dan wordt elk werkblad maar 1 keer uitgeprint, terwijl ik zou willen dat Blad1, 1 keer wordt geprint (celwaarde S1 =1) Blad 2 moet 2 keer worden geprint (want celwaarde S1 is in dat blad ook 2) enz.
Kan iemand mij hiermee helpen??

Sub printen()
Dim Sh As Worksheet
Dim aantpag As Integer
aantpag = Range("s1").Value
For Each Sh In ActiveWorkbook.Worksheets
If Sh.Range("s1").Value > 0 Then
Sh.PrintOut Copies:=aantpag
End If
Next
End Sub

 

[Cobbe]

Is deze te gemakkelijk?

Sub printen()
Dim Sh As Worksheet
Dim aantpag As Integer
aantpag = Range("s1").Value
 For Each Sh In ActiveWorkbook.Worksheets
  If Sh.Range("s1").Value > 0 Then
  Sh.PrintOut Copies:=Sh.Range("s1").Value
  End If
 Next
End Sub

 

[vijg316]

Het werkt!!
Hartstikke bedankt voor je zeer snelle reaktie.
Ik ben nog nog maar net begonnen met VBA, vandaar dus.
Nogmaals bedankt.

Post gaat op slot