Udskrivning af sider i bestemt rækkefølge

Hvis du har 35 forskellige ark i filen, kan du sætte dem i rækkefølge?

Er det 35 sider i et ark? Så kan du kun vælge om den skal skrive siderne vandret eller lodret (eks: side 1 består af cellerne A1:B10 side 2 består af A11:B20 osv - her skriver du ud lodret)

Følgende makro kan gøre det (hvis du ikke skal ændre printer-indstillinger)
Du skal blot ændre linien PrintSequence = Array("Sheet3", "Sheet1", "Sheet2")
til dine ark-navne i den ønskede rækkefølge
Sub PrintSheets()
    Dim PrintSequence()
    Dim i As Integer
    PrintSequence = Array("Sheet3", "Sheet1", "Sheet2")
    For i = 0 To UBound(PrintSequence)
        Worksheets(PrintSequence(i)).PrintOut Copies:=1, Collate:=True
    Next
End Sub

Hvis vi går ud fra, at der menes sider i bogstaveligste forstand, skriver denne først side 3-4 og derefter 7-8. Kan tilpasses efter behov.

Sub Uskrivning_bestemt_rækkefølge()
    ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
        :=True
    ActiveWindow.SelectedSheets.PrintOut From:=7, To:=8, Copies:=1, Collate _
        :=True
End Sub

Lav en macro:

    Sheets("Sheet3").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Sheet1").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Sheet2").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Udskriver Sheet3, Sheet1, Sheet2 i den rækkefølge. res selv navnene og tilføj flere

Doh - der kom lige 4 svar i rap... Havde ikke set de ovenstående...

Jeg har aldrig før prøvet at lave en macro. Så hvis det er løsningen skal jeg vist have lidt mere hjælp.
Jeg skal måske lige pointere, at de 35 sider ligger under hinanden i et og samme ark. De er altså ikke fordelt på 35 forskellige ark.

Så er det x-lars' løsning.
Makro:
Tryk alt+F11 i dit regneark.
Vælg Indsæt modul fra menuen.
Indsæt x-lars' kode i modulet.
Gå tilbage til arket.
Tryk alt+f8 og vælg makronavnet, tryk "indstillinger" og vælg genvejstast for makroen

Nedenunder har jeg indsat noget af den macro jeg skal lave. Er dette virkelig den eneste metode? Og er det jeg har skrevet overhovedet korrekt?
Når jeg er færdig med at skrive disse 35 linier, som det bliver til, skal jeg så bare gemme det, og gå tilbage til regnearket?
Da jeg har brug for, at udskrive siderne både i den oprindelige tilstand og så denne nye udarbejdet med macroen, er det så også muligt? Med andre ord, kan jeg slå macroen til og fra som det passer mig?


Sub Udskrivning_bestemt_rækkefølge()
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintOut From:=26, To:=26, Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintOut From:=35, To:=35, Copies:=1, Collate:=True

Jeg ville give 30p til henholdsvis x-lars og stefanfuglsang, men jeg kan kun tildele stefanfuglsang. Så x-lars må komme med et svar, så jeg kan tildele ham de 30p.

x-lars/baltser: jeg opretter spm. og afgiver mine point.