Jump to content
Fivewin Brasil

Alguem tem um modelo para gerar PDF


kleber

Recommended Posts

Alguem do forum pode me ajudar,

pois ja peguei tanto exemplo do forum para gerar pdf

so gastei tempo e nada, era erro pra aqui erro pra la

mexe aqui mexe ali,

os homens colocam as coisas pela metade no forum.

Por favor, tem alguem que pode manda um exemplo prg

como gerar um PDF automatico?

aguardo resposta.

kbmcuca@ibest.com.br

Link to comment
Share on other sites

Alguem do forum pode me ajudar,

pois ja peguei tanto exemplo do forum para gerar pdf

so gastei tempo e nada, era erro pra aqui erro pra la

mexe aqui mexe ali,

os homens colocam as coisas pela metade no forum.

Por favor, tem alguem que pode manda um exemplo prg

como gerar um PDF automatico?

aguardo resposta.

kbmcuca@ibest.com.br

Link to comment
Share on other sites

Se você possuir a última versão do FIVE, ao gerar o REPORT, a PREV32.DLL já dá opção de salvar em .PDF, WORD e EXCEL.

Se não tem, basta instalar uma impressora VIRTUAL tipo PDFCREATOR.EXE e disparar para ela e salvar onde voce quiser.

Outra alternativa é usar o:

UNIDANFE.EXE, também gera o .PDF se for nota fiscal eletronica.

abs,

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Editado por - kapiaba on 10/08/2012 11:35:32

Link to comment
Share on other sites

Olá Kleber, sem vc informar quais versões vc usa fica dificil indicar alguma solução, porem segue uma dica

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=19584

Um grande Abraço

Alessandroid=blue>

FW9.07 + xHb121 + CDX

Fico feliz com os Meus erros, pois eles me apontam a direção para o acerto.id=red>

Link to comment
Share on other sites

De grátis, só o bullzip pdf, baixe-o da net e instale, permite total controle vai software, veja:

no início do relatório:

cpdf_File:=curdrive()+":\"+curdir()+"\nomedoarquivo.pdf"

oPdf := TOleAuto():New( "Bullzip.PDFPrinterSettings" )

oPdf:SetValue("Output",cpdf_File)

oPdf:SetValue("ConfirmOverwrite", "no")

oPdf:SetValue("ShowSaveAS", "never")

oPdf:SetValue("ShowSettings", "never")

oPdf:SetValue("ShowPDF", "yes")

oPdf:SetValue("RememberLastFileName", "no")

oPdf:SetValue("RememberLastFolderName", "no")

oPdf:WriteSettings := .T.

PRINTER oPrinter NAME "Gerando pdf da GPS" TO "Bullzip PDF Printer"

Page

.

.

a partir daqui, vc colocar o seu relatório (definição de fontes, say, gráficos, linhas, etc.)

. comandos

. comandos

. etc

. etc

EndPage

EndPrinter

SysWait(0.5)

RELEASE oPdf

return .t.

Rikko

Guaratinguetá - SP

(12) 8829-8088

E-Mail: mkyx@ig.com.br

pardes.mky@hotmail.com

MSN:pardes.mky@hotmail.com

www.adentech.com.br

www.rmahost.com

xH 1.1.0 Hb 8.02 - BCC 55

Link to comment
Share on other sites

  • 2 months later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...