Makro til udskrift med forsider.

Lav en macro der skriver sideren en efter en. Derved kan du selv bestemme rækkefølgen.

Måske kan nedenstående bruges eller inspirere...

Sub PrintWithForside()
Dim TotalPages As Long, p As Long
    TotalPages = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
    For p = TotalPages To 1 Step -1
        ActiveSheet.PrintOut p, p
        Worksheets("Forside").PrintOut
    Next p
End Sub

Afhængigt af hvordan din printer lægger papiret, kan det være du skal bruge nedenstående i stedet.

Sub PrintWithForside()
Dim TotalPages As Long, p As Long
    TotalPages = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
    For p = 1 To TotalPages
        Worksheets("Forside").PrintOut
        ActiveSheet.PrintOut p, p
    Next p
End Sub

Det virkede rigtig godt. Tak for hjælpen :0)

:0)