Set Print Area Macro

[gbaker101]

I need help with a macro to set print area, and have been unable to find a post for a similar request. I need a macro that will set the area for specific columns (A-L), but the rows will vary, so I need it to either set the area to after the last row of data or else after it finds "Grand Total" in column D (This would be the last row of data). Any help is appreciated. Thanks!

 

[Smitty]

Maybe something like this:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> foo()<br>    <SPAN style="color:#00007F">Dim</SPAN> c <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>        c = Range("D:D").Find("Grand Total", LookIn:=xlValues).Row<br>    <br>        ActiveSheet.PageSetup.PrintArea = "A1:L" & c<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

 

[gbaker101]

Thanks Smitty...that did the trick. My project is now complete!