printen

[Boerman]

Is het mogelijk om alle tabbladen te printen die een gedeelte van dezelfde omschrijving bevatten. Voorbeeld hieronder.

SiteA
SiteB

Dus printen van alle tabbladen die als omschrijving "Site" bevatten.

Boerman

 

[snabbi]

voilla

Sub alleTabladen()
Dim i As Integer
Dim j As Integer
'i heeft het aantal tabbladen
i = Sheets.Count
'j telt van 1 tot i
j = 1
While j <= i
'hier kijken we of Site in de naam van het tabblad zit
If InStr(Sheets(j).Name, "Site") Then
'en als het er in zit gaan we het uitprinten
Sheets(j).Active
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
j = j + 1
Wend
End Sub