IGxPrinterDescription.Description

Description: String;

Description: string;

Sub UserProc;
Var
    MB: IMetabase;
    Printer: IGxPrinter;
    DocPrint: IGxDocumentPrinter;
    PrComment: IGxPrintComment;
    PrDesc: IGxPrinterDescription;
    Docum: IGxDocument;
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;
    // Выводим описание принтера
    Debug.WriteLine(PrDesc.Description);
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Drawing;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Printer: IGxPrinter;
    Printers: GxPrintersClassClass = New GxPrintersClassClass();
    DocPrint: IGxDocumentPrinter;
    PrComment: GxPrintComment = New GxPrintCommentClass();
    PrDesc: IGxPrinterDescription;
    Docum: IGxDocument;
Begin
    // Получаем текущий репозиторий
    MB := Params.Metabase;
   // Получаем регламентный отчёт
    Docum := MB.ItemById["REPORT"].Bind() As IGxDocument;
    // Получаем принтер, установленный в ОС по умолчанию
    Printer := Printers.DefaultPrinter;
    DocPrint := Printer As IGxDocumentPrinter;
    // Выполняем печать на принтере регламентного отчёта
    Docum.Print(DocPrint, 0, 0, "", True);
    PrDesc := PrComment.PrinterDescription;
    PrDesc.Description := DocPrint.Description;
    // Выводим описание принтера
    System.Diagnostics.Debug.WriteLine(PrDesc.Description);
End Sub;