Preciso montar um formulário com logotipo que será entregue ao cliente com os dados da compra que será entregue posteriormente (móveis).
Estou tentando fazer em PDF porque será visualizado antes da impressão, para eventuais correções. Como arrumo esse exemplo pra poder imprimir os retângulos no formulário, e o logotipo dentro dele, no canto superior esquerdo. Não consigo andar com isso. O logo é impresso no rodapé e quanto a tentar desenhar o retângulo, no site tem:
Como defino esses modos?HPDF_Page_Rectangle() appends a rectangle to the current path.
An application can invoke HPDF_Page_Rectangle() when the graphics mode of the page is in HPDF_GMODE_PAGE_DESCRIPTION or HPDF_GMODE_PATH_OBJECT.
Código: Selecionar todos
/*
Compilar: HBMK2 exemplo hbhpdf.hbc
*/
#include "harupdf.ch"
Function Main()
Local cFileToSave := "Arquivo.PDF"
Private oPDF, oPage, nHeight, nWidth, cFonte
oPDF := HPDF_New()
If oPDF = Nil
Hb_Alert( "Erro ao gerar o Arquivo Pdf" )
Return Nil
EndIf
HPDF_SetCompressionMode( oPDF, HPDF_COMP_ALL )
oPage := HPDF_AddPage( oPDF )
nHeight := HPDF_Page_GetHeight( oPage )
nWidth := HPDF_Page_GetWidth( oPage )
//HPDF_Page_CheckState( oPage, HPDF_GMODE_PAGE_DESCRIPTION )
//HPDF_Page_Rectangle( oPage, 10, 10, 200, 70 )
oImage := HPDF_LoadJPEGImageFromFile( oPDF, "logotipo.jpg" )
HPDF_Page_DrawImage( oPage, oImage, 2, 5, 170, 60 )
cFonte := HPDF_GetFont( oPDF, "Helvetica", NIL )
HPDF_Page_BeginText( oPage )
HPDF_Page_MoveTextPos( oPage, 10, nHeight - 10 )
HPDF_Page_SetFontAndSize( oPage, cFonte, 7 )
//HPDF_Page_MoveTextPosNextLine( oPage )
HPDF_Page_ShowText( oPage, "Teste de Texto 1" )
HPDF_Page_MoveTextPos( oPage, 0, -10 )
HPDF_Page_ShowText( oPage, "Teste de Texto 2" )
HPDF_Page_MoveTextPos( oPage, 0, -10 )
HPDF_Page_ShowText( oPage, "Teste de Texto 3" )
HPDF_Page_EndText( oPage )
HPDF_SaveToFile( oPDF, cFileToSave )
HPDF_Free( oPDF )
Return ( cFileToSave )
