Печать документов word

[Александр Бутырин]

Подскажите пожалуйста как напечатать активный документ word

uses
ShellApi;
...
  if PrintDialog1.Execute then ShellExecute(Handle, 'print', 'имя файла.doc', nil, nil, SW_HIDE);

когда ввожу имя файла он печатает файл находящийся в директории, мне нужно кот открытый в данный момент времени

[evg_m]

1 путь использовать Twordapplication
2 путь напрямую использовать OLE (Twordapplication это оболчка для OLE)
w:=CreateOLEObject('Word Application'); ПРИМЕРНО так.

выполнить следующие действия
1.присоединиться к word
2.найти активный документ.
3.дать команду напечатать найденный.

методы и свойства TWordApplication в справке.

[Александр Бутырин]

Сообщение от evg_m

1 путь использовать Twordapplication
2 путь напрямую использовать OLE (Twordapplication это оболчка для OLE)
w:=CreateOLEObject('Word Application'); ПРИМЕРНО так.

выполнить следующие действия
1.присоединиться к word
2.найти активный документ.
3.дать команду напечатать найденный.

методы и свойства TWordApplication в справке.

Как создать word application я знаю мне нужно распечатать активный документ