Hello Charles:
Thanks and sorry for getting back to you so late. I went to Epcot ove
the weekend. Anyway, I did what you suggested.
I created a button and then put the code between these two lines
Private Sub CommandButton1_Click()
Sub test_print()
Application.ScreenUpdating = False
Worksheets("Sheet1").PrintOut COPIES:=1
Worksheets("Sheet2").PrintOut COPIES:=1
Worksheets("Sheet3").PrintOut COPIES:=1
End Sub
Like this.
YUCK... it didn't work.
The debug said there was an expected sub error.
Have any other suggestions.
Thank
--
Message posted from
http://www.ExcelForum.com