Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

rudolfkr

PDF de uma URL

Recommended Posts

Olá pessoal tudo bem?

 

Preciso fazer com que uma página seja transformada em PDF, o problema é que sempre que tento fazer (já tentei por AbcPdf, por ASPPdf) dá erro

 

não consigo fazer o arquivo ser criado,

 

por exemplo quando faço de uma url do tipo www.meusite.com.br ele vai, o que não consigo é quanto tento criar uma página da url assim

www.meusite.com.br/orcamento.asp?id=40

 

Ai não vai, fica dando erro, já revirei o google e o site do ASPDF e tudo mais, porém nenhum exemplo que funcione ou informação válida,

 

alguém pode me ajudar?

 

(não sei se ajuda mas meu servidor é da LocaWeb)

 

//////////CODIGO QUE ESTOU USANDO NO MOMENTO (O MAIS PERTO QUE DEU DE DAR CERTO)

' Cria uma instância do controle
Set AbcPdf = Server.CreateObject("ABCpdf5.Doc")
' Cria um retângulo com a área ocupada pelo objeto.
' Left / Bottom / Width / Height
AbcPdf.Rect.SetRect "40", "72", "520", "640"
' URL a ser adicionada no arquivo PDF
theURL = "http://www.site.com/sis/Orcamento.asp?id="&id&""

theID = AbcPdf.AddImageUrl(theURL, True, 0, False)
For i = 1 To 3
 If AbcPdf.GetInfo(theID, "Truncated") <> "1" Then Exit For
 AbcPdf.Page = AbcPdf.AddPage()
 theID = AbcPdf.AddImageToChain(theID)
Next 
AbcPdf.PageNumber = 1

' Salva o arquivo PDF
AbcPdf.Save Server.MapPath("../pdf/"&nomePDF&".pdf")
' Tira os objetos da memória
Set AbcPdf = Nothing

 

Mudei o script, agora estou usando este

' Início - Mostrar Gerador : Gerar PDF '   
   Dim Pdf, Doc, Page
   Set Pdf = Server.CreateObject("Persits.Pdf")   
   Set Doc = Pdf.CreateDocument   

       Search = id

       Doc.ImportFromUrl ("http://www.site.com/orcamento.asp?id=" & Search & "")

      Doc.Encrypt "7658tedk4784584754747584484584854484545", "", 40, PdfFull And (Not PDFModify) And (Not PDFCopy)   

'        For Each Page In Doc.Pages   
'            Page.Canvas.DrawText "Pág. "&Page.Index&"/"&Doc.Pages.Count&"", "x=15, y=20", Doc.Fonts("Arial")   
'        Next  

ArquivoPDF = Doc.Save( Server.MapPath("../pdf/"&nomePDF&".pdf"), False )

   'Doc.SaveHttp("attachment; filename="&nomePDF&".pdf"),True

Set Pdf = Nothing
Set Doc = Nothing
Set Page = Nothing

 

Porém apresenta o seguinte erro,

 

Persits.PdfManager.1 error '800a006b'

 

MSXML2::ServerXMLHTTP Error: The request has timed out.

 

orcamento.asp, line 146

 

a linha 146 é o "Doc.ImportFromUrl ("http://www.site.com/orcamento.asp?id=" & Search & "")"

 

alguém pode ajudar?

 

Servidor? Locaweb

Compartilhar este post


Link para o post
Compartilhar em outros sites

já consegui transformar uma página em PDF como você está querendo, mas tenho o Acrobat X Pro instalado. Ele tem na própria barra de ferramentas do navegador a opção de "converter página em PDF".

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tem alguns exemplos de uso do ASPPDF importando url postado pelo TedK se não me engano.

Também postei um exemplo usando ASPDF, mas puxando informações do banco de dados.

Ambos estão no laboratório de scripts, tem outros exemplos lá também.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tem alguns exemplos de uso do ASPPDF importando url postado pelo TedK se não me engano.

Também postei um exemplo usando ASPDF, mas puxando informações do banco de dados.

Ambos estão no laboratório de scripts, tem outros exemplos lá também.

 

O que estou usando ali agora inclusive é do TedK

 

Beto este seu exemplo eu sei que tem como fazer, mas o cliente não tem PDF ou seja ele quer só clicar no botão e o resto faz sozinho, no caso estou usando um exemplo como falei do TedK

 

o problema é, se uso só www.site.com ele faz certinho, mas o que eu quero é que ele "crie" o PDF de uma página através de um ID ou seja o ID fará com que a página seja carregada com as infos e ai sim, que ele crie o PDF desta página,

 

mas fica aparecendo o seguinte erro

 

Persits.PdfManager.1 error '800a006b'

 

MSXML2::ServerXMLHTTP Error: The request has timed out.

 

orcamento.asp, line 146

 

a linha 146 é o "Doc.ImportFromUrl ("http://www.site.com/orcamento.asp?id=" & Search & "")"

 

E estou parado nisto, não to conseguindo descobrir o que fazer.

Compartilhar este post


Link para o post
Compartilhar em outros sites

olha este link

Compartilhar este post


Link para o post
Compartilhar em outros sites

Valeu pela dica David, mas já tinha visto este tópico e não me ajudou infelizmente,

 

quanto ao link do xanburzum eu dei uma olhada, mas não consegui resolver o problema ainda...

 

Estou vendo o que posso fazer para resolver o problema...

 

Se alguém souber como fazer isso ficarei agradecido.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.