Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hi,
I'm a very occasional (and not very good) VBA user in a company where nobody else seems to. I can usually muddle my way through using google and a big stack of books, but have come unstuck on something which really should be very simple. My intention was to produce some code which cycles through all worksheets in the active workbook (they're all iterations of the same thing) and gets it all formatted for printing. I've come up with the following code: Sub printy_thingy() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Select ws.Activate ws.PageSetup.PrintArea = "$A$1:$T$141" With ws.PageSetup .Orientation = xlLandscape .FitToPagesWide = 1 .FitToPagesTall = 3 End With ws.ResetAllPageBreaks Set ws.HPageBreaks(1).Location = Range("A65") Set ActiveSheet.HPageBreaks(2).Location = Range("A114") Next ws End Sub Unfortunately, the lines: Set ws.HPageBreaks(1).Location = Range("A65") Set ActiveSheet.HPageBreaks(2).Location = Range("A114") ....just don't work. I get error messages when I try to execute them (Excel 2002). Anybody know why this is happening and how to fix it? Cheers in advance. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
So simple, but I can't get it to work | Excel Discussion (Misc queries) | |||
simple deletion won't work for me | Excel Discussion (Misc queries) | |||
Simple but I can't get it to work? PLEASE help!! | Excel Discussion (Misc queries) | |||
Its so simple! Why won't it work! | Excel Programming | |||
Why does this simple thing not work? | Excel Programming |