Prueba con esto:
Code: Select all
Function Main()
Local aPrinters,i
aPrinters:= WIN_PRINTERLIST()
For i:= 1 To Len(aPrinters)
? aPrinters[i]
Next
Return nil
Pere.
Code: Select all
Function Main()
Local aPrinters,i
aPrinters:= WIN_PRINTERLIST()
For i:= 1 To Len(aPrinters)
? aPrinters[i]
Next
Return nil
Code: Select all
DrawTransparent
BMPOLARROW
BMPOLDOTS