23.01.2013, 09:49
|
Прохожий
|
|
Регистрация: 23.01.2013
Сообщения: 2
Репутация: 10
|
|
Цитата:
Сообщение от NumLock
Код:
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.
|
Очень помог.
А как для Pdf сделать? Там же нет PrintOut
|