IGxPrinterDescription.NumberOfCopies

Синтаксис

NumberOfCopies: Integer;

Описание

Свойство NumberOfCopies определяет число копий документа.

Пример

Sub Main;

Var

MB: IMetabase;

Printer: IGxPrinter;

DocPrint: IGxDocumentPrinter;

PrComment: IGxPrintComment;

PrDesc: IGxPrinterDescription;

Docum: IGxDocument;

i: Integer;

Begin

MB:=MetabaseClass.Active;

Docum:=MB.ItemById("Report").Bind As IGxDocument;

Printer:=GxPrinters.DefaultPrinter;

DocPrint:=Printer As IGxDocumentPrinter;

PrComment:=New GxPrintComment.Create;

Docum.Print(DocPrint,0,0,"");

PrDesc:=PrComment.PrinterDescription;

PrDesc.Description:=DocPrint.Description;

i:=PrDesc.NumberOfCopies;

End Sub Main;

После выполнения примера будет напечатан документ и в переменной «i» будет содержаться число копий.

См. также:

IGxPrinterDescription