Prueba con esto:
Code: Select all | Expand
Function Main()
Local aPrinters,i
aPrinters:= WIN_PRINTERLIST()
For i:= 1 To Len(aPrinters)
? aPrinters[i]
Next
Return nil
Atención tienes que enlazar la libreria hbwin de Harbour.
Pere.
Code: Select all | Expand
Function Main()
Local aPrinters,i
aPrinters:= WIN_PRINTERLIST()
For i:= 1 To Len(aPrinters)
? aPrinters[i]
Next
Return nil