Hey Leute,

ich habe folgenden Code:

Sub VersuchDrucken()

Dim pr As New Printer
Dim ps As New Printing.PrinterSettings
If ps.CanDuplex = True Then
    pr.Duplex = vbPRDPVertical
Else
    MsgBox ("Duplex-Druck wird nicht unterstützt.")
End If

ActivePrinter = "ps"
ActiveSheet.Range("A1:U56").PrintOut

End Sub

Ich möchte einen Dublex-Druck meines Sheets durchführen. Habe mich folgender Seite der Hilfe bedient: https://msdn.microsoft.com/de-de/library/microsoft.visualbasic.powerpacks.printing.compatibility.vb6.printer.duplex.aspx

Habe anschließend unten den aktiven Drucken "ps", der oben definiert wurde, ausgewählt, damit ich anschließend meinen ausgewählten Bereich im Duplex Druck ausdrucken kann. Möchte ich jedoch das Makro ausführen, erscheint mir die Fehlermeldung: "Benutzerdefinierter Typ nicht definiert." 

Kann mir jemand weiterhelfen, was mache ich falsch?

Beste Grüße, Steven