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
|