PDM: Wie kann eingestellt werden, dass das Task-Drucken bestimmte Blätter, z. B. 'DXF' nicht druckt?
|
| VORHANDEN
Sub main()
On Error GoTo Fail:
Dim docFileName As String
Dim docCfgOrSheet As String
Dim sNumCopies As String
docFileName = "<Filepath>"
docCfgOrSheet = "<SelCfgOrSheet>"
sNumCopies = "[__printer_copycount]"
Dim iNumCopies As Integer
iNumCopies = 1
If (Len(sNumCopies) > 0) Then
iNumCopies = CInt(sNumCopies)
End If
| ÄNDERN IN
Sub main()
On Error GoTo Fail:
Dim docFileName As String
Dim docCfgOrSheet As String
Dim sNumCopies As String
Dim docSheetPrefix As String
docFileName = "<Filepath>"
docCfgOrSheet = "<SelCfgOrSheet>"
sNumCopies = "[__printer_copycount]"
' only process sheets that start with DXF docSheetPrefix = Left(docCfgOrSheet, 3)
If docSheetPrefix <> "DXF" Then Exit Sub End If
Dim iNumCopies As Integer
iNumCopies = 1
If (Len(sNumCopies) > 0) Then
iNumCopies = CInt(sNumCopies)
End If
Damit würden Blätter, die DXF, DXF1, etc. heißen nicht gedruckt.