Word: Automatisk dobbeltsidet udskrift

Jeg tror du kan gøre sådan en jeg har bare lige skrevet det og har slet ikke tjekket det!

'
' Udskriv Makro
' Makro indspillet 01-02-02 af Dimle
'
Dim Start As Integer, Slut As Integer, Start2 As Integer, Slut2 As Integer
Dim tælAntal As Byte
tælAntal = 0

If wdFieldNumPages > 4 Then
    Start = 1: Slut = 2: Start2 = 5: Slut2 = 7
    Do
        If wdFieldNumPages >= Slut Then
            tælAntal = tælAntal + 1
            Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
                wdPrintDocumentContent, Copies:=1, Pages:=Start & "-" & Slut, PageType:= _
                wdPrintAllPages, Collate:=False, Background:=True, PrintToFile:=False
        End If
        Start = Start + 2: Slut = Slut + 2
        Slut2 = Slut2 + 2
        If tælAntal = 2 Then
            'Indsæt pause til at lægge papir i printeren
            tælAntal = 0
        End If
    Loop Until Slut >= wdFieldNumPages Or Slut2 >= wdFieldNumPages
   
    tælAntal = 0
    Start = 1: Slut = 2: Start2 = 5: Slut2 = 7
    Do
        If wdFieldNumPages >= Slut2 Then
            tælAntal = tælAntal + 1
            Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
                wdPrintDocumentContent, Copies:=1, Pages:=Start2 & "-" & Slut2, PageType:= _
                wdPrintAllPages, Collate:=False, Background:=True, PrintToFile:=False
        End If
        Start2 = Start2 + 2: Slut2 = Slut2 + 2
        Slut = Slut + 2
        If tælAntal = 2 Then
            'Indsæt pause til at lægge papir i printeren
            tælAntal = 0
        End If
    Loop Until Slut >= wdFieldNumPages Or Slut2 >= wdFieldNumPages
Else

End If

Det ser fornuftigt ud. Jeg kigger på det i weekenden vender tilbage med nogle point.

wdFieldNumPages giver ikke antal sider i dokumentet som jeg havde tænkt at det skulle... men det er altså det tal der skulle stå der i stedet for!!!