IGxPrinterDescription.Port

Синтаксис

Port: String;

Описание

Свойство Port определяет порт, к которому подключен принтер.

Пример

Sub Main;

Var

MB: IMetabase;

Printer: IGxPrinter;

DocPrint: IGxDocumentPrinter;

PrComment: IGxPrintComment;

PrDesc: IGxPrinterDescription;

Docum: IGxDocument;

s: String;

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;

s:=PrDesc.Port;

End Sub Main;

После выполнения примера будет напечатан документ и в переменной «s» будет содержаться порт принтера, установленного в ОС по умолчанию.

См. также:

IGxPrinterDescription