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
|