FiveTech Support Forums

#include "fivewin.ch"

Function Main()
   local oPrn,  n
   Private oFont

   PRINT oPrn FILE "Reporte.png"   
   oPrn:SetPage( 9 ) 
   DEFINE FONT oFont NAME "IMPACT" SIZE 0,-60 OF oPrn
   PAGE
   for n := 1 to 4
      @ n+2, 1 PRINT TO oPrn TEXT NTOCMONTH( n ) SIZE 6,3 INCHES FONT oFont //ALIGN ""
   next
   ENDPAGE
   ENDPRINT
   
   
   RotatePrint( "Reporte.png" )
   RELEASE FONT oFont

return nil

function RotatePrint( cPreview )

   local oPrn, hBmp, hBmpR

   hBmp  := FW_ReadImage( nil, cPreview )[1]
   hBmpR := RotateBmp( hBmp, 45, CLR_WHITE )
   palbmpfree( hBmp )

   PRINT oPrn PREVIEW
   oPrn:SetPage( 9 ) 
   PAGE
   @ 0,0 PRINT TO oPrn IMAGE hBmpR GRAY ALPHALEVEL 200 
   @ 4, 1 PRINT TO oPrn TEXT "TEXTO NORMAL" INCHES FONT oFont 
   ENDPAGE
   ENDPRINT

return nil