Duplex, Excel, Macro

http://www.eksperten.dk/spm/399803

jeg lagde alt det der ind i et modul og lavede det her, men det virker ikke, kan ikke gennemskue hvor jeg har fejlet

Public Function GetPrinterDuplex()
    GetPrinterDuplex = GetPrinterProperty(DM_DUPLEX)
End Function
Public Sub SetPrinterDuplex(iDuplex As Long)
    SetPrinterProperty DM_DUPLEX, iDuplex
End Sub

Sub test2()
Dim old As Long
old = GetPrinterDuplex    'gem forrige indstilling
SetPrinterDuplex 2       
ActiveSheet.PrintOut
SetPrinterTray old      'stil tilbage til forrige indstilling
End Sub

tray í den næst sidste linie har jeg self. også rettet

lukker