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