Getting the number of pages in excel sheet or current page using OLE2

Question

Hi,
I fill an excel sheet using CLIENT_OLE2 from Oracle 10g form,
I want to get the number of pages in sheet or the number of current page,
after searching for solution I found this example on VB:
Sub GetPageCount()
Dim iView As Integer
Dim iHorizontalBreaks As Integer
Dim iVerticalBreaks As Integer
Dim iPageCount As Integer
On Error Resume Next
'go to the range and set PrintArea to the range name
Application.Goto Reference:="ABC"
ActiveSheet.PageSetup.PrintArea = Selection.Address
'turn monitor flickering/updating off
Application.ScreenUpdating = False
'remember current View setting
iView = Application.ActiveWindow.View
'refresh the print area
Application.ActiveWindow.View = xlPageBreakPreview
'set view back
Application.ActiveWindow.View = xlNormalView
'turn monitor flickering/updating back on
Application.ScreenUpdating = True
'calculate the # of pages
iHorizontalBreaks = ActiveSheet.HPageBreaks.Count + 1
iVerticalBreaks = ActiveSheet.VPageBreaks.Count + 1
iPageCount = iHorizontalBreaks * iVerticalBreaks
How can I implement this using CLIENT_OLE2?
Any assistance would be welcome.
Thanks

Answer 1

IF all the panels were exactly the same width (highly doubtful for a roll-fold) and IF ID supported 12 pages per spread (it doesn't) then it might be less work to make 12-page spreads and place the PDF twice, but since I think there's a really good chance you'll need to adjust the positioning for at least 22 pages, that seems doomed.
I wouldn't even bother, in this case, with facing pages. Presumably they want this for the screen, so there's nothing gained from facing pages or multiple columns. You can either make the file with 24 pages and place the PDF 12 times for each page of the PDF, or place each page of the PDF once in a 2-page file, then copy the pages and reposition the image in the frame for each panel. The big thing here is to put the PDF into frames that are the same size as the new page (so they get cropped down to one-panel on each page). Then it's just a case of sliding the the PDF left or right in the frame to expose the next panel.