capturing the page number - Xtreme Visual Basic Talk

03-31-2012, 06:44 PM

Heyjoe

Centurion

Join Date: Nov 2006

Location: USA

Posts: 166

capturing the page number

Suppose I have a workbook with four worksheets. Table of contents, introduction, schedule 1 and schedule 2. If I do a print preview of the entire workbook, schedule 1 would begin on page 5. Is there any way to have a variable in vba capture that schedule 1 begins on page 5?

03-31-2012, 09:41 PM

_Mordred_

Freshman

Join Date: Jun 2011

Posts: 26

Hi Heyjoe, I recorded the following

Code:

ActiveWindow.SelectedSheets.PrintOut From:=5, To:=5, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

04-01-2012, 06:28 AM

Heyjoe

Centurion

Join Date: Nov 2006

Location: USA

Posts: 166

Thank you. Your macro would enable me to print page 5. But can I get the 5 into a variabe?

04-01-2012, 03:26 PM

_Mordred_

Freshman

Join Date: Jun 2011

Posts: 26

Do you mean something like:

Code:

Dim pgNo As Long
   pgNo = 5

and then something like

Code:

ActiveWindow.SelectedSheets.PrintOut From:=pgNo,To:=pgNo

04-01-2012, 04:50 PM

Heyjoe

Centurion

Join Date: Nov 2006

Location: USA

Posts: 166

I do not want to put the page numbers in the code. I want vba to tell me what the first page number of each schedule is. For example the table of contents starts with page 1. The introduction starts with page 2. Schedule 1 starts with page 5 and schedule 2 starts with page 9.

04-01-2012, 08:53 PM

Kluz

Sapience.Aquire

Super Moderator
* Expert *

Join Date: Oct 2003

Location: Lake Bluff, Ill., U.S.

Posts: 3,306

Loop through the sheets using:

Code:

Thisworkbook.Sheets.Item(number_variable)

Looking for whatever you need to to determine the start of a schedule, exit the loop when you find it, and your variable will have the Item number of that sheet. Or, you could continue the loop and put the Item number into an array variable.

__________________
No the other right mouse click