Hallo
Ich möchte Pläne auf einem Plotter mit Inventor drucken, verstehe aber nicht, wie ich das Makro einrichte, ich kann auf einem Fotokopierer in A3 oder A4 drucken, aber nicht auf einem OCE-Plotter (Plotware 500)
Hier ist ein Ausschnitt des von mir verwendeten Codes, der für A3 und A4 funktioniert (das "wenn" ist, weil ich überprüfe, ob der Plan Hoch- oder Querformat ist)
Dim oprintmgr As DrawingPrintManager
Legen Sie oprintmgr = ThisApplication.ActiveDocument.PrintManager fest
Legen Sie oDrawDoc = ThisApplication.ActiveDocument fest
Mit oDrawDoc.ActiveSheet
Wenn (. orientation = kLandscapePageOrientation) dann
'A2H-Drucker einrichten
PrintingPrinter = "\\811v\OCPW500_01"
oprintmgr. Drucker = Druckerdrucker
'oprintmgr. ColorMode = kPrintDefaultColorMode ' Auf Standard setzen
oprintmgr. AllColorsAsBlack = Falsch
oprintmgr. NumberOfCopies = 1 ' Wird festgelegt, um eine Kopie zu drucken.
oprintmgr. Orientation = kLandscapeOrientation ' Legt fest, dass im Querformat gedruckt wird.
oprintmgr. Papierformat = kPapierformatA2
oprintmgr. Papierquelle = 3
oprintmgr. PapierHöhe = 59,4
oprintmgr. PapierBreite = 42
oprintmgr. ScaleMode = kPrintBestFitScale
'oprintmgr. ScaleMode = kPrintCustomScale
'oprintmgr. [Maßstab] = 1
oprintmgr. ColorMode = kPrintGrayScale
oprintmgr. SubmitPrint ' Reichen Sie den Druck ein.
Ich denke, das Problem kommt von der OCE-Plotterkonfigurationssoftware, aber mit Autocad haben wir .pc3-Dateien, die funktionieren.
Ich möchte in der Lage sein, meine Pläne mit 1 Klick auszudrucken... Ja, ich bin faul:p
Danke für Ihre Hilfe!