FiveTech Software tech support forums

Code: Select all | Expand

#include "Fivewin.ch"

*****************************************************************************
*** Imprimir con marca de agua
*******************************************
FUNCTION Main()
LOCAL oPrn, nRow, oFont, oFont3, y, i

   DEFINE FONT oFont3  NAME "ARIAL"       SIZE 25,25*2.5
   DEFINE FONT oFont   NAME "CALIBRI"     SIZE 25*1.5,25*3 BOLD           
   PRINT oPrn NAME "Roberto " PREVIEW MODAL
     oPrn:SetPortrait()
     oPrn:SetPage(9)
     PAGE    
       @ 0,0 PRINT TO oPrn IMAGE "fondo.jpg" SIZE oPrn:nHorzRes(), oPrn:nVertRes() PIXEL STRETCH GRAY
       
       @ 5.5, 1   PRINT TO oPrn TEXT "C.U.I.T.:" ;
                SIZE 3,.5 CM FONT oFont3 ALIGN "R"
       @ 5.5, 4.1 PRINT TO oPrn TEXT "20-21442466-6" ;
                SIZE 6,.5 CM FONT oFont ALIGN "L"
       @ 5.5, 9.5  PRINT TO oPrn TEXT "Razon Social:" ;
                SIZE 2.5,.5 CM FONT oFont3 ALIGN "R"
       @ 5.5, 12.5 PRINT TO oPrn TEXT "Roberto" ;
                SIZE 8,1 CM FONT oFont LASTROW nRow  
       @ 6,1  PRINT TO oPrn TEXT "Condicion IVA:" ;
                SIZE 3,.5 CM FONT oFont3 ALIGN "R"
       @ 6,4.1 PRINT TO oPrn TEXT "Responsable Monotributo" ;
                SIZE 6,.5 CM FONT oFont ALIGN "L"
       nRow := IF(nRow<6,6,nRow)
       @ nRow, 9.5 PRINT TO oPrn TEXT "Direccion:" ;
                SIZE 2.5,.5 CM FONT oFont3 ALIGN "R"
       @ nRow, 12.5 PRINT TO oPrn TEXT "Domicilio de Roberto" ;
                SIZE 8,1 CM FONT oFont  
       @ 6.5, 01 PRINT TO oPrn TEXT "Condicion venta:" ;
                SIZE 3,.5 CM FONT oFont3 ALIGN "R"
       @ 6.5, 4.1 PRINT TO oPrn TEXT "Contado" ;
                SIZE 6,.5 CM FONT oFont ALIGN "L"
       @ 7, 01 PRINT TO oPrn TEXT "Forma de pago:" ;
                SIZE 3,.5 CM FONT oFont3 ALIGN "R"
       @ 7, 4.1 PRINT TO oPrn TEXT "Contado" ;
                SIZE 6,.5 CM FONT oFont ALIGN "L"
       

       @ 8.2, 0.7 PRINT TO oPrn TEXT "Codigo" ;
                SIZE 2.5,.9 CM FONT oFont3 ALIGN "L"
       @ 8.2, 3.5 PRINT TO oPrn TEXT "Descripcion del producto" ;
                SIZE 6.5,.9 CM FONT oFont3 ALIGN "L"
       @ 8.2, 10 PRINT TO oPrn TEXT "Cantidad" ;
                SIZE 2,.9 CM FONT oFont3 ALIGN "R"                           
       y := 9.2
       FOR i = 1 TO 10
           @ y, 01 PRINT TO oPrn TEXT "123-"+STR(i,2) ;
                    SIZE 2.5,.5 CM FONT oFont ALIGN "TL"
           @ y, 03.5 PRINT TO oPrn TEXT "Producto"+STR(i,2) ;
                SIZE 6.5,2.5 CM FONT oFont LASTROW nRow ALIGN "TL"
           @ y, 10 PRINT TO oPrn TEXT STR(i,08,2) ;
                SIZE 2,.5 CM FONT oFont ALIGN "TR"
           y := nRow     
           
        NEXT       
        
     ENDPAGE
   
   ENDPRINT
           
RETURN nil
 

Code: Select all | Expand

       @ 6.5, 5 PRINT TO oPrn IMAGE "FONDO.JPG" SIZE 2.5, 5 INCHES ALIGN ""   ;
          STRETCH GRAY ALPHALEVEL 150