macro prints too many copies

[sparks]

I use a macro to automatically print or e-mail a workbook:

Application.OnTime TimeValue("06:55:00"), "Print_Out",

where "Print_Out" is a macro that actually does the printing:

ActiveWindow.SmallScroll ToRight:=-1
ActiveWindow.SmallScroll Down:=-1
Range("B2:P32").Select
ActiveWindow.SelectedSheets.PrintOut , Collate:=True

The problem is that I get multiple copies of the same book, but I have specified only 1 in the print macro. It does the same thing when I e-mail, it spits out say 4 copies of the same thing.
Any help is so greatly appreciated !

[ This Message was edited by: sparks on 2002-03-23 06:25 ]

[Al Chara]

Post your "Print_Out" code

[Juan Pablo González]

Try this:

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

[sparks]

I tried:
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Still printed out 2 copies.
Will this macro run as many times as it can in 1 second ??

Need to include something to tell it to run the macro at the time specified, only 1 time.

[Pietje52]

Put a wait-command in your print_out macro to make it wait for at least 1 second.

Ton