HappyCamper
New Member
- Joined
- Nov 15, 2005
- Messages
- 3
I'm having a tough time figuring out a way to solve this problem. This is what I have so far:
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$3"
.PrintTitleColumns = ""
.FitToPagesTall = 400
.FitToPagesWide = 1
.Zoom = False
End With
ActiveSheet.PageSetup.PrintArea = Range("a4:ew" & [a405].End(xlUp).Row).Address
Orientation = xlLandscape
What I have is a varible length spreadsheet that only needs to print data that is filled in. The width varies by users, but I only want it to print one page wide and always on legal paper. Also the rows need to be grouped by two. Basically what happens is that if someone has a different sized column the page break will automatically split one of the rows that is grouped by two. Other times it is not. I was trying to determine the page breaks set up by the above code and if it falls below an even row to move the page break up by one row. Any help would help me save the rest of my hair.
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$3"
.PrintTitleColumns = ""
.FitToPagesTall = 400
.FitToPagesWide = 1
.Zoom = False
End With
ActiveSheet.PageSetup.PrintArea = Range("a4:ew" & [a405].End(xlUp).Row).Address
Orientation = xlLandscape
What I have is a varible length spreadsheet that only needs to print data that is filled in. The width varies by users, but I only want it to print one page wide and always on legal paper. Also the rows need to be grouped by two. Basically what happens is that if someone has a different sized column the page break will automatically split one of the rows that is grouped by two. Other times it is not. I was trying to determine the page breaks set up by the above code and if it falls below an even row to move the page break up by one row. Any help would help me save the rest of my hair.
