[Resolvido] Converter página HTML em PDF

[Giovani Campêlo 0]

Amigos alguém conhece alguma forma (rotina, componente de preferência free) que converta páginas HTML em PDF?

 

Tenho uma aplicação que vai gerar vários relatórios onde deve haver uma opção de transformar em pdf, como não tenho controle sobre o layout de cada relatório tenho que converter o próprio html.

 

Se alguém conhecer algum posta ai...

 

Valeu

[Ted k' 126]

Free não, só desembolsando (hehehe)

 

olha o codigo aqui:

 

<!--METADATA TYPE="TypeLib" UUID="{414FEE4B-2879-4090-957E-423567FFCFC6}"-->
<%
' Início - Mostrar Contrato : Gerar PDF '
	Dim Pdf, Doc, Page
	Set Pdf = Server.CreateObject("Persits.Pdf")
	Set Doc = Pdf.CreateDocument

		Doc.ImportFromUrl "http://www.terra.com.br"
		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

	Doc.SaveHttp("attachment; filename=Contrato.pdf")
' Final - Mostrar Contrato : Gerar PDF '
%>

ai ele pega a página do terra e converte, bloqueia para não modificar e não copiar e ainda gera paginação, melhor que isso só dois!!!!

[Giovani Campêlo 0]

Massa cara testei aqui e funcionou, abrigado pelo exemplo eu já tinha procurado um bocado!

 

Agora estou procurando uma empresa que revenda esse componente (aspPDF) aqui no brasil.

 

Se alguém souber posta ai!!!

[Ted k' 126]

Locaweb!!!

[Giovani Campêlo 0]

Amigo você saberia como eu faço para que o site ocupe todo o documento?

[Ted k' 126]

ai vai depender da estrutura do site cara as divs as tables 100%, isso ai o Persits.Pdf não faz!

[Giovani Campêlo 0]

Você conhece algum site onde eu possa obter mais informações sobre como fazer isso?

[Ted k' 126]

sobre asp pdf

 

http://www.asppdf.com/manual_08.html

[Giovani Campêlo 0]

Ei cara o Locaweb não vende o componente ele só é provedor, eu precisaria de uma empresa que revenda aqui no brasil.

[Ted k' 126]

há você falou em venda de componente, desculpa erro meu, geralmente quase 100% dos componentes pagos só são vendidos pelos próprios sites onde são desenvolvidos, no brasil creio que você não irá achar assim fácil, não esou dizendo que é possível, mais caso queira testar, tem alguns componentes que disponibilizam os arquivos triais...

[Giovani Campêlo 0]

Pois é estou usando um, testei aqui e ficou massa, mas estou querendo comprar o componente e por regras aqui do trabalho tem que ser de empresa brasileira. :(

 

Se alguém ai souber ou tiver empresa e quiser revender avisa!!!

[Ted k' 126]

tenta procurar mais no google, mais se eu souber te avisarei o quanto antes!!!

Boa sorte!!

[Giovani Campêlo 0]

Galera ai pra quem quiser gerando pdf e enviando o arquivo via email usando cdonts (evitando o uso do aspMail)

 

 

 

 

 

<!--METADATA TYPE="TypeLib" UUID="{414FEE4B-2879-4090-957E-423567FFCFC6}"-->
<%
' Início - Mostrar Contrato : Gerar PDF '
	Dim Pdf, Doc, Page
	Set Pdf = Server.CreateObject("Persits.Pdf")
	Set Doc = Pdf.CreateDocument

		Doc.ImportFromUrl "http://www.google.com.br/", "landscape=true"
		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
 		
	nm_Arquivo = Doc.Save( Server.MapPath("relatorio.pdf"), False )
	
	'Doc.SaveHttp("attachment; filename=Relatorio.pdf")

'*****************************************************
'cria o objeto para o envio de e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

	'e-mail do remetente
	 objCDOSYSMail.From = "Email <email@email.com.br>"
	'e-mail do destinatário
	 objCDOSYSMail.To = "Email <email@email.com.br>"
	' objCDOSYSMail.BCC = "Giovani Gmail <giovanicaf@gmail.com>, Giovani SECULT <giovani@secult.ce.gov.br>"
	'assunto da mensagem
	 objCDOSYSMail.Subject = "Teste de envio de e-mail"
	'objCDOSYSMail.TextBody = strBody
	'para envio da mensagem no formato html altere o TextBody para HtmlBody
	 objCDOSYSMail.HtmlBody = "Verifique o anexo"
	 objCDOSYSMail.AddAttachment(Server.MapPath(nm_Arquivo))
	 On Error Resume Next
	'envia o e-mail
	 objCDOSYSMail.Send
	 
	 if Err <> 0 Then
	  Response.Write "Ouve um erro ao enviar o e-mail: " & Err.Description
	  Response.end
	 else
	  Response.Write "<script language='javascript'>"
	  Response.Write " alert('Email enviado com sucesso!');"
	  Response.Write "</script>"
	 end If
	 
	'destrói os objetos
	Set objCDOSYSMail = Nothing
	Set objCDOSYSCon = Nothing


	' Deletando o arquivo depois de enviar
	
	Set FSO = Server.CreateObject("Scripting.FileSystemObject")
	
	If Fso.FileExists(Server.MapPath(nm_Arquivo)) Then
		Set arquivo = FSO.GetFile(Server.MapPath(nm_Arquivo))
		arquivo.delete
	end if

%>

[Ted k' 126]

hehehe, bala man!!!!!

[ernestovm 0]

Amigo,

 

Tentei usar, mas deu o erro abaixo. Qual o problema?

 

Active Server Pages error 'ASP 0223'

 

TypeLib Not Found

 

/Novela0.asp, line 1

 

METADATA tag contains a Type Library specification that does not match any Registry entry.

[xanburzum 169]

você tem os componentes instalados corretamente...

A DLL está na pasta winntsystem32 foi registrada.

aponta para um arquivo inválido ou ProgID. Para tags válido metadados para carregar TypeLibs para várias versões do MDAC