Sheet Number?


I can easily get the number of sheets by using:


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


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


.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