iLogic Print Code - How to set paper size?

[Jason.Rugg]

I have the following iLogic code for printing, it works great other than I can not get it to print Ledger/11x17. No matter how I try setting the paper size it refuses to print anything except Letter/8.5x11. Anyone have any other suggestions on how to set paper size?

'Print Setup
'[
Dim oDrgDoc As DrawingDocument
oDrgDoc = ThisApplication.ActiveDocument

' Set reference to drawing print manager' DrawingPrintManager has more options than PrintManager' as it's specific to drawing document
Dim oDrgPrintMgr As DrawingPrintManager
oDrgPrintMgr = oDrgDoc.PrintManager
' Set the printer name' comment this line to use default printer or assign another one
'oDrgPrintMgr.Printer = "\\kcidc2012\EngineeringSharp_Ledger"
'oDrgPrintMgr.Printer = "EngineeringSharp_Ledger"
oDrgPrintMgr.Printer = "\\kcidc2012.kciinc.net\EngineeringSharp_Ledger"

'Set the paper size , scale and orientation
oDrgPrintMgr.ScaleMode = kCustomScale
oDrgPrintMgr.ScaleMode = PrintScaleModeEnum.kPrintBestFitScale
'oDrgPrintMgr.PaperSize = PaperSizeEnum.kPaperSizeLedger
oDrgPrintMgr.PaperSize = 14338
oDrgPrintMgr.PrintRange = kPrintCurrentSheet
oDrgPrintMgr.Orientation = kLandscapeOrientation
oDrgPrintMgr.PaperSource = 2
oDrgPrintMgr.AllColorsAsBlack = True
oDrgPrintMgr.SubmitPrint
']

[bradeneuropeArthur]

Hi,

You need to change the printersetting themselves.

go to your paper setting of the printer and change it there.

Regards,

[Jason.Rugg]

@bradeneuropeArthur Thanks for the suggestion but I have tried that.

[Jason.Rugg]

@bradeneuropeArthur I am just removing the paper size callouts since the printer defaults to 11x17. One other issue I am having is black and white versus color. I want prints to be black and white, is there a different way of calling out that option in my code? The way it is it prints color.

[bradeneuropeArthur]

first change this:

oDrgPrintMgr.PaperSize = kPaperSizeLetter ' or 14353

[bradeneuropeArthur]

regarding the color:

Color print is as follows:

oDrgPrintMgr.AllColorsAsBlack = False

Black and white is as follows:

oDrgPrintMgr.AllColorsAsBlack = True

The code works fine with me....

[Jason.Rugg]

This worked or even just completely commenting out paper size altogether worked since default is 11 x 17.

oDrgPrintMgr.PaperSize = PaperSizeLedger

Just need to figure out the color issue. Using: "oDrgPrintMgr.AllColorsAsBlack = True" still prints in color.

[bradeneuropeArthur]

the following works fine here...

Public Sub Main()

'Print Setup
'[
Dim oDrgDoc As DrawingDocument
oDrgDoc = ThisApplication.ActiveDocument
' Set reference to drawing print manager' DrawingPrintManager has more options than PrintManager' as it's specific to drawing document
Dim oDrgPrintMgr As DrawingPrintManager
oDrgPrintMgr = oDrgDoc.PrintManager
' Set the printer name' comment this line to use default printer or assign another one
'oDrgPrintMgr.Printer = "\\kcidc2012\EngineeringSharp_Ledger"
'oDrgPrintMgr.Printer = "EngineeringSharp_Ledger"
oDrgPrintMgr.Printer = "\\kcidc2012\EngineeringSharp_Ledger"
'Set the paper size , scale and orientation
oDrgPrintMgr.ScaleMode = kCustomScale
oDrgPrintMgr.ScaleMode = PrintScaleModeEnum.kPrintBestFitScale
'oDrgPrintMgr.PaperSize = PaperSizeEnum.kPaperSizeLedger
oDrgPrintMgr.PaperSize = kPaperSizeLedger 'or 14341' kPaperSizeLetter
MsgBox (oDrgPrintMgr.PaperSize)
oDrgPrintMgr.PrintRange = kPrintCurrentSheet
oDrgPrintMgr.Orientation = kLandscapeOrientation
oDrgPrintMgr.PaperSource = 2
oDrgPrintMgr.AllColorsAsBlack = True
oDrgPrintMgr.SubmitPrint

End Sub

what version of inventor are you using?