Отправлено: 28.09.18 17:53. Заголовок: Номер принтера по умолчанию

Есть ли такая функция ?
Та что живет в Pagescript (Psgetdefprinter) , глючит и пока не перезапустишь
программу по умолчанию кажет один и тот же принтер , хотя другой принтер
назначен по умолчанию

 Отправлено: 28.09.18 18:22. Заголовок: Проехали , написал с..

Проехали , написал свою

 
 Func GetDefPrnumber() 
 local retn:=0 
 local alist:=WIN_PRINTERLIST() 
      if hb_isarray(alist) .and. len(alist)#0 
 retn:=ascan(alist,WIN_PRINTERGETDEFAULT()) 
      endif 
 return retn