Print udvalgte ark fra projektmappe - markeret som gruppe

Hvad med
Sub PrintArk()
For Each ws In ActiveWorkbook.Worksheets
If ws.Range("U2") = "P" Then
  ws.PrintOut Copies:=1, Collate:=True
End If
Next
End Sub

Hvis de skal komme med sidenummereringen fortløbende, så

Sub PrintArk()
    Dim Ark As Variant
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Range("U2") = "P" Then
            Ark = Ark & ws.Name & Chr(44)
        End If
    Next
    Ark = Left(Ark, Len(Ark) - 1)
    A = Split(Ark, ",")
    Select Case UBound(A)
    Case 0: Sheets(Array(A(0))).Select
    Case 1: Sheets(Array(A(0), A(1))).Select
    Case 2: Sheets(Array(A(0), A(1), A(2))).Select
    Case 3: Sheets(Array(A(0), A(1), A(2), A(3))).Select
    Case 4: Sheets(Array(A(0), A(1), A(2), A(3), A(4))).Select
    'fortsæt selv med flere, hvis du vælger mere end 5 ark
    End Select
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

en anden mulighed:

Sub ArkValg()

Dim myArr() As Long
Dim tal, sh, Antal

Antal = ActiveWorkbook.Worksheets.Count
ReDim myArr(1 To Antal)

For sh = 1 To Antal
If Sheets(sh).Range("U2") = "P" Then
  tal = tal + 1
  myArr(tal) = sh
End If
Next

ReDim Preserve myArr(1 To tal)
Sheets(myArr).Select

ActiveWindow.SelectedSheets.PrintPreview

End Sub

Hej Kabbak og Excelent. Begge løsninger virker perfekt.
Alletiders - og tusind tak. Smid et svar

ok velbekom - her er mit

et svar ;-))

Mon ikke de 2 kan koges sammen til

Sub ArkValg()
For Each ws In ActiveWorkbook.Worksheets
        If ws.Range("U2") = "P" Then
            ark = ark & ws.Name & Chr(44)
        End If
    Next
    ark = Left(ark, Len(ark) - 1)
Sheets(Split(ark, ",")).Select
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Jeg har ikke nået at checke det sidste forslag fra Kabbak