20 lines
529 B
Plaintext
20 lines
529 B
Plaintext
function PrintSetupNew(Printers, Default)
|
|
|
|
declare function SET_PRINTER, Get_Printer
|
|
DECLARE subroutine Msg
|
|
|
|
PrintCount = 0
|
|
Printers = ''
|
|
Default = ''
|
|
|
|
Init = Set_Printer('INIT', '', '', '', '', 3 : @VM : @VM : 1 : @VM : 3, '', '', '', '')
|
|
Printers = Get_Printer('DEVICES')
|
|
CurrentPort = Get_Printer('CURRENTPORT')
|
|
Ports = Get_Printer('PORTS')
|
|
rv = Set_Printer('TERM')
|
|
|
|
Printers[-1, 1] = ''
|
|
PrintCount = DCount(Printers, @FM)
|
|
Msg(@Window, '','OK', '', 'Title':@FM:'Printers=':Printers)
|
|
return PrintCount
|