#include "FiveWin.ch"
#include "PdfHbDoc.ch"
Static oWnd, n
Function Main()
Local oMenu
MENU oMenu
MENUITEM "My First Pdf" ACTION creapdfcc()
MENUITEM "Exit" ACTION oWnd:End
ENDMENU
DEFINE WINDOW oWnd MENU oMenu
ACTIVATE WINDOW oWnd MAXIMIZED
Return Nil
function creapdfcc()
local dresult // := DEHASTA()
local cImpdos
local oprn
local nsaldo := 0
local nvalor := 0
local z := 0
local cPath := "C:\PDF\MEUPDF.pdf"
local oPdf
local ntotal := 0
n := 2.9
opdf := tpdf():new(cPath)
opdf:Pdfnewpage("A4","P")
opdf:Pdfimage(".\QRCODE.jpg", cm2dpi(2.5), 0,85,66)
opdf:Pdfatsay("QUÍMICA MEGA SA",cm2dpi( .7 ),100,.T.)
oPdf:Pdfatsay("Matanza 1456/58",cm2dpi( 1.2 ),100,.T.)
oPdf:Pdfatsay("Avellaneda-Pcia Bs As",cm2dpi( 1.6 ),100,.T.)
oPdf:Pdfatsay("T.E.: 4289-2700(Rotativas)",cm2dpi( 2.0 ),100,.T.)
oPdf:Pdfatsay(replicate("_",115),cm2dpi( 2.5 ),10,.T.)
opdf:Pdfclosepage()
opdf:pdfclose()
msginfo("Archivo creado con éxito","Aviso del sistema")
/*
if !empty(cmail)
correo(cMail,,("Enviamos resumen de cuenta desde " + transform(dresult[1],"@d") + " hasta " + transform(dresult[1],"@d") ),"Resumen de cuenta", alltrim(cPath ) )
endif
*/
ShellExecute( oWnd:hWnd, "open", "c:\pdf\meupdf.pdf" )
return .t.
/*******************************************************************************/
function cm2dpi( nCM, page, lHeight )
Local nHeight,nDpi := 72
Local nRes
if empty( lHeight )
lHeight := .T.
endif
if lHeight
nHeight := 842.0
nRes := nHeight - ( nCM * nDpi / 2.54 )
else
nRes := ( nCM * nDpi / 2.54 )
endif
return nRes