23.01.2013, 09:38
|
|
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
type
TForm1 = class(TForm)
WordApplication1: TWordApplication;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
...
procedure TForm1.FormCreate(Sender: TObject);
var
OutputFileName: OleVariant;
begin
WordApplication1.Visible:=True;
OleVariant(WordApplication1.Documents).Open(FileName:='d:\Downloads\Первобытные люди.doc');
WordApplication1.ActivePrinter:='Microsoft Office Document Image Writer';
OutputFileName:='d:\Downloads\Первобытные люди.tif';
WordApplication1.ActiveDocument.PrintOut(EmptyParam, EmptyParam, EmptyParam,
OutputFileName,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;
проверено на Microsoft Office 2003.
__________________
Пишу программы за еду.
__________________
|