I am trying to find the translator option for printing all sheets in idw file irrespective of the exclude print chosen in any of the sheets.
In the export PDF window, there is the option available
In the translator options, when i exported the list of trnasaltor options, i could not find this particular option. Other options corresponding to
ALL COLOURS BLACK
REMOVE OBJECT LINEWEIGHT
VECTOR RESOLUTION
could be found. Here is the complete list which i got
1 Publish_All_Sheets 0
2 Publish_3D_Models 0
3 Launch_Viewer 0
4 Password
5 Publish_Mode 62721
6 Enable_Large_Assembly_Mode 0
7 Enable_Measure 1
8 Enable_Printing 1
9 Enable_Markups 1
10 Enable_Markup_Edits 1
11 Output_Path
12 Include_Sheet_Tables 1
13 Sheet_Metal_Flat_Pattern 0
14 Sheet_Metal_Style_Information 0
15 Sheet_Metal_Part 1
16 Weldment_Preparation 0
17 Weldment_Symbol 0
18 BOM_Structured 1
19 BOM_Parts_Only 1
20 Animations 0
21 Instructions 0
22 iAssembly_All_Members 0
23 iAssembly_3D_Models 0
24 iPart_All_Members 0
25 iPart_3D_Models 0
26 Publish_Component_Props 1
27 Publish_Mass_Props 1
28 Include_Empty_Properties 0
29 Publish_Screenshot 0
30 Screenshot_DPI 96
31 Facet_Quality 69379
32 Force_Facet_Recompute 0
33 Facet_Recompute_Tolerance 0.001
34 Override_Sheet_Color 0
35 Sheet_Color 0
36 Sheet_Range 14081
37 Custom_Begin_Sheet 1
38 Custom_End_Sheet 1
39 All_Color_AS_Black 0
40 Remove_Line_Weights 0
41 Vector_Resolution 400
42 TranscriptAPICall 0
I tried Publish_All_Sheets. But didnt work
Any Ideas??
here is the important parts of my program used
If transVar = "DWG" Then
clsId = "{C24E3AC2-122E-11D5-8E91-0010B541CD80}"
transExt = ".dwg"
ElseIf transVar = "DXF" Then
clsId = "{C24E3AC4-122E-11D5-8E91-0010B541CD80}"
transExt = ".dxf"
ElseIf transVar = "STEP" Then
clsId = "{90AF7F40-0C01-11D5-8E83-0010B541CD80}"
transExt = ".stp"
ElseIf transVar = "NEUTRAL" Then
clsId = "{8CEC09E3-D638-4E8F-A6E1-0D1E1A5FC8E3}"
transExt = ".neu"
ElseIf transVar = "PARASOLID" Then
clsId = "{8F9D3571-3CB8-42F7-8AFF-2DB2779C8465}"
transExt = ".x_t"
ElseIf transVar = "PDF" Then
clsId = "{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}"
transExt = ".pdf"
End If
and
Dim invTranslator As TranslatorAddIn = Nothing
invTranslator = g_inventorApplication.ApplicationAddIns.ItemById(clsId)
If invTranslator Is Nothing Then
MsgBox("Could not access " & transVar & " translator.")
Exit Sub
End If
Dim invContext As TranslationContext = Nothing
invContext = g_inventorApplication.TransientObjects.CreateTranslationContext
invContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
Dim invOptions As NameValueMap = Nothing
invOptions = g_inventorApplication.TransientObjects.CreateNameValueMap
Dim invData As DataMedium = Nothing
invData = g_inventorApplication.TransientObjects.CreateDataMedium
and
ElseIf transVar = "PDF" Then
' Check whether the translator has 'SaveCopyAs' options
If invTranslator.HasSaveCopyAsOptions(invDrw, invContext, invOptions) Then
' Options for PDF
If ChkbxPdfMonochrome.Checked = True Then
invOptions.Value("All_Color_AS_Black") = 1
Else
invOptions.Value("All_Color_AS_Black") = 0
End If
If ChkbxPdfLineWt.Checked = True Then
invOptions.Value("Remove_Line_Weights") = 1
Else
invOptions.Value("Remove_Line_Weights") = 0
End If
invOptions.Value("Vector_Resolution") = CInt(Me.CmbxPdfRes.Text.Substring(0, Me.CmbxPdfRes.Text.LastIndexOf(" ")))
invOptions.Value("Publish_All_Sheets") = 1
End If
g_inventorApplication.SilentOperation = True
If ChkbxPdfMultPg.Checked = True Then
invOptions.Value("Sheet_Range") = PrintRangeEnum.kPrintAllSheets
transFileName = invDrw.DisplayName
transFileName = transFileName.Substring(0, transFileName.LastIndexOf(".")) & transExt
invData.FileName = transPath & "\" & transFileName
'Publish document.
Call invTranslator.SaveCopyAs(invDrw, invContext, invOptions, invData)
