Expand Print area

I use this macro in the "This Workbook" module
to adjust my print area. Mine is for rows so you will need
to change it somewhat for columns.

Private Sub Workbook_BeforePrint(Cancel As Boolean)

ActiveSheet.PageSetup.PrintArea = Range("A1:A"
& _
      Range("A" &
Rows.Count).End(xlUp).Row).Resize(, 8).Address

End Sub


-----Original Message-----
From: MS Excel General Q & A List
[mailto:EXCEL-GPEACH.EASE.LSOFT.COM]On Behalf Of Joe
Hecht
Sent: Friday, June 02, 2006 1:06 PM
To: EXCEL-GPEACH.EASE.LSOFT.COM
Subject: Expand Print area


I am keeping a food log. There are three to five entries
each day.

 

Is there away if I set the print area to the actual size of
the current entries to automatically expand the print area
with each entry.

 

The current area is A1:J35. There is not always an entry in
row J

 

TIA

 

Joe Hecht

jmhechtearthlink.net

------------------------------------------------------------
--------------
The EXCEL-G list is hosted on a Windows NT(TM) machine
running L-Soft
international's LISTSERV(R) software.  For
subscription/signoff info
and archives, see htt
p://peach.ease.lsoft.com/archives/excel-g.html .
                             COPYRIGHT INFO:
http://peach.ease.lsoft.com/scripts/wa
.exe?SHOWTPL=COPYRIGHT&L=EXCEL-G