werkblad(en) printen

[hstijnen]

Hoi,
Ik wil graag dynamisch werkbladen printen, via print preview.
code hiervoor is ongeveer:
Sheets(Array("blad1", "blad5")).PrintPreview

Hoe kan ik het array binnen de haakje dynamisch, mbv VBA, vullen? bv afhankelijk van een bepaalde waarde wil ik ook Blad3 in de preview hebben.

Idee?

 

[Wigi]

Zoiets

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    If ws.Name = "..." Then ws.PrintPreview
Next

Voorwaarde nog in te vullen en uit te breiden.

Wigi

 

[hstijnen]

Dan krijg je allemaal opeenvolgende printpreviews, die je allemaal apart naar de printer moet sturen.
Wat ik zou willen ziet er ongeveer zo uit:

dim lst as array
For Each ws In ThisWorkbook.Worksheets
    If ws.Name = "..." Then lst.Add(ws.Name)
Next
Sheets(lst).PrintPreview

 

[Wigi]

Hier zo dan:

Sub wigi()
    Dim ws As Worksheet
    Dim arrBladen() As String
    Dim iTeller As Integer
    
    iTeller = 0
    For Each ws In ThisWorkbook.Sheets
        'If ... = ... Then
            iTeller = iTeller + 1
            ReDim Preserve arrBladen(1 To iTeller)
            arrBladen(iTeller) = ws.Name
        End If
    Next
    
    Sheets(arrBladen).PrintPreview
End Sub

Wigi

 

[hstijnen]

prachtig. Bedankt