26.11.2006, 01:47
|
|
Местный
|
|
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
|
|
Примерно так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
W: OleVariant;
begin
W := CreateOleObject( 'Word.Application' );
// W.Visible := true;
W.Documents.Open( 'c:\111.doc' );
W.PrintOut;
W.Quit;
W := Unassigned;
end;
|