Estimados
Necesito crear desde mi sistema un documento en WORD o PDF el cual incluya imagenes y datos extraidos desde el sistema y no se como comenzar. es una especie de CERTIFICADO o DIPLOMA
Alguien me puede orientar?
Agradecido!!!
#include "Fivewin.ch"
STATIC FUNCTION PrintDiploma()
LOCAL oPrn, oFont
DEFINE FONT oFont NAME "COURIER NEW" SIZE -40,80
PRINT oPrn NAME "Diploma" PREVIEW MODAL
PAGE
oPrn:SayImage(0,0, "diploma.jpg", oPrn:nHorzRes(), oPrn:nVertRes() , nil, .t. )
oPrn:Say( 100,100 , MiTabla->nombre,oFont )
oPrn:Say( 200,100 , MiTabla->titulo,oFont)
.... // Y todos los datos que quieras agregar
ENDPAGE
ENDPRINT
RETURN nil
// Using CorelDraw to generate printing templates!!!
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
LOCAL oPrn, oFont, oIni, oPrinter
PRINTER oPrn PREVIEW
DEFINE FONT oFont NAME "Times New Roman" SIZE 0,-12 OF oPrn
PAGE
#ifdef __CLIPPER__
oPrn:ImportWMF( "Invoice.Wmf" )
#else
oPrn:ImportWMF( "Invoice.emf" )
#endif
oPrn:CmSay( 2.1, 16, "19960001") // invoice
oPrn:CmSay( 4.3, 1.7, "Computer Associates") // company name
oPrn:CmSay( 5.5, 1.7, "Somewhere in U.S.A.") // adress
oPrn:CmSay( 7 , 1.7, "0001") // reference
oPrn:CmSay( 7 , 4.2, "Software consulting") // description
oPrn:CmSay( 7 , 18.5, "0") // price
oPrn:CmSay( 16 , 18.5, "0") // total
ENDPAGE
PAGE
#ifdef __CLIPPER__
oPrn:ImportWMF( "Invoice.Wmf" )
#else
oPrn:ImportWMF( "Invoice.emf" )
#endif
oPrn:CmSay( 2.1, 16, "19960002") // invoice
oPrn:CmSay( 4.3, 1.7, "Microsoft Corporation") // company name
oPrn:CmSay( 5.5, 1.7, "Somewhere in U.S.A.") // adress
oPrn:CmSay( 7 , 1.7, "0002") // reference
oPrn:CmSay( 7 , 4.2, "Another test") // description
oPrn:CmSay( 7 , 18.5, "0") // price
oPrn:CmSay( 16 , 18.5, "0") // total
ENDPAGE
ENDPRINT
oFont:End()
MsgInfo( "Work done!", "Look at your printer" )
return nil
//----------------------------------------------------------------------------//
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 86 guests