PageBreak in VBA???
 

I'm trying to set page breaks (via VBA) for a dynamic range (involving
RowStart). Can someone please direct me to what i need the 2nd line statement
to equal. currently it says "SELECTION" because i don't know what to enter.

ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(RowStart - 1,
11)).Select
Set ActiveSheet.HPageBreaks(1).Location = SELECTION

Thanks for your time and energy,
-m

PageBreak in VBA???
 

Maybe something like this - adjust to suit.

Dim rng as Range
dim RowStart as Long
RowStart = Cells(rows.count,1).End(xlup).Row
set rng = Range(Cells(1, 1), Cells(RowStart - 1, 11))
ActiveSheet.PageSetup.PrintArea = rng.Address(External:=True)
Activesheet.HpageBreaks.Add Befo=rows(RowStart)
rng.Select

Although I am not sure why you want a manual pagebreak beyond your printarea.

--
Regards,
Tom Ogilvy



"mvyvoda" wrote:

I'm trying to set page breaks (via VBA) for a dynamic range (involving
RowStart). Can someone please direct me to what i need the 2nd line statement
to equal. currently it says "SELECTION" because i don't know what to enter.

ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(RowStart - 1,
11)).Select
Set ActiveSheet.HPageBreaks(1).Location = SELECTION

Thanks for your time and energy,
-m