Harupdf: Numerando páginas no final
Enviado: 08 Jan 2019 09:19
Sim, estou usando o Harupdf da Minigui Extended.
Em homenagem a Paulo Cesar Toledo
https://pctoledo.org/
Código: Selecionar todos
VAR aPDFPageList INIT {}
Código: Selecionar todos
::oPdfPage := HPDF_AddPage( ::oPdf )
AAdd( ::aPDFPageList, ::oPDFPage )
Código: Selecionar todos
FOR nCont = 1 TO ::nFolhas
::oPDFPage := ::aPDFPageList[ nCont ]
::DrawTexto( 383, ::nLinhaPdf - 047, 418, Nil, Str( nCont, 1 ) + "/" + Str( ::nFolhas, 1 ), HPDF_TALIGN_CENTER, ::oPDFFontBold, 10 )
NEXT