Printing using Apprentice server

Printing using Apprentice server

Raider_71
Collaborator Collaborator
702 Views
1 Reply
Message 1 of 2

Printing using Apprentice server

Raider_71
Collaborator
Collaborator
Hi I wonder if anyone can assist with this. I have written a batch printing tool using Inventor apprentice server in VB.net. I have set the reference to Inventor 2010's SDK Type library. The problem is that even though i set the "oApprDrgPrintMgr.AllColorsAsBlack = True" it still prints colour. Please have a look at my code to see if I have done something wrong. {code} For i = 0 To lstBox1.Items.Count - 1 lstBox1.SelectedIndex = i Dim oApprentice2 As New Inventor.ApprenticeServerComponent Dim oApprDoc As Inventor.ApprenticeServerDrawingDocument oApprDoc = oApprentice2.Open(lstBox1.Items.Item(i)) Dim oApprDrgPrintMgr As ApprenticeDrawingPrintManager oApprDrgPrintMgr = oApprDoc.PrintManager Select Case frmOptions.ComboOrientation.SelectedIndex Case 0 oApprDrgPrintMgr.Orientation = PrintOrientationEnum.kDefaultOrientation Case 1 oApprDrgPrintMgr.Orientation = PrintOrientationEnum.kLandscapeOrientation Case 2 oApprDrgPrintMgr.Orientation = PrintOrientationEnum.kPortraitOrientation End Select If frmOptions.RadioToFit.Checked Then oApprDrgPrintMgr.ScaleMode = PrintScaleModeEnum.kPrintBestFitScale Else oApprDrgPrintMgr.ScaleMode = PrintScaleModeEnum.kPrintFullScale End If oApprDrgPrintMgr.PrintRange = PrintRangeEnum.kPrintAllSheets oApprDrgPrintMgr.NumberOfCopies = frmOptions.ComboCopies.SelectedIndex + 1 If frmOptions.radioBlack.Checked Then oApprDrgPrintMgr.AllColorsAsBlack = True End If oApprDrgPrintMgr.SubmitPrint() oApprDoc.Close() Next i {code}
0 Likes
703 Views
1 Reply
Reply (1)
Message 2 of 2

Raider_71
Collaborator
Collaborator

Ok here is the code as a bitmap. Dont know why the formatting didnt come through...

0 Likes