Tengo un REPORT comun y silvestre, codigo abajo adjunto, tiene un Preview y por lo tanto muestra el Preview, lo que quisiera hacer es que, sin que se tenga que presionar nada mas, use la opcion de "guardar como PDF", grabe el Preview como PDF y cierre el preview ... alguna idea ??
Muchas gracias ...
- Code: Select all Expand view
- sele 97
DEFINE FONT oFo1 NAME "ARIAL" SIZE 0, -nTle
DEFINE FONT oFo2 NAME "ARIAL" SIZE 0, -nTle BOLD
cTi3:= "*** Impresion de Sustento de Pagos ***"
cTit:="Banco : "+cNomBan+", CtaCte : "+cBanCte
REPORT oRep HEADER " Fecha : "+dtoc(date())+" - Hora : "+time() LEFT ;
CAPTION "*** Impresion en Formato de Voucher ***" ;
TITLE cTi3,cTit,iif(wfempt=="N","",(cEmp+" - "+alltrim(cNoe)+" - "+cAno)) CENTER ;
FOOTER "Pagina # : "+str(oRep:npage,3) LEFT ;
FONT oFo1,oFo2 PREVIEW
COLUMN TITLE "Cuenta" DATA alltrim(97->cdo_cuenta) SIZE 9
COLUMN TITLE "Proveedor" DATA alltrim(97->cdo_auxili) SIZE 10
COLUMN TITLE "Nombre - Razon Social" DATA alltrim(97->des_auxili) SIZE 30
COLUMN TITLE "Td" DATA 97->tip_docume SIZE 2
COLUMN TITLE "Doc.Numero" DATA alltrim(97->num_docume) SIZE 14
COLUMN oCo1 TITLE " Soles" DATA 97->sal_monnac PICTURE "999,999,999.99" TOTAL RIGHT FONT 2 SIZE 10
COLUMN oCo2 TITLE " Dolares" DATA 97->sal_monext PICTURE "999,999,999.99" TOTAL RIGHT FONT 2 SIZE 10
END REPORT
oRep:cPageTotal:= "Total Pagina" // Titulo de Totales por Pagina
oRep:cGrandTotal:="Total General" // Titulo de Total General
oRep:lPageTotal:=.f. // Quitar Total x Pagina
oRep:oDevice:SetPortrait() // Vertical en TReport
oRep:oDevice:lPrvModal:=.t. // Para que Preview salga de Frente no en una Ventana aparte
ACTIVATE REPORT oRep ON STARTGROUP oRep:NewLine() // ON INIT oRep:TPreview:SaveAs(.t.,.f.)
