Prueba con esto:
- Code: Select all Expand view
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.
Function Main()
Local aPrinters,i
aPrinters:= WIN_PRINTERLIST()
For i:= 1 To Len(aPrinters)
? aPrinters[i]
Next
Return nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 49 guests