Discussão sobre a biblioteca Fivewin - O Clipper para Windows.
27 Ago 2015 12:59
- Código:
#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
27 Ago 2015 15:22
Oi Kapiaba,
Gostei da contribuição e tenho 4 dúvidas....
1) Pra imprimir os vários campos que compoem uma linha com campos de dados usa-se também o Pdfatsay() ??
2) Se sim, como é feita a junção desses campos dentro dessa função ?
3) Qual o significado dos parametros "cm2dpi( 1.6 )" de ",100" e de ",.T.)?
- Código:
oPdf:Pdfatsay("Avellaneda-Pcia Bs As",cm2dpi( 1.6 ),100,.T.)
4) Sabe onde tem algum manual da PDFLIB ?
Parabéns e Obrigado
27 Ago 2015 16:37
Boa tarde Lugab, veja se te ajuda na realidade eu só estava ajudando um novato a gerar .PDF, eu uso a FLEXDOCS para gerar os meus.
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=21745http://forums.fivetechsupport.com/viewtopic.php?f=6&t=31192Geralmente em FiveWin, cm2dpi = Centimentros.
Abs.
19 Fev 2020 12:01
Boa tarde a todos,
Onde consigo esses INCLUDES ?
#include "FiveWin.ch"
#include "PdfHbDoc.ch"
Andei baixando eles de lugares aleatórios e tem momentos que pede até protheus.ch !!!
Obrigado.
19 Fev 2020 15:09
Pasta de C:\xHarbour\lib
23/04/2005 10:52 19.111 PDFHBDOC.C
26/07/2004 05:32 959 PDFHBDOC.CH
20/11/2005 23:44 46.312 PDFHBDOC.PRG
Já o FiveWin.ch, somente comparando o FiveWin. Informações em:
www.fivewin.com.brAbs.
19 Fev 2020 15:19
Entendi. Obrigado.
19 Fev 2020 15:20
Sorry. Eu quis dizer: comprando(Fivewin é pago). Abs.
19 Fev 2020 15:54
Eu entendi o que você quis dizer, obrigado pela atenção.
Aproveitando. Sabe se tem alguma outra forma de gerar um PDF no xHarbour sem utilizar includes pagos ? A idéia é fazer rodar e caso não haja alternativas, adquirir o produto necessário.
Obrigado.
20 Fev 2020 11:09
Bom dia...
a Harupdf não roda no Fivewin ?
Rubens
20 Fev 2020 14:26
Funciona sim Rubens. Veja alguns exemplos, com e sem Fivewin. Download anexo.
Abs.
- Anexos
-
- HARUPDF.rar
- Exemplos de uso da HARUPDF
- (2.95 MiB) Baixado 285 vezes
20 Fev 2020 17:55
Obrigado Kapiaba... :{
Eu já uso harupdf em harbour/minigui.
Eu tava respondendo ao sasquast
Sabe se tem alguma outra forma de gerar um PDF no xHarbour sem utilizar includes pagos ?
Eu só não sabia se o fivewin roda a harupd..
abçs...
Rubens
05 Mar 2020 11:52
Muito obrigado a todos, vou fazer uns testes e retorno.
12 Mar 2020 16:27
Pessoal,
Graças a ajuda de vocês eu estou conseguindo gerar o PDF agora, nativamente, porem estou apanhando demais com os comandos, coisas simples como, centralizar o texto, alinhar a direita, o simples fato de pular pra linha de baixo está dando trabalho quando isso está dentro de um loop onde eu não tenho como fixar a linha onde vou escrever o texto.
Powered by phpBB © phpBB Group.
phpBB Mobile / SEO by Artodia.