Howard, see if this does it:
<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> PrintNtoT()<br><br> <SPAN style="color:#00007F">With</SPAN> ActiveSheet<br> <SPAN style="color:#00007F">With</SPAN> .PageSetup<br> .PrintTitleRows = "$1:$1"<br> .PrintArea = Range([N1], Cells(Rows.Count, "T").End(xlUp)).Address<br> <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br> .PrintOut<br> <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br> <br>End <SPAN style="color:#00007F">Sub</SPAN></FONT>
And sorry for the confusion with the other post.