topic-39828

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

impresoras en preview
Posted: Mon Jan 04, 2021 07:33 PM

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?

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: impresoras en preview
Posted: Wed Jan 06, 2021 12:45 PM

Que comando usas para llamar las impresoras? Muestre como haces, porfa.

Tengo la impresíon, que este sea un defecto en el drive de impresoras... Pero... Llame un Técnico en informática para mirar tú computadora. Puede ser esto... Ó no... jajajajajajajajaja,

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Manuel Aranda

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Re: impresoras en preview
Posted: Wed Jan 06, 2021 07:36 PM

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.

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: impresoras en preview
Posted: Thu Jan 07, 2021 12:22 AM

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.

No usas un RPREVIEW.prg de otra versión del FiveWin? En otras máquinas tambiém te sale igual?

Podrias generar un ejemplo simples com BD e el PRG y upload en el mega upload para testes?

https://mega.nz/

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: impresoras en preview
Posted: Thu Jan 07, 2021 07:51 AM

Manuel,

La lista de impresoras la genera la función aGetPrinters():

Code (fw): Select all Collapse

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

Puedes verificarlo haciendo:
XBrowse( aGetPrinters() )

esta función obtiene los valores del "registry" luego puede ser que tengas muchas entradas de distintas impresoras en un determinado ordenador porque se han ido cambiando impresoras, etc. y toda la información de las distintas impresoras continua en el "registry" accesible via "regedit".

regards, saludos

Antonio Linares
www.fivetechsoft.com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: impresoras en preview
Posted: Thu Jan 07, 2021 12:21 PM

Manuel, use el cCleaner, para limpiar tú computadora:

https://www.ccleaner.com/pt-br/ccleaner

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Manuel Aranda

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Re: impresoras en preview
Posted: Thu Jan 07, 2021 06:40 PM

Sólo ocurre en un ordenador en concreto y seguramente será eso, que el registro tiene rastros de instalaciones antiguas y habrá que hacer una limpieza del sistema.
Muchas gracias a ambos, Antonio y Karinha.

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

FiveTech Support Forums

Continue the discussion