Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Subscript Out of Range ... Setting Page Breaks
Hi,
I recorded the macro below. But when I run it I get a "subscript out of range" message. I would welcome any suggestions. Sub Macro1() ' ' Macro1 Macro Sheets("Variance").Select ActiveSheet.ResetAllPageBreaks Set ActiveSheet.VPageBreaks(1).Location = Range("AA1") Set ActiveSheet.HPageBreaks(2).Location = Range("A397") Set ActiveSheet.HPageBreaks(3).Location = Range("A389") Set ActiveSheet.HPageBreaks(2).Location = Range("A332") Set ActiveSheet.HPageBreaks(3).Location = Range("A518") Set ActiveSheet.HPageBreaks(4).Location = Range("A691") Range("B882").Select Set ActiveSheet.HPageBreaks(5).Location = Range("A859") End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Subscript Out of Range ... Setting Page Breaks
I just recorded a macro to add page breaks and this is what was displayed
ActiveWindow.SelectedSheets.HPageBreaks.Add Befo=ActiveCell ActiveWindow.SelectedSheets.VPageBreaks.Add Befo=ActiveCell I'm sure you can tweak that to get what you want. -- HTH, Barb Reinhardt "manfareed" wrote: Hi, I recorded the macro below. But when I run it I get a "subscript out of range" message. I would welcome any suggestions. Sub Macro1() ' ' Macro1 Macro Sheets("Variance").Select ActiveSheet.ResetAllPageBreaks Set ActiveSheet.VPageBreaks(1).Location = Range("AA1") Set ActiveSheet.HPageBreaks(2).Location = Range("A397") Set ActiveSheet.HPageBreaks(3).Location = Range("A389") Set ActiveSheet.HPageBreaks(2).Location = Range("A332") Set ActiveSheet.HPageBreaks(3).Location = Range("A518") Set ActiveSheet.HPageBreaks(4).Location = Range("A691") Range("B882").Select Set ActiveSheet.HPageBreaks(5).Location = Range("A859") End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Subscript Out of Range ... Setting Page Breaks
Thanks ... I have got part of the answer
I have a problem with automatic page breaks. The Vertical page break in my code was moving the automatic page break to "AA". I don't want to end up with a manual page break at "AA" and an automatic page break at "AD" "Barb Reinhardt" wrote: I just recorded a macro to add page breaks and this is what was displayed ActiveWindow.SelectedSheets.HPageBreaks.Add Befo=ActiveCell ActiveWindow.SelectedSheets.VPageBreaks.Add Befo=ActiveCell I'm sure you can tweak that to get what you want. -- HTH, Barb Reinhardt "manfareed" wrote: Hi, I recorded the macro below. But when I run it I get a "subscript out of range" message. I would welcome any suggestions. Sub Macro1() ' ' Macro1 Macro Sheets("Variance").Select ActiveSheet.ResetAllPageBreaks Set ActiveSheet.VPageBreaks(1).Location = Range("AA1") Set ActiveSheet.HPageBreaks(2).Location = Range("A397") Set ActiveSheet.HPageBreaks(3).Location = Range("A389") Set ActiveSheet.HPageBreaks(2).Location = Range("A332") Set ActiveSheet.HPageBreaks(3).Location = Range("A518") Set ActiveSheet.HPageBreaks(4).Location = Range("A691") Range("B882").Select Set ActiveSheet.HPageBreaks(5).Location = Range("A859") End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Setting Page Breaks | Excel Discussion (Misc queries) | |||
setting page breaks for whole spreadsheet to be consistent? | Setting up and Configuration of Excel | |||
setting page breaks. | Excel Programming | |||
Setting page breaks (another) | Excel Programming | |||
Are conditional formats available for setting page breaks? | Excel Discussion (Misc queries) |