FiveTech Support Forums

Leandro,

Lo más sencillo es modificar el código de FWH\source\classes\rpreview.prg

Si nos muestras el código fuente de como construyes ese impreso, tal vez encontremos una forma de hacerlo que no precise de modificar rpreview.prg

Hola Leandro

como dice el Maestro Antonio Linares

Modifica la clase rpreview

METHOD PrintPage() CLASS TPreview

local hMeta := ::oMeta1:hMeta
local oDlg, oRad, oPageIni, oPageEnd
local nOption := 1, nFirst := 1, nLast := Len( ::oDevice:aMeta ) // DEVICE
local oThis := Self
local lCancel := .t.

if nLast != 1

  DEFINE DIALOG oDlg SIZE 400, 183 TITLE FWString( "Printing" )
  oDlg:lTruePixel := .f.

  @ 8, 8 GROUP PROMPT FWString( "Printing range" ) SIZE 135, 72 PIXEL OF oDlg

  @ 18, 18 RADIO oRad VAR nOption ;
    ITEMS FWString( "All" ), FWString( "Current page" ), FWString( "Pages" ) ;
    ON CHANGE If( nOption == 3,;
              ( oPageIni:Enable(), oPageEnd:Enable() ),;
              ( oPageIni:Disable(), oPageEnd:Disable() ) ) PIXEL

  @ 61, 30 SAY FWString( "From" ) OF oDlg PIXEL

  @ 60, 53 GET oPageIni ;
    VAR nFirst PICTURE "@K 99999" ;
    VALID If( nFirst < 1 .or. nFirst > nLast, ( MsgBeep(), .F. ), .T. ) ;
    OF oDlg SIZE 22, 11 PIXEL

  @ 61, 80 SAY FWString( "To" ) OF oDlg PIXEL

  @ 60, 103 GET oPageEnd ;
    VAR nLast PICTURE "@K 99999" ;
    VALID If( nLast < nFirst .or. nLast > Len( ::oDevice:aMeta ),; // DEVICE
           ( MsgBeep(),.F. ), .T.) OF oDlg PIXEL

  @ 10, 152 BUTTON FWString( "&Ok" ) OF oDlg SIZE 42, 14 ;
    ACTION ( lCancel := .f., oDlg:End() ) PIXEL

  @ 28, 152 BUTTON FWString( "&Cancel" ) OF oDlg SIZE 42, 14 ;
    ACTION oDlg:End() PIXEL

  ACTIVATE DIALOG oDlg CENTERED ;
    ON INIT ( oPageIni:Disable(), oPageEnd:Disable(), .T. )

else
lCancel := .f.
endif

if ! lCancel
MsgRun( ::oDevice:cDocument, "Printing Report",;
{ || ::PrintPrv( nil, nOption, nFirst, nLast ) } )
endif
///puedes colocar lo que quieras hacer en mi caso me toco para una impresión particular salir al imprimir por medio de la variable zPrintTick que es una variable de mi software
If zPrintTick
::oWnd:End()
EndIf
///
return nil

Antonio y Luis muchas gracias por responder. Ya había mirado esa opción, pero la verdad es que no me gusta modificar las clases. Pensé que posiblemente había otra forma de hacerlo. Voy a crear un pequeño dialogo para controlar ese proceso.

Por qué no haces solo un EXTEND CLASS del METHOD BuildButtonBar y en el ACTION del PrintPage, haces antes una llamada a tu funcion?
.... ACTION ( MiFunc(), ::PrintPage(), .. )

Aunque lo interesante seria tener las acciones de los botones en un array de codeblocks para poderlos modificar

Es cuestion de gustos, en mi pueblo se dice "Cada maestrillo tiene su librillo"
Este es mi "librillo": Todos tenemos versiones personalizadas de varias ( e incluso muchas ) clases
Al igual que a Leandro, no me gusta modificar las clases, ya que en futuras actualizaciones de Fwh tengo que estar comparando con las actualizaciones de esas clases si deseo utilizar las novedades y mejoras que traen.
Con el EXTEND CLASS solo me preocupo de comparar ese/esos metodo(s) en concreto que puedo tener agrupados en un solo PRG, así en el caso de que dichas actualizaciones ya contemplen o mejoren los requisitos que necesito, solo tengo que borrar dicho metodo del modulo de EXTENDS.PRG que añado a los proyectos como un PRG mas.
Saludos

Cristobal y Armando Gracias por responder.

Armando la verdad es que no me gusta eso de modificar las clases, una vez lo hice asi y tuve muchos problemas. De todas formas voy a intentarlo solo para probar.

Cristobal gracias por la ayuda, voy a seguir tu consejo.

Pruebo y comento.