TWiesendanger
9/7/2018 - 2:05 PM

Option nicht zählen / nicht drucken

Die Regel iteriert über alle Blätter. Falls der Name links vom : DXF heisst werden die beiden Optionen "Nicht zählen" und "Nicht drucken" gesetzt.

Option nicht zhlen _ nicht drucken
content_copyfile_download
'Reference Drawing
Dim oDrawing As DrawingDocument
oDrawing = ThisApplication.ActiveDocument
 
'Parameter
Dim lPos As Long
Dim sSheetName As String
 
If oDrawing Is Nothing Then Exit Sub
    Dim osheet As Sheet
    For Each osheet In oDrawing.Sheets
        lPos = InStr(oSheet.Name, ":")
        sSheetName = Left(osheet.Name, lPos - 1)
        If  sSheetName = "DXF" Then
            MsgBox("Test")
            osheet.Activate
            osheet.ExcludeFromPrinting  = True
            osheet.ExcludeFromCount = True
        End If
    Next