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.
SetPrintDefault no cambia el valor de PrnGetName (solucionad
SetPrintDefault no cambia el valor de PrnGetName (solucionad
Last edited by interwin on Wed Oct 10, 2012 11:47 pm, edited 1 time in total.
Re: SetPrintDefault no cambia el valor de PrnGetName
Karinha
Funciono
Muchas Gracias.
Funciono
Muchas Gracias.
Re: SetPrintDefault no cambia el valor de PrnGetName
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.
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.
Re: SetPrintDefault no cambia el valor de PrnGetName (solucionad
ya que andamos en este tema:
Amigos el method oPrn:Setup() de la class tprinter presenta 2 botones: [ Acepta ], [ Cancelar ]
abra forma de configurar las class para que cuando _
se regrese y no prosiga con el reporte?
por ejemplo:
Saludos..
Code: Select all
PRINTER oPrn PREVIEW
oPrn:Setup()
* ......
* .....
ENDPRINT
abra forma de configurar las class para que cuando _
se regrese y no prosiga con el reporte?
por ejemplo:
Code: Select all
if ! oPrn:setup()
retur nil
endif
Cesar Cortes Cruz
SysCtrl Software
Mexico
' Sin +- FWH es mejor "
SysCtrl Software
Mexico
' Sin +- FWH es mejor "
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: SetPrintDefault no cambia el valor de PrnGetName (solucionad
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:
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
if ! oPrinter:Setup()
return nil
endif
Re: SetPrintDefault no cambia el valor de PrnGetName (solucionad
Excelente Antonio,
Haremos la prueba
Gracias..
Haremos la prueba
Gracias..
Cesar Cortes Cruz
SysCtrl Software
Mexico
' Sin +- FWH es mejor "
SysCtrl Software
Mexico
' Sin +- FWH es mejor "