BEGIN
;
INT _nrPrinters
INT _pIdx
;
TEXT _printerFullName
TEXT _printerName
TEXT _serverName
; retrieve the number of printers in operating systems
_nrPrinters := %GetPrinterName(-1)
; retrieve information on each printer
FOR _pIdx=1 TO _nrPrinters DO_LOOP
_printerFullName := %GetPrinterName(_pIdx, 0)
_printerName := %GetPrinterName(_pIdx, 1)
_serverName := %GetPrinterName(_pIdx, 2)
END_LOOP
;
END
Pridať komentár