AnsweredAssumed Answered

Print task: Only print sheets beginning with special word

Question asked by Lars Uhlenhaut on Nov 20, 2013
Latest reply on Oct 10, 2014 by Joy Garon

Hi together,

is there a possibility to automatically print sheets only beginning with a special word (e.g. 'Print')?

I found an entry in the task script, but I cannot find an corresponding entry on the GUI of the print task. In the convert task I can choose the sheet.

Here is the part of the script.

 

[...]

    Set swExtension = swModel.Extension
   
    Dim vPrintSheets As Variant

    'If sheet is specified, find out its page number and add it to the array of sheets to be printed.
    If Len(docCfgOrSheet) > 0 And docType = swDocDRAWING Then
        Dim vSheetNames As Variant
        Dim nPrintSheets(0) As Long
        Dim swDraw As SldWorks.DrawingDoc
        Dim swSheet As SldWorks.Sheet
        Set swDraw = swModel
        vSheetNames = swDraw.GetSheetNames
        For i = 0 To UBound(vSheetNames)
            If LCase(vSheetNames(i)) = LCase(docCfgOrSheet) Then
                nPrintSheets(0) = i + 1
                vPrintSheets = nPrintSheets
                Exit For
            End If

[...]

 

The variable 'docCfgOrSheet' seems to be a system variable. Where is it set in the GUI? Can I set it manually in the skript? e.g. docCfgOrSheet = "Print*"

 

Lars

Outcomes