Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
Carregando comentários...