Для печати документа достаточно использовать две команды WordBasic —
процедуру просмотра FilePrintPreview и процедуру печати документа
FilePrint. Последнюю процедуру можно вызывать без аргументов или с ар-
гументами, например для задания числа копий печати.
Примеры использования данных процедур в приложениях Delphi:
Печать документов Word
procedure TForml.Buttonl7Click(Sender: TObject);
begin
WB.FilePrintPreview;
end;
procedure TForml.Buttonl6Click(Sender: TObject);
begin
WB.FilePrint;
end;
В процедуре для печати вместо команды FilePrint можно использовать
команду FilePrintDefault или команду FilePrint(c:integer), где с — количест-
во печатаемых копий. Для предварительного просмотра печати также
можно использовать команду FilePrintPreviewFullScreen, которая разво-
рачивает окно предварительного просмотра печати во весь экран. Для
просмотра в окне нескольких печатаемых страниц применяется команда
FilePrintPreviewPages(p:integer), где р — количество одновременно отобра-
жаемых страниц в одном окне.
Следующий пример программного кода иллюстрирует использование дан-
ных функций.
Печать документов Word
procedure TForml.Buttonl6Click(Sender: TObject);
begin
WB.FilePrint(2);
end;
procedure TForml.Buttonl7Click(Sender: TObject);
begin
WB.FilePrintPreviewPages(2) ;
end;
|
Главная
Каталог файлов
