En la relación de impresoras del preview me salen alrededor de 20 o 25 impresoras, algunas repetidas varias veces.
Ni por asomo tengo tantas impresoras instaladas en el sistema. Sólo hay cuatro o cinco instaladas.
¿Alguien sabe porqué ocurre esto?
Manuel Aranda wrote:Karinha, gracias por contestar.
No uso ningún comando para llamar a las impresoras. Es el preview de fivewin tal como viene, sin ninguna modificación.
function AGetPrinters() // returns an array with all the available printers
local aPrinters, cText, cToken := Chr( 15 )
cText = StrTran( StrTran( StrTran( ;
GetProfString( "Devices", 0 ), Chr( 0 ), cToken ), Chr( 13 ) ), Chr( 10 ) )
aPrinters = Array( Len( cText ) - Len( StrTran( cText, cToken ) ) )
AEval( aPrinters, { |cPrn, nEle | ;
aPrinters[ nEle ] := StrToken( cText, nEle, cToken ) } )
return aPrinters
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 76 guests