SetPrintDefault no cambia el valor de PrnGetName (solucionad

[interwin]

Buenas noches

si tengo el siguiente programa

.
.
cImpresoraAnterior:=PrnGetName()
SetPrintDefault(cNuevaImpresora)
msginfo(PrnGetName())
.
.

Windows si establece a cNuevaImpresora como la impresora por defautl, pero mi aplicacion FWH no ( PrnGetName() sigue referenciando a cImpresoraAnterior), hasta que cierro y abro de nuevo mi aplicacion.

Parece ser que alguna variable de FWH no se actualiza con SetPrintDefault(cNuevaImpresora) y sigue tomando el valor de la impresora predeterminada al entrar al programa(cImpresoraAnterior).

¿como hago para corregir esto?

Saludos.

[karinha]

http://www.fivewin.com.br/forum/topic.a ... C_ID=21217

http://www.fivewin.com.br/forum/topic.a ... C_ID=19925

http://www.fivewin.com.br/forum/topic.a ... C_ID=15269

[interwin]

Karinha

Funciono

Muchas Gracias.

[interwin]

Karinha

Funciono:

cImpresoraAnterior:=( "windows", "device" , "" )
WriteProfString( "windows", "device",cNuevaImpresora)
SysRefresh()
PrinterInit()
msginfo(PrnGetName())
WriteProfString( "windows", "device",cImpresoraAnterior)


Tambien funciona con:

cImpresoraAnterior:=PrnGetName()
SetPrintDefault(cNuevaImpresora)
SysRefresh()
PrinterInit()
msginfo(PrnGetName())
SetPrintDefault(cImpresoraAnterior)

Muchas Gracias.

[sysctrl2]

ya que andamos en este tema:

Code: Select all  Expand view  RUN

PRINTER oPrn PREVIEW
oPrn:Setup()
* ......
* .....
ENDPRINT
 

Amigos el method oPrn:Setup() de la class tprinter presenta 2 botones: [ Acepta ], [ Cancelar ]

abra forma de configurar las class para que cuando demos CANCELAR

se regrese y no prosiga con el reporte?

por ejemplo:

Code: Select all  Expand view  RUN

if ! oPrn:setup()
     retur nil
endif

Saludos..

[Antonio Linares]

César,

Modificando asi el método Setup() de la Clase TPrinter:

METHOD Setup() BLOCK { | Self, hDC | hDC := PrinterSetup(), ::Rebuild(), hDC != 0 }

devuelve un valor lógico, lo que te permite hacer:

Code: Select all  Expand view  RUN

if ! oPrinter:Setup()
   return nil
endif
 

[sysctrl2]

Excelente Antonio,

Haremos la prueba

Gracias..