Exclude a sheet from print if a certain condition is met

[anthony.alam]

Hello, i am heaving difficulties with iLogic.
i wrote a rule in a drawing that checks a certain parameter, and if conditions are met it excludes a sheet from count and print.
but it does not seem to work.
here is the code:

oDoc= ThisApplication.ActiveDocument
Dim oSheet As Sheet

'If ActiveSheet.Name = "Jamb_typeG"

If Parameter("D1.ipt.f1_type") < 5 mm Then
For Each oSheet In oDoc.Sheets
If (ActiveSheet.Name = "Jamb_typeG") Or (ActiveSheet.Name = "Jamb_typeG:2")

oSheet.ExcludeFromCount = True
oSheet.ExcludeFromPrinting = True
End If

If (ActiveSheet.Name = "Jamb_typeM") Or (ActiveSheet.Name = "Jamb_typeM:2")

oSheet.ExcludeFromCount = False
oSheet.ExcludeFromPrinting = False
End If
Next
End If

[MechMachineMan · Accepted solution]

Because your stringing together things that aren't making consistent variable calls.

If you are iterating through sheets and wanting the loop's processing to stay consistent to those sheets, you need to use the consistent variable.

ActiveSheet <> oSheet UNLESS you call oSheet.Activate in the loop before ActiveSheet.

But the better way to code it is:

oDoc= ThisApplication.ActiveDocument
Dim oSheet As Sheet

If Parameter("D1.ipt.f1_type") < 5 mm Then
  For Each oSheet In oDoc.Sheets
    If (oSheet.Name = "Jamb_typeG") Or (oSheet.Name = "Jamb_typeG:2")
      oSheet.ExcludeFromCount = True
      oSheet.ExcludeFromPrinting = True
    End If

    If (oSheet.Name = "Jamb_typeM") Or (oSheet.Name = "Jamb_typeM:2")
      oSheet.ExcludeFromCount = False
      oSheet.ExcludeFromPrinting = False
    End If
  Next
End If

[anthony.alam]

worked perfectly, thank you so much!