www.FiveTechSoft.com
https://fivetechsupport.com/forums/
https://fivetechsupport.com/forums/viewtopic.php?f=6&t=40970
Posted: Mon Oct 25, 2021 8:25 amPosted: Mon Oct 25, 2021 10:28 amPosted: Mon Oct 25, 2021 8:01 pmkarinha wrote:Mira el RPREVIEW.PRG
Regards, saludos.
Posted: Mon Oct 25, 2021 8:28 pmPosted: Tue Oct 26, 2021 11:13 am
//PERSONALIZAMOS LA BARRA DE BOTONES DE LA VISTA PREVIA
TPreview():bButtonBar := {| oPreview, oWnd | YourButtonBar (oPreview, oWnd)}
**************************************
*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
leandro wrote: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