print plot A1 on Canon IPF820

[^_^clovis^_^]

Hello guys,

I've written a small VBA macro to print/plot our standard format A4..A0.

All formats are OK except A1.

rotate 90° works but the remaining settings don't work:

If oSheet.Height >= oSheet.Width Then
        oPM.Orientation = kPortraitOrientation
        Else
        oPM.Orientation = kLandscapeOrientation
End If

Case "A1"
             oPM.Printer = "CanonIp820"
             oPM.Rotate90Degrees = True
             oPM.PaperSize = kPaperSizeA1
             oPM.ScaleMode = kPrintBestFitScale

Has someone also experienced this "bug" ?

Without macro I can plot/print all formats without any issue.

Thanks for any advice.

[yvandelafontaine]

Try using "14359" or "14360" (A1 oversize) instead of "kPaperSizeA1"

EX:

If oSheetSize = "A" Then
				Dim oPrintMgr As PrintManager
				oPrintMgr = ThisApplication.ActiveDocument.PrintManager
				sPrinterName = "Canon iR-ADV C5250 PCL6"
				oPrintMgr.Printer = sPrinterName
				'oPrintMgr.Orientation = kPortraitOrientation
				'oPrintMgr.Orientation = kLandscapeOrientation
				oPrintMgr.ScaleMode = kPrintBestFitScale
				oPrintMgr.Orientation = 13569
				oPrintMgr.PaperSize = 14353
				'oPrintMgr.PaperHeight = 11
				'oPrintMgr.PaperWidth = 8.5
				oPrintMgr.ColorMode = 13313
				oPrintMgr.NumberOfCopies = 1
				'oPrintMgr.ColorMode = kPrintGrayScale
				oPrintMgr.SubmitPrint
Else
End If

Had the same problem until i used the value instead of the name.

if it solve your problem mark this as solved! i also like kudos... 😛

[^_^clovis^_^]

Salut Yvan

I've made the changes you that you indicated to no avail.

I've received a reaction from Canon. As they know nothing about Inventor-VBA macro,

They suggested I could plot to a file. Then I can check-compare the output between manually and programmatically created files.

Thanks for your reaction though

Yours