BEGIN
;
INT _nrPrinters
INT _pIdx
;
TEXT _printerFullName
TEXT _printerName
TEXT _serverName
; zistenie počtu tlačiarní v operačnom systéme
_nrPrinters := %GetPrinterName(-1)
; zistenie informácií o každej tlačiarni
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