Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Cant move pagebreak in PageBreak View in Excel2003 | Excel Worksheet Functions | |||
determine pagebreak using VBA | Excel Programming | |||
PageBreak-broke? | Excel Programming | |||
PageBreak Problems | Excel Programming | |||
How to pagebreak | Excel Programming |