Печать

Previous  Top  Next

    
 

Печать

После всех настроек и просмотра печати можно переходить непосредственно к печати документа. Для этого будем использовать метод PrintOut объекта "Лист" коллекции Sheets. В функции Print в качестве аргументов передаем номер или имя листа и количество копий для печати.

Code:

Function Print (sheet:variant;copies:integer):boolean;

begin

Print:=true;

try

E.ActiveWorkbook.Sheets.Item

  [sheet].PrintOut(Copies:=copies);

except

Print:=false;

end;

End;

 

 

Для расширения возможностей печати можем использовать весь набор аргументов метода PrintOut. Например, для задания печати 2-х копий со 2-й по 3-ю страницу используем метод и набор следующих аргументов: PrintOut(from:=2, To:=3, Copies:=2);