harbour 3.4 + mingw
teste.prg
Código: Selecionar todos
Function Main
clear screen
@ 2, 2 say "getprinters().............:" + str(len(getprinters()), 2)
@ 3, 2 say "getprinters(.t.)..........:" + str(len(getprinters(.t.)), 2)
@ 4, 2 say "getprinters(.t., .t.).....:" + str(len(getprinters(.t., .t.)), 2)
@ 6, 2 say "win_printerlist().........:" + str(len(win_printerlist()), 2)
@ 7, 2 say "win_printerlist(.t.)......:" + str(len(win_printerlist(.t.)), 2)
@ 8, 2 say "win_printerlist(.t., .t.).:" + str(len(win_printerlist(.t., .t.)), 2)
@ 9, 2 say ""
inkey(0)
return Nil

