Steve
If you do not mind using a macro, place this code in the "ThisWorkbook"
module.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.PrintArea = .Range(.Range("A1"), _
.Range("A" & Rows.Count).End(xlUp).Offset(0, 3)).Address
End With
End Sub

Signature
XL2002
Regards
William
willwest22@yahoo.com
| To make my need as easy to explian as possible , I'm simplifing as much as
| possible:
[quoted text clipped - 14 lines]
|
| Steve