Ir para conteúdo

POWERED BY:

Arquivado

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

jerfeson

Biblioteca FPDF ASP

Por , em ASP Clássico

Recommended Posts

jerfeson    1

jerfeson
Postado

 

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 ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado 




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()



%>



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
jerfeson
			  

	
		
	
			 1
	
		
	

		

		

			


	
		jerfeson
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			



 


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 !



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
xanburzum
			  

	
		
	
			 169
	
		
	

		

		

			


	
		xanburzum
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			
também pode, única diferença será da onde vem os dados


			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					






					
				
					
					
					






					
				
					
					
					







	

	

		

			
xanburzum
			  

	
		
	
			 169
	
		
	

		

		

			


	
		xanburzum
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			
o que teria exatamente este include ?


			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					






					
				
					
					
					







	

	

		

			
xanburzum
			  

	
		
	
			 169
	
		
	

		

		

			


	
		xanburzum
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			

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()
%>



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
jerfeson
			  

	
		
	
			 1
	
		
	

		

		

			


	
		jerfeson
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			



 


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



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
xanburzum
			  

	
		
	
			 169
	
		
	

		

		

			


	
		xanburzum
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			

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>”


dae, atribui a variável corpo no


pdf.Cell 40,10,corpo



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
jerfeson
			  

	
		
	
			 1
	
		
	

		

		

			


	
		jerfeson
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			



 


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>”


dae, atribui a variável corpo no


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 ?



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
xanburzum
			  

	
		
	
			 169
	
		
	

		

		

			


	
		xanburzum
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			
coloque num host (server) para testar, ou mande o code pra mim e jogo num server ara testar


			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
			
			



		

	


	
	

	

	







	

		
			
				Ir para a lista de tópicos
				ASP Clássico
			
		
	

	




	

	

	




						


	

		
	


					

					

	

		
        


	

		
    
			
				
					
					
  • 
				
					
					
  • 
				
					
					
  • 
				
			
		

	


		
            
			

	

		
		

			

				
			

		

	



		
	


					

				

			

			
		

		
		


	×
	

		

			

			

				
			


			
		

	



		

	































	
















		
			
		
		
		
		







	




	







	

		

			

				
Informação importante

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

			

			

				  Aceito