Pequeño aporte al FORO clase RPREVIEW

[acuellar]

Amigos

Con el aporte de varios en el foro, aqui tienen el RPREVIEW con algunos ingredientes, funcional para todas las versiones de FIVEWIN
[img]
http://200.58.176.148/paquetes/rpreview.jpg
[/img]
Si enlazan este .PRG a su proyecto le da prioridad, si no quieren tener 2 veces e RPREVIEW pueden reemplazar el OBJ de la librería FIVEHx, claro con el permiso de FIVETECH (Antonio, Daniel).
Pueden elegir la impresora antes de imprimir, luego de la impresión al salir coloca la impresora predetermida de nuevo, el factor lo mide en %
[url]
http://200.58.176.148/paquetes/rpreview.zip
[/url]

Saludos

Adhemar

[FranciscoA]

Hola Adhemar. Gracias por compartir tus mejoras para hacer más util RPREVIEW.
Te digo que de manera general funciona, pero estoy trabajando con el rpreview que subiste, para averiguar y corregir el siguiente comportamiento:

1- Una vez dentro del preview, si cambias de impresora y decides cancelar la impresión con el botón "X" o con el botón de la puerta, aparentemente funciona bien el retornar a la impresora predeterminada. Pero... sin salir del programa, entras al preview, cambias impresora y cancelas con el botón "X", y en el siguiente reporte, también cambias de impresora y cancelas pero saliendo con el botón de la puerta, no retorna a la impresora predeterminada, mas bien deja como predeterminada a la que cambiaste.

2- Si una vez en el preview cambias de impresora y oprimes el botón de salir totalmente del sistema, también te deja como impresora predeterminada a la que cambiaste. (no retorna a la predeterminada original)

Fué compilado con FWH 901.

Como dije anteriormente, funciona bien de manera general, pero para algunos usuarios "especiales", este comportamiento podría ser molesto y es por eso que voy a tratar de corregirlo y posteriormente lo subo al foro.

Nuevamente gracias por compartir tu mejora, así como lo han hecho otros colegas aquí en el foro.
"Quien no comparte lo que la sociedad le dió la oportunidad de aprender, es un desecho"

Saludos.

[FranciscoA]

Como expuse anteriormente, al compilar con FWH901, me tiraba varios errores, por lo que tuve que hacerle unos cuantos ajustes, y en pruebas realizadas ha estado funcionando. (utilizando ventanas Childs en el preview).
Aquí los ajustes:

STATIC cPRTDefault:="", lCambioPRT:=.F. //FranciscoA
//----------------------------------------------------------------------------//
CLASS TPreview
.....
.....

METHOD Activate() CLASS TPreview

ACTIVATE WINDOW ::oWnd MAXIMIZED ;
ON RESIZE ::PaintMeta() ;
ON UP ::VScroll( GO_UP ) ;
ON DOWN ::VScroll( GO_DOWN ) ;
ON PAGEUP ::VScroll( GO_UP, GO_PAGE) ;
ON PAGEDOWN ::VScroll( GO_DOWN, GO_PAGE) ;
ON LEFT ::HScroll( GO_LEFT ) ;
ON RIGHT ::HScroll( GO_RIGHT ) ;
ON PAGELEFT ::HScroll( GO_LEFT, GO_PAGE ) ;
ON PAGERIGHT ::HScroll( GO_RIGHT, GO_PAGE ) ;
VALID ( ::oWnd:oIcon := nil ,;
::oFont:End() ,;
::oMeta1:End() ,;
::oMeta2:End() ,;
::oDevice:End() ,;
::oHand:End() ,;
::oWnd := nil ,;
If( IsAppThemed() .and. ! l2007, ::oImageList:End(),),;
::lExit := .T. ,;
PRTDefault() ,; //function de Adhemar
.T. )

Le quité el llamado a PRTDefault() a todos los botones que lo tenían.


METHOD BuildWindow() CLASS TPreview
local oCbx,cCbx:=PrnGetName()

@ 3, 500 COMBOBOX ::oFactor VAR ::nZFactor ;
ITEMS {"100 %","110 %","120 %","130 %","140 %","150 %","160 %","170 %","180 %","190 %","200 %"} ;
OF ::oBar FONT ::oFont PIXEL SIZE 55,180 ON CHANGE oThis:SetFactor( oThis:nZFactor )

//FranciscoA
@3,235 COMBOBOX oCbx VAR cCbx PROMPTS aGetPrinters() OF ::oBar FONT ::oFont PIXEL SIZE 216,25 ON CHANGE CambiaPRT(cCbx)
cPRTDefault := GetProfString( "windows", "device" , "" ) //FranciscoA


METHOD BuildMenu() CLASS TPreview
local oFactor //FranciscoA


METHOD SetFactor( nValue ) CLASS TPreview
Local lInit := .F.,n

if nValue == nil .and. ::oWnd:oMenu != nil
AEval( ::aFactor, { | v, e | v:nHelpId := e } )
nValue := ::nZFactor
lInit := .T.
endif

//FranciscoA
if nValue == nil
nValue := 1
endif

Saludos

[FranciscoA]

¡Oh!... me faltó esto:
//----------------------------------------------------------------------------//
Function CambiaPRT(cCbx) //Function agregada por Adhemar

//cPRTDefault := GetProfString( "windows", "device" , "" )
WriteProfString( "windows", "device", cCbx+",winspool,Ne0:" )

lCambioPRT:=.T.

Return nil
Sorry.

[anserkk]

Dear Adhemar,

Very good work and a nice elegant update to RPreview class

Regards
Anser

[QAZWSX2K]

bueno excelente trabajo de esteban ojeda y Manuel Valedero, gracias por la recopilacion de las mismas

[QAZWSX2K]

aunque eso de pedir la impresora despues de generado el reporte me da dudas....se pedia la impresora antes precisamente pq obtenias la resolucion, etc antes de generar el reporte, ahora, si no la pide se hace con la resolucion de la por defecto, si la cambias despues de generado no te tomara en cuenta para nada la nueva resolucion, saldria estilo clase tdosprn, por ejemplo tengo la citizen gxs-190 por defecto y una laser 4000, si lo cambio despues de generado a la laser, saldria el reporte pequeño pq el reporte se genero con la resolucion de la gsx-190, prueben y veran

[joseluisysturiz]

El link esta roto...

[antolin]

Hola acuellar,

El link no me funciona, a lo mejor es porque es antiguo, te importaría volver a colocarlo?

Gracias

[acuellar]

Ya coloque el rpreview.zip en el link indicado arriba para su descarga

Saludos

Adhemar

[antolin]

Estimado Acuellar,

No me gustaría pecar de pesado, pero el enlace sigue roto. ¿Te importaría mandarmelo a mi e-mail?

antolin28@gmail.com

Gracias y un saludo

[acuellar]

Lo siento, aqui va de nuevo

http://200.58.169.10/paquetes/rpreview.zip

Saludos

Adhemar

[antolin]

Gracias acuellar ya lo cogí

[jponce]

Baje la clase
y me costo un poco adaptarla a la version de fwh que tengo que es la 2.7 y logre visualizar los datos en pantalla pero al momento de imprimir no imprime nada.

que puede estar pansando?

Atentamente
Julio Ponce