Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá vi alguns post's que falavam sobre fpdf em asp, alguém poderia informar onde baixar a biblioteca ?
https://sites.google.com/site/aspfpdf/home - Eu procurei procurei procurei e o e lá na pagina 321654 do google achei esse link.. para quem precisa fica ai na pergunta !
!! RESOLVIDO - FICA PARA OUTROS USUÁRIOS O LINK
http://www.asppdf.com/
ASP FPDF !!! esse ai eu já tinha vistao....
mas aproveitando a oportunidade, é possível efetuar o seguinte procedimento ?
<html>
<head>
<title>TESTe</title>
</head>
<body>
<h1>Olá Mundo</h1>
</body>
</head><%
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","B",16
pdf.Open()
pdf.AddPage()
pdf.Cell 40,10,PAGINA_HTML_AQUI
pdf.Close()
pdf.Output
%>
É possível jogar uma página inteira HTML dentro do pdf... ?? se possível pode explicar qual o procedimento ?
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.ConnectionString = "driver=MySQL ODBC 5.1 driver;server=;uid=;pwd=;db="
conexao.open
SQL = "SELECT * FROM noticias order by id desc"
Set listar = conexao.Execute(SQL)
valor = listar("noticia")
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
pdf.AddPage()
pdf.Cell 40,10,valor
pdf.Close()
pdf.Output()
%>
>
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.ConnectionString = "driver=MySQL ODBC 5.1 driver;server=;uid=;pwd=;db="
conexao.open
SQL = "SELECT * FROM noticias order by id desc"
Set listar = conexao.Execute(SQL)
valor = listar("noticia")
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
pdf.AddPage()
pdf.Cell 40,10,valor
pdf.Close()
pdf.Output()
%>
Tava pensando em algo como um INCLUDE ! não select do banco !
também pode, única diferença será da onde vem os dados
também pode, única diferença será da onde vem os dados
Exemplo ?
Veja se sua hospedagem tem o componente ABCpdf com ele vc passa a URL e ele cria o PDF de sua página.
o que teria exatamente este include ?
o que teria exatamente este include ?
UM boleto em HTML !
eu uso assim para criar um boleto e converter em PDF
Set PDF = Server.CreateObject("Persits.PDF")
Set StartDoc = Pdf.CreateDocument
Set Page = StartDoc.Pages.Add
Page.Canvas.DrawText "N°. "&VARIAVEL, "x=0; y=550; width=570; alignment=right; size=15", StartDoc.Fonts("Helvetica")
Page.Canvas.DrawText "
TEXTO "&VARIAVEL&" TEXTO "&VARIAVEL&" TEXTO
", "x=30; y=500; width=540; size=15; spacing=2; html=true", StartDoc.Fonts("Helvetica")
aqui é só um exemplo, voce tem que adaptar ao seu uso, ou seja monte o boleto ja em PDF
Filename = StartDoc.Save( Server.MapPath("PASTA/"&NOMEDOARQUIVO&".pdf"), false )
depois se quiser pode abaixo enviar por e-mail
aqui usando o Persits.PDF, a maioria dos host tem ele
ou no FPDF
<!--#include file="fpdf.asp"-->
<%
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
pdf.AddPage()
pdf.Cell 40,10,'aki a variável que contém o boleto
'pdf.Cell 40,10,"Olá mundo"
pdf.Close()
pdf.Output()
%>
>
eu uso assim para criar um boleto e converter em PDF
Set PDF = Server.CreateObject("Persits.PDF")
Set StartDoc = Pdf.CreateDocument
Set Page = StartDoc.Pages.Add
Page.Canvas.DrawText "N°. "&VARIAVEL, "x=0; y=550; width=570; alignment=right; size=15", StartDoc.Fonts("Helvetica")
Page.Canvas.DrawText "
TEXTO "&VARIAVEL&" TEXTO "&VARIAVEL&" TEXTO
", "x=30; y=500; width=540; size=15; spacing=2; html=true", StartDoc.Fonts("Helvetica")
aqui é só um exemplo, voce tem que adaptar ao seu uso, ou seja monte o boleto ja em PDF
Filename = StartDoc.Save( Server.MapPath("PASTA/"&NOMEDOARQUIVO&".pdf"), false )
depois se quiser pode abaixo enviar por e-mail
aqui usando o Persits.PDF, a maioria dos host tem ele
ou no FPDF
<!--#include file="fpdf.asp"-->
<%
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
pdf.AddPage()
pdf.Cell 40,10,'aki a variável que contém o boleto
'pdf.Cell 40,10,"Olá mundo"
pdf.Close()
pdf.Output()
%>
xanburzum Desculpe, mas como seria colcoar isso :
<html>
<head>
</head>
<body>
<h1>
Olá Mundo
</h1>
</body>
</html>Em uma variável
vc vai concatenar tudo isso numa variável... tipo:
corpo = “<html><head><meta http-equiv=” & chr(34) & “Content-Type” & chr(34) & ” content=” & chr(34) & “text/html; charset=iso-8859-1″ & chr(34) & “></head>”
corpo = corpo+ “<body><font face=” & chr(34) & “Verdana” & chr(34) & ” size=”2″>Corpo da mensagem…” & Date() & “</font></body></html>”pdf.Cell 40,10,corpo
>
vc vai concatenar tudo isso numa variável... tipo:
corpo = “<html><head><meta http-equiv=” & chr(34) & “Content-Type” & chr(34) & ” content=” & chr(34) & “text/html; charset=iso-8859-1″ & chr(34) & “></head>”
corpo = corpo+ “<body><font face=” & chr(34) & “Verdana” & chr(34) & ” size=”2″>Corpo da mensagem…” & Date() & “</font></body></html>”pdf.Cell 40,10,corpo
xanburzum - Fiz isso ai, mas lá no PDF, ele imprimiu o código HTML - tem algo haver eu estar rodando local e isso só funciona na WEB ?
coloque num host (server) para testar, ou mande o code pra mim e jogo num server ara testar
http://www.asppdf.com/