После всех
настроек и просмотра печати можно переходить непосредственно к печати
документа.Для этого будем использовать метод 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);
