macro printbutton sheets 11 t/m 16

[Timleenders]

Hallo,

Ik wil middels een printbutton op sheet 1 graag bewerkstelligen dat door middel van een klik sheet 11 t/m 16 worden afgedrukt.

Op dit moment heb ik al een knop die hetzelfde doet maar dan voor het hele document. De macro die hierbij hoort is:

Private Sub CommandButton1_Click()
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
End Sub

Nu vroeg ik mij af welke macro ik moet gebruiken om slechts een aantal sheets af te drukken zoals hierboven voorgesteld.

Alvast zeer bedankt!

 

[Wigi]

Private Sub CommandButton1_Click()
    
    Dim i As Integer
    
    For i = 11 To 16
        Worksheets(i).PrintOut Copies:=1, Collate:=True
    Next
    
End Sub

 

[Roncancio]

Wat korter:

Private Sub CommandButton1_Click()
ActiveWorkbook.PrintOut from:=11, To:=16, Copies:=1, Collate:=True
End Sub

Met vriendelijke groet,


Roncancio

 

[Timleenders]

Hartstikke bedankt voor de snelle reactie, maar ik krijg nog steeds een foutmelding.

Maar misschien heb je iets aan de bijlage. Er zitten namelijk meer macro's in.

Alvast bedankt!

 

[Wigi]

Bekijk niet meer mijn voorstel, maar wel dat van Roncancio. PrintOut kan je enkel gebruiken voor bestanden, niet voor tabbladen blijkbaar.

 

[Timleenders]

Bedankt!!

 

[Wigi]

Zet dan maar de vraag op opgelost, net als de 3 andere vragen die je hier op Helpmij reeds gesteld hebt.