topic Re: print excluded sheets (pdf) using API in Inventor Programming Forum

print excluded sheets (pdf) using API

Anonymous — Sun, 13 Sep 2015 12:53:13 GMT

How to print excluded sheets to PDF via API. Is there any name value map for this?

Re: print excluded sheets (pdf) using API

MechMachineMan — Mon, 14 Sep 2015 02:10:38 GMT

Use print manager API object to access things req'd for printing.

Use API help/"Programming Help" from inventor/the search feature on the forums to find out how to do this all without relying on forum replies

Dim oDoc as Document

oDoc = ThisApplication.ActiveDocument

Dim oSheet As Sheet

For Each oSheet in oDoc.Sheets

oSheet.Activate

If oSheet.ExcludeFromCount = True

'Run print to pdf code here

End if

Re: print excluded sheets (pdf) using API

Anonymous — Mon, 14 Sep 2015 03:11:37 GMT

thanks for your replay, but this will work only when you want to print individual sheets as individual pdf files. And Iam using the same for that purpose in my Addinns. My requirement is to us the function for all Sheet and sheets in range. which is not mentioned in any of the API helps and forum threads.

Re: print excluded sheets (pdf) using API

MechMachineMan — Mon, 14 Sep 2015 13:12:21 GMT

Are you actually PRINTING to pdf, or are you just exporting using the translator add-in?

(Does the pdf have layers or not?)

Re: print excluded sheets (pdf) using API

MechMachineMan — Mon, 14 Sep 2015 13:17:19 GMT

One thing you could do is just iterate through the sheets and flip the excluded status temporarily so that you can print the originally excluded sheets as the non-excluded sheets.

Also. ThisApplication.ActiveDocument.DrawingPrintManager might be something to look at. [Which is easily found through Programming help]

Re: print excluded sheets (pdf) using API

Anonymous — Mon, 14 Sep 2015 13:29:29 GMT

drawing print manager will work if it is a print job. I am using translator addin to create the pdf with various options as required. presently I am using a workaround to do the same.

Dim oSheet As Sheet
            If Me.CheckBoxExcluded.Checked = True Then
                For Each oSheet In oDrgDoc.Sheets
                    If oSheet.ExcludeFromPrinting = True Then
                        oSheet.ExcludeFromPrinting = False
                    End If
                Next
            End If

' and as below
ElseIf RB_SheetsInRange.Checked = True Then
                    Dim i As Integer
                    i = Me.NumericUpDownStart.Value
                    Do
                        oDrgDoc.Sheets(i).Activate()
                        oDoc = oDrgDoc.ActiveSheet.DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument
                        strfilename = oDoc.PropertySets.Item("Design Tracking Properties").Item("Part Number").Value
                        oDataMedium.FileName = Me.PathTextBox.Text & "\" & strfilename & ".pdf"
                        PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
                        i = i + 1
                    Loop Until i = Me.NumericUpDownEnd.Value + 1
                End If

above is a part of my code which is using the workaround