Printfunktion

Her er koden der printer alt ud, inkl. de sider jeg ønsker at udelade:

Sheets(Array("Forside", "Kompetencemodel", "Spørgsmål", "Diagrammer", "Kommentarer")).Select
    Sheets("Forside").Activate
 
    Dim filnavn As String
    filnavn = Sheets("Trin 1").Range("C6").Value
 
    ActiveWindow.SelectedSheets.PrintOut copies:=1, preview:=False, ActivePrinter:="HP Color LaserJet 8500 PS", _
    PrintToFile:=True, PrToFileName:="C:\RAPPORTER\" & filnavn & ".ps", collate:=True
 
    Sheets("Trin 1").Select
    Range("A1:A1").Select

I arket "Spørgsmål" ønsker jeg så at udelade en side, hvis en given celle = "".
I arket "Diagrammer" ønsker jeg at udelade hver af de sider ud af 10 mulige, hvor en given celle = 0.

Arkene skal udskrives i array-sætningens rækkefølge...

Lukkes