Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
rhasell
in reply to: rhasell

Hi all

 

Solved, if it helps someone, hit the Kudos button.

 

Dim oDrawDoc As Document
oDrawDoc = ThisApplication.ActiveDocument
 
 
 Dim oPrintMgr As PrintManager
 oPrintMgr = oDrawDoc.PrintManager
 'specify your printer name
 oPrintMgr.Printer = "Canon iR2520 UFRII LT"

oPrintMgr.ColorMode = kPrintDefaultColorMode
oPrintMgr.Orientation = kLandscapeOrientation
oPrintMgr.PaperSize = PaperSizeEnum.kPaperSizeA3
oPrintMgr.Scalemode = 13827 'Custom Scale
oPrintMgr.ScaleMode = "0.5"
oPrintMgr.SubmitPrint

 

The PDF was easy as well.

 

Dim oDrawDoc As Document
oDrawDoc = ThisApplication.ActiveDocument
 
 
 Dim oPrintMgr As PrintManager
 oPrintMgr = oDrawDoc.PrintManager
 'specify your printer name
 oPrintMgr.Printer = "PrimoPDF"

oPrintMgr.ColorMode = kPrintDefaultColorMode
oPrintMgr.Orientation = kLandscapeOrientation
oPrintMgr.PaperSize = PaperSizeEnum.kPaperSizeA1
oPrintMgr.Scalemode = 13825 'Full Scale print @1:1
oPrintMgr.SubmitPrint
Reg
2025.2