Application.PrintOut в Excel 2007 - VBA

Формулировка задачи:

Приветствую. Лет цать назад писал макрос. И в нем были такие строчки:

adoc = Dir("*.doc")
Do While adoc <> " "
Application.PrintOut Filename:=adoc
adoc = Dir()
Loop
Next i

Вывод текущего листа в файл doc в текущем каталоге. Раньше все исправно работало, а теперь нет(неожиданно). В общем пишет "Run-Time error 438. Object doesn't support this proporty or method". И да если через помощник вводить, то PrintOut автоматом не предлагается. Но вот в ворде все нормально работает. Я не могу понять в чем проблема? Третий час бьюсь.

Решение задачи: «Application.PrintOut в Excel 2007»

textual
                            Листинг программы 
                        
                            Activesheet.PrintOut