ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   auto scale print area (https://www.excelbanter.com/excel-discussion-misc-queries/236699-auto-scale-print-area.html)

jase

auto scale print area
 
I am trying to figure out a way to manually adjust my print area on a dynamic
data sheet. I was hoping to implement some code that says find the last row
for the print area.

Any help?

thanks,

jase

Bob Umlas[_3_]

auto scale print area
 
If the print area is left undefined, it will print everything on the sheet.

"Jase" wrote in message
...
I am trying to figure out a way to manually adjust my print area on a
dynamic
data sheet. I was hoping to implement some code that says find the last
row
for the print area.

Any help?

thanks,

jase




jase

auto scale print area
 
I tried doing that but it messed up all my fonts and margins and header.

This is what I got now: ActiveSheet.PageSetup.PrintArea = "$A$1:$T$" &
Cells.SpecialCells(xlCellTypeLastCell).Row

but this is telling me my last row is 345 but i only have data up to 142.
Its reading blank fields or something.

"Bob Umlas" wrote:

If the print area is left undefined, it will print everything on the sheet.

"Jase" wrote in message
...
I am trying to figure out a way to manually adjust my print area on a
dynamic
data sheet. I was hoping to implement some code that says find the last
row
for the print area.

Any help?

thanks,

jase





Dave Peterson

auto scale print area
 
Maybe you can reset the used range.

Visit Debra Dalgleish's site for some techniques:
http://contextures.com/xlfaqApp.html#Unused

Or if you can pick out a column that will determine the last row to print:

with activesheet
.PageSetup.PrintArea = "$A$1:$T$" & .cells(.rows.count,"A").end(xlup).row
end with

(I used column A.)

Jase wrote:

I tried doing that but it messed up all my fonts and margins and header.

This is what I got now: ActiveSheet.PageSetup.PrintArea = "$A$1:$T$" &
Cells.SpecialCells(xlCellTypeLastCell).Row

but this is telling me my last row is 345 but i only have data up to 142.
Its reading blank fields or something.

"Bob Umlas" wrote:

If the print area is left undefined, it will print everything on the sheet.

"Jase" wrote in message
...
I am trying to figure out a way to manually adjust my print area on a
dynamic
data sheet. I was hoping to implement some code that says find the last
row
for the print area.

Any help?

thanks,

jase





--

Dave Peterson


All times are GMT +1. The time now is 04:44 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com