Здравствуйте, Караваха, Вы писали:

К>Подскажите, как можно перехватить событие печати документов Word и вывести к примеру свое диалоговое окно перед печатью?

Ставим References на Word и пишем

  Dim WithEvents W As Word.Application

WithEvents — потянет за собой все события ворда, в том числе и

Private Sub W_DocumentBeforePrint(ByVal Doc As Word.Document, Cancel As Boolean)
   'свое диалоговое окно     
End Sub