Printing on a plotter with inventor and using a macro

Macro
1

Hello

I'm looking to print plans on a plotter with Inventor but I don't understand how to set up the macro, I can print on a photocopier in A3 or A4 but not on an OCE plotter (Plotware 500)

Here is a snippet of the code I use that works for A3 and A4 (the "if" is because I check if the plan is portrait or landscape)

Dim oprintmgr As DrawingPrintManager

Set oprintmgr = ThisApplication.ActiveDocument.PrintManager

Set oDrawDoc = ThisApplication.ActiveDocument

With oDrawDoc.ActiveSheet

If (. Orientation = kLandscapePageOrientation) Then

'A2H printer setup

printingprinter = "\\811v\OCPW500_01"

oprintmgr. Printer = printingprinter

'oprintmgr. ColorMode = kPrintDefaultColorMode ' Set to default

oprintmgr. AllColorsAsBlack = False

oprintmgr. NumberOfCopies = 1 ' Set to print one copies.

oprintmgr. Orientation = kLandscapeOrientation ' Set to print using landscape orientation.

oprintmgr. PaperSize = kPaperSizeA2

oprintmgr. PaperSource = 3

oprintmgr. PaperHeight = 59.4

oprintmgr. PaperWidth = 42

oprintmgr. ScaleMode = kPrintBestFitScale

'oprintmgr. ScaleMode = kPrintCustomScale

'oprintmgr. [Scale] = 1

oprintmgr. ColorMode = kPrintGrayScale

oprintmgr. SubmitPrint ' Submit the print.

 

I think the problem comes from the OCE plotter config software but with autocad we have .pc3 files that work.

I would like to be able to print my plans in 1 click... yes I'm lazy:p

Thank you for your help!

2

Hello 

I found the solution, all I had to do was use the post script driver of the OCE plotter, I can now print any plan format in 1 click! (A3,A4 on a photocopier and A2,A1,A0 on a plotter)

1 Like
3

Great, I saw that you also posted on the Autodesk forum ;)! Thanks for the info!