Sheet Number?

 

I can easily get the number of sheets by using:

objApp.ActiveDocument.Sections.WorkingSection.Sheets.Count

But, I cannot find a way to extract the current sheet number. Within SE, you can simply use property text, such as:

SHEET %{Sheet number} OF %{Number of Sheets}

 

Is it possible to easily extract the current sheet number in VB6? What am I missing?

 

Posted by: Bill Ledbetter
Post date: 9/23/2009 7:03:44 AM

1 REPLY

RE: Sheet Number?

Dim ct As Integer

Dim Sht As SolidEdgeDraft.Sheet

For Each Sht In seDraft.ActiveSection.Sheets

ct = ct + 1

If seDraft.ActiveSheet.Name = Sht.Name Then

Exit For

End If

Next

.SheetNum.Caption = "SHEET " & ct & " OF " & seDraft.Sections.WorkingSection.Sheets.Count

 

Got a work around anyway. Thanks to Grant Holohan.

 

Posted by: Bill Ledbetter
Post date: 9/24/2009 2:29:14 AM