PrinterInfos()

Die Funktion stellt Informationen zu allen verfügbaren Drucker zur Verfügung.

Hinweis

Ab 7.1

Rückgabewert

oPrinterInfos:O (TbeCbPrinterInfos)

Beispiel

CODE

|oPrinterInfos, oPrinterInfo, i, j|

oPrinterInfos := PrinterInfos(),

writeln('Standard Drucker', oPrinterInfos.DefaultPrinterName),

for i := 0 to oPrinterInfos.PrinterCount - 1 do
  oPrinterInfo := oPrinterInfos.Printer(i),
  writeln('--------------------------------'),
  writeln('Druckername', oPrinterInfo.PrinterName),
  writeln('--<span style="text-decoration: line-through;">Verfügbare Schächte</span>---------'),
  for j := 0 to oPrinterInfo.BinCount - 1 do
    writeln(oPrinterInfo.BinName(j)),
  next,
next,