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» будет содержаться порт принтера, установленного в ОС по умолчанию.
См. также: