Selecting a large print area

[cwinnyk]

Hello everyone. I'm trying to set a print area within my spread sheet. When I record the macro, this is the code I get...

Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Range("A1:AA256&quot.Select
ActiveSheet.PageSetup.PrintArea = "$C$10:$AC$265"

I need the program to actually to perform "Shift-EndDown" keysequence three times. When I run the macro though, the selection never moves past the first key sequence. I think I know why, but I don't know any VBA way to step around this.

Also, my row count will always be different each time I run the macro, but, once again, I'm not sure how to digest that solution into VBA.

Any help would be greatly appreciated.

Chris

 

[Gorth]

Hi Chris,

Instead of going from the top and go down, start from the bottm and go up. . .

Try this:
ActiveSheet.PageSetup.PrintArea = "$C$10:$AC$" & Range("A65536&quot.End(XLUp).Row

Thanks!
-Gorth

 

[ssVBAdev]

If the intent is to simply go to the last row and last column you can do this:

Set LastCell = Worksheets("SheetName&quot.Cells.SpecialCells(xlLastCell)
Row = LastCell.Row
Column = LastCell.Column
Worksheets("SheetName&quot.PageSetup.PrintArea = "$B$" & Column & ":$AB$" & Row

 

[cwinnyk]

Hey guys:

Thanks for your advice. I just decided to name my range and use that instead. So, I changed it to this:

ActiveSheet.PageSetup.PrintArea = Range("PRINTRANGE&quot

I should have did that in the firstplace, but, it's Monday. I'm braindead.