VBA - PrintPreview af udvalgte ark

Hej

Jeg har denne kode, som vælger ark, som er "gyldig" i celle R2, som åbner vis udskrift dialogboksen.
Men den åbner én dialogsboks pr. ark (og der er mange) som er "gyldig" i celle R2. Kan disse samles til én udskrift, så man kun får en dialogboks og dermed en udskrift med fortløbende sidenummerering?

Sub UdskrivDV()

Dim sht As Worksheet

For Each sht In ThisWorkbook.Worksheets
If sht.Range("R2").Value = "Gyldig" Then sht.PrintPreview


Next sht

End Sub

Vh CHC