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
