berijk in meerdere tabbladen printen

[adkliko]

Sub CommandButton1_Click()
    With ActiveSheet
        .PageSetup.PrintArea = "$a$1:$u$68"
        .PrintOut , Copies:=1
   .PageSetup.PrintArea = "$a$1:$k$68"
        .PrintOut , Copies:=1
    End With
End Sub

bovenstaande code staat in 1 werkblad.
Echter zitten er 25 werkladen in.

Hoe kan ik met 1 button het bereik in alle 25 werkbladen uitprinten

 

[danny147]

Beste adkliko

Heb je al eens geprobeerd met de functie "Array"

Vb.

Sheets(Array("Blad1", "Blad2", "Blad3")).Select

Groetjes Danny. :thumb:

 

[HSV]

Probeer het zo eens.

Private Sub CommandButton1_Click()
Dim Ws As Integer
On Error GoTo einde
For Ws = 1 To 25
With Worksheets(Ws)
        .PageSetup.PrintArea = "$a$1:$u$68"
        .PrintOut , Copies:=1
        'beter is even .Printpreview
   .PageSetup.PrintArea = "$a$1:$k$68"
        .PrintOut , Copies:=1
        'beter is even .Printpreview
    End With
    Next
einde:
End Sub

Even deze regel: .PrintOut , Copies:=1 als tekst te markeren, en .PrintPreview te gebruiken als test.

 

[adkliko]

beste harry.

bij deze nog bedankt voor de oplossing.

groetjes marcel