print excluded sheets (pdf) using API

[Anonymous]

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

[MechMachineMan]

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

Next

[Anonymous]

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.

[MechMachineMan]

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

(Does the pdf have layers or not?)

[MechMachineMan]

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]

[Anonymous]

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