Set Print Ranges

[RandyD123]

The attached sheet is my sample. As you can see the there are 2 seperate tables on each sheet. Every so often I need to add more ROWS, I NEVER need to add more columns!!!

Is there a way to set a dynamic print range so that I can print each table individually, like it is now, but the exception being is if I had to add more rows the print range will adjust automatically?


OOOPS.....I guess I can't post attachements!

 

[Rawrbear]

If you use the define name for your table ranges you can use a macro such as

Sub SetActivePrintAreas
ActiveSheet.PageSetup.PrintArea = "(This_Is_The_Table[#All]), (This_Is_Also_A_Table[#All])"
End Sub

Where This_Is_The_Table and This_Is_Also_A_Table are your named areas.
When you add more rows the table will update and the named areas will also update.

 

[RandyD123]

Sub Print1()
'
' Print1 Macro
'
Sub SetActivePrintAreas()
ActiveSheet.PageSetup.PrintArea = "(Table1[#All])"
End Sub
Sub Print2()
'
' Print2 Macro
'
Sub SetActivePrintAreas()
ActiveSheet.PageSetup.PrintArea = "(Table2[#All]"
End Sub

This throws an error!!! I have a "Print" button object on each sheet and a macro assigned to each button.

 

[Rawrbear]

Did you create a new name for the table or did you use the Name Manager to edit the existing table name?
I've just tested this and if I create a new name that points to the table the below throws an error but if I edit the name of the table directly it works without issue.


Here's my workbook:
https://dl.dropboxusercontent.com/u/6981334/Excel/TablePrintAreaTest.xlsm

 

[RandyD123]

If I could send the file to you maybe you could help. I tried to do what you said but it didn't work!