Name: String;
Свойство Name возвращает наименование принтера.
Sub Main;
Var
Printers: IGxPrinters;
Printer: IGxPrinter;
s: String;
Begin
Printers:=New GxPrinters.Create;
Printer:=Printers.Item(0);
s:=Printer.Name;
End Sub Main;
После выполнения примера в переменной «s» будет содержаться наименование первого принтера, установленного в ОС.
См. также: