Criado pela Persits, o AspPDF é um componente ASP que converte o texto selecionado em formato PDF.
O nome do arquivo deverá ser igual ao declarado no campo form action. Em nosso exemplo, o arquivo deve ser salvo como asppdf.asp. Abaixo as alterações que devem ser feitas, comentadas nos próprios arquivos:
Código ASP:
<!-- Início ASP --->
<html>
<head>
<title>CreativeHost - Exemplo AspPDF</title>
</head>
<body>
<form action="asppdf.asp" method="post">
<b>Enter text:</b><br>
<textarea name="largetext" cols="80" rows="16"><% = Request("largetext") %>
</textarea><br>
<input type="submit" name="Save" Value="Gerar PDF">
</form>
<%
if Request("Save") <> "" Then
Set Pdf = Server.CreateObject("Persits.Pdf")
Set Doc = Pdf.CreateDocument
' Defina o tamanho da folha, em milímetros
Set page = Doc.Pages.Add( 216, 280 )
' Defina o tipo de fonte
Set Font = Doc.Fonts("Times-Roman")
Text = Request("largetext")
' Parâmetros de alinhamento: X, Y do canto superior esquerdo ao cado inferior direito, altura, largura e tamanho da fonte
Set param = pdf.CreateParam("x=10;y=270;height=260;width=196; size=10;")
Do While Len(Text) > 0
CharsPrinted = Page.Canvas.DrawText(Text, param, Font )
if CharsPrinted = Len(Text) Then Exit Do
Set Page = Page.NextPage
Text = Right( Text, Len(Text) - CharsPrinted)
Loop
' Defina o nome do arquivo PDF a ser gerado
Filename = Doc.Save( Server.MapPath("text.pdf"), False )
Response.Write "Arquivo gerado com sucesso! Faça o download de seu arquivo PDF <a href=" & Filename & ">aqui</a>"
End If
%>
</body>
</html>
<!-- Fim ASP --->
|
