Hi eab

You can use this event in the Thisworkbook module

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
Selection.Areas(1).PrintOut
Application.EnableEvents = True
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl



"eab" wrote in message ...
Can I set up a worksheet to automatically only print the active cells each
time it is printed?