Customizar el PREVIEW

[goosfancito]

Hola.

Quiero customizar el preview del fwh, como ser que solo aparezca el boton "exportar a pdf" eso se puede hacer?
hay info?

gracias.

[karinha]

Mira el RPREVIEW.PRG

Regards, saludos.

[goosfancito]

Mira el RPREVIEW.PRG

Regards, saludos.

no me estaría ayudando esa respuesta.

[karinha]

Inicia por aqui:

Code: Select all  Expand view

   METHOD BuildMenu() CLASS TPreview
 

Regards, saludos.

[leandro]

Hola como vas?

En las primeras líneas de tu prg principal

Code: Select all  Expand view

//PERSONALIZAMOS LA BARRA DE BOTONES DE LA VISTA PREVIA
TPreview():bButtonBar := {| oPreview, oWnd | YourButtonBar (oPreview, oWnd)}
 

Code: Select all  Expand view

**************************************
*BUTTON BAR PERSONALIZADA PARA PREVIEW
**************************************
function YourButtonBar (oPreview, oWnd)
LOCAL oBar
Local nCopia := 1

DEFINE BUTTONBAR oBar OF oWnd SIZE 60,60 2015
oPreview:oBar := oBar

DEFINE BUTTON OF oBar RESOURCE "#8517" PROMPT "Imprimir" TOOLTIP "Imprimir Factura" ;
    ACTION oPreview:PrintPage()
DEFINE BUTTON OF oBar RESOURCE "#8545" PROMPT "Zoom" TOOLTIP "Zoom" ;
    ACTION oPreview:Zoom() GROUP
DEFINE BUTTON OF oBar RESOURCE "#8506" PROMPT "PDF" TOOLTIP "Exportar a PDF" ;
    ACTION oPreview:SaveAs(.T.) GROUP
DEFINE BUTTON OF oBar RESOURCE "#8506" PROMPT "WORD" TOOLTIP "Exportar a WORD" ;
    ACTION oPreview:SaveAs(.F.) 
   
DEFINE BUTTON OF oBar RESOURCE "#8548" PROMPT "Primera" TOOLTIP "Primera Página " ;
    ACTION oPreview:TopPage() GROUP
DEFINE BUTTON OF oBar RESOURCE "#8546" PROMPT "Anterior" TOOLTIP "Página Anterior" ;
    ACTION oPreview:PrevPage()
DEFINE BUTTON OF oBar RESOURCE "#8547" PROMPT "Siguiente" TOOLTIP "Página Siguiente" ;
    ACTION oPreview:NextPage() 
DEFINE BUTTON OF oBar RESOURCE "#8549" PROMPT "Ultima" TOOLTIP "Ultima Página" ;
    ACTION oPreview:BottomPage()   
   
DEFINE BUTTON OF oBar RESOURCE "#8513" PROMPT "Cerrar" TOOLTIP "Salir de la Previsualización" ;
        ACTION (oPreview:oWnd:End() ) GROUP
oBar:GoTop()

Return nil

 

[goosfancito]

Hola como vas?

En las primeras líneas de tu prg principal

Code: Select all  Expand view

//PERSONALIZAMOS LA BARRA DE BOTONES DE LA VISTA PREVIA
TPreview():bButtonBar := {| oPreview, oWnd | YourButtonBar (oPreview, oWnd)}
 

Code: Select all  Expand view

**************************************
*BUTTON BAR PERSONALIZADA PARA PREVIEW
**************************************
function YourButtonBar (oPreview, oWnd)
LOCAL oBar
Local nCopia := 1

DEFINE BUTTONBAR oBar OF oWnd SIZE 60,60 2015
oPreview:oBar := oBar

DEFINE BUTTON OF oBar RESOURCE "#8517" PROMPT "Imprimir" TOOLTIP "Imprimir Factura" ;
    ACTION oPreview:PrintPage()
DEFINE BUTTON OF oBar RESOURCE "#8545" PROMPT "Zoom" TOOLTIP "Zoom" ;
    ACTION oPreview:Zoom() GROUP
DEFINE BUTTON OF oBar RESOURCE "#8506" PROMPT "PDF" TOOLTIP "Exportar a PDF" ;
    ACTION oPreview:SaveAs(.T.) GROUP
DEFINE BUTTON OF oBar RESOURCE "#8506" PROMPT "WORD" TOOLTIP "Exportar a WORD" ;
    ACTION oPreview:SaveAs(.F.) 
   
DEFINE BUTTON OF oBar RESOURCE "#8548" PROMPT "Primera" TOOLTIP "Primera Página " ;
    ACTION oPreview:TopPage() GROUP
DEFINE BUTTON OF oBar RESOURCE "#8546" PROMPT "Anterior" TOOLTIP "Página Anterior" ;
    ACTION oPreview:PrevPage()
DEFINE BUTTON OF oBar RESOURCE "#8547" PROMPT "Siguiente" TOOLTIP "Página Siguiente" ;
    ACTION oPreview:NextPage() 
DEFINE BUTTON OF oBar RESOURCE "#8549" PROMPT "Ultima" TOOLTIP "Ultima Página" ;
    ACTION oPreview:BottomPage()   
   
DEFINE BUTTON OF oBar RESOURCE "#8513" PROMPT "Cerrar" TOOLTIP "Salir de la Previsualización" ;
        ACTION (oPreview:oWnd:End() ) GROUP
oBar:GoTop()

Return nil

 

gracias!