Hi pano,

I have looked at this post several times and I am still not sure what you
are trying to achieve. Are you trying to select the specific pages for
printing or what?

Perhaps Ron de Bruin's code might give you a hint on how to select the print
pages. I was initially confused with VPageBreaks and HPageBreaks. It appears
from my testing that VPageBreaks are actually across the worksheet and
HpageBreaks are down the worksheet and on careful study of the Help I think
that is because a VPageBreak is the vertical line at the left of a cell and
hense breaks across the page and HPageBreaks are the horizontal line at top
of cell and hense breaks down the page but perhaps someone reading this can
confirm this for me.

If my assumption in my first paragraph is not what you want to do then
perhaps you can explain it some more.

http://www.rondebruin.nl/hpagebreaks.htm


--
Regards,

OssieMac


"pano" wrote:

Hi all I want to get page numbers into this macro if anyone can help

Day1 worksheet checks range ak5:ak40 if that is blank it omits page 5
from first array print if it is not blank it prints on second array.
I just cant work out how to put page numbers in here..
The page numbers on Day1 worksheet are 1 - 3 - 5 - 6

Sub Front1()
'Day 1
Application.ScreenUpdating = False
If WorksheetFunction.CountBlank(Sheets("Day1").Range( "AK5:AK40")) = 36
Then
Sheets(Array("1 To:=1,", "3, To:=3,", "6, To:=6,")).Select
Else
Sheets(Array("From:=1, To:=1,", "From:=3, To:=3", "From:=5,
To:=5,", "From:=6, To:=6,")).Select
End If
Sheets("1").Activate
ActiveWindow.Selectedpages.PrintOut Copies:=1, Collate:=True
Sheets("PrintMenu").Select
Application.ScreenUpdating = True
End Sub

Ta for any help