03-16-2016
09:03 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-16-2016
09:03 PM
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
2025.2