FiveTech Software tech support forums

Code: Select all

   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.)  

Code: Select all

...
...
 SET 3DLOOK OFF
 PRINTER oPrn TO "Impresora Prederminada" FILE ".\InformesPdf\Nombre archivo.pdf"  PREVIEW
 IF EMPTY( oPrn:hDC )
    RETURN NIL
 ENDIF

 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  ;
          TO DEVICE oPrn
.....
.....

 

Code: Select all

 TO DEVICE oPrn