lave udskrift med forskellige ark

Sub prt()
Dim t
For t = 1 To 5
If Sheets(1).Cells(t + 111, "H") = True Then Sheets(t).PrintPreview
Next
End Sub

ja, nu er jeg nødt til at komme med en lille tilståelse.
Jeg skrev at arkene hed ark1-5, men gjorde det for nemheds skyld.
Mine 5 ark hedder istedet for:
forside, indholdsfortegnelse, diverse, tekst, tal

Hvordan ser koden så ud?

Arkene har ud over et alm navn også et indeks nummer
Arket længst til venstre har nummer 1 og så fremdeles

i hvilket ark har du i cellerne H112:H116 sand/falsk værdierne ?

det ligger i ark4 "stam"
Men de efter følgende ark som skal udskrives ligger ikke umiddelbart i nr. rækkefølge.
Er det et problem?

koden blir bare lidt længere:-)

Sub prt()
Application.ScreenUpdating = False
If Sheets("stam").Cells(112, "H") = True Then Sheets("forside").PrintPreview
If Sheets("stam").Cells(113, "H") = True Then Sheets("indholdsfortegnelse").PrintPreview
If Sheets("stam").Cells(114, "H") = True Then Sheets("diverse").PrintPreview
If Sheets("stam").Cells(115, "H") = True Then Sheets("tekst").PrintPreview
If Sheets("stam").Cells(116, "H") = True Then Sheets("tal").PrintPreview
Application.ScreenUpdating = True
End Sub

Jep, nu markerer den de ark den skal, men....
Den viser dem som enkelte ark. (5 forskellige visninger)
Den skal gerne "samle arkene sammen" så den viser alle siderne i alle arkene sammenhængene.
Det har noget at gøre med sidetal.

Sub prt()
Dim Ark As String, A
Application.ScreenUpdating = False
If Sheets("stam").Cells(112, "H") = True Then Ark = "forside" & Chr(44)
If Sheets("stam").Cells(113, "H") = True Then Ark = Ark & "indholdsfortegnelse" & Chr(44)
If Sheets("stam").Cells(114, "H") = True Then Ark = Ark & "diverse" & Chr(44)
If Sheets("stam").Cells(115, "H") = True Then Ark = Ark & "tekst" & Chr(44)
If Sheets("stam").Cells(116, "H") = True Then Ark = Ark & "tal" & Chr(44)
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
End Select
ActiveWindow.SelectedSheets.PrintPreview
Application.ScreenUpdating = True
End Sub

mon ikke det er løsningen :-)

jo, jeg har lige tjekket det.
Det virker alt for godt.
Mange tak for hjælpen.

Får jeg et svar :o)

ok her et fra mig
og velbekom

.