ASP.NET & Pdf ในการส่งออก ASP.NET ในรูปแบบของ Pdf มี Component Library ให้เลือกใช้ได้หลายตัว แต่ผมเลือกใช้ของ PdfSharp เพราะมันสามารถใช้งานได้ฟรี และเป็น Open Source ด้วยครับ ดาวน์โหลด PdfSharp ได้ที่ http://www.icsharpcode.net/
Language Code : VB.NET || C#
ASP.NET Add Reference
Framework : 1,2,3,4
Instance NameSpace
VB.NETImports PdfSharp
C#Using PdfSharp;
AspNetPDF.aspx
<%@ Import Namespace="PdfSharp"%>
<%@ Import Namespace="PdfSharp.Drawing"%>
<%@ Import Namespace="PdfSharp.Pdf"%>
<%@ Import Namespace="PdfSharp.Pdf.IO"%>
<%@ Page Language="VB" %>
<script runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
' Create a new PDF document
Dim DocPDF As PdfDocument = New PdfDocument
' Create an empty page
Dim objPage As PdfPage = DocPDF.AddPage
' Get an XGraphics object for drawing
Dim gfx As XGraphics = XGraphics.FromPdfPage(objPage)
' Create a font
Dim font As XFont = New XFont("Verdana", 20, XFontStyle.Bold)
' Draw the text
gfx.DrawString(" Hello, World!", font, XBrushes.Black, _
New XRect(0, 0, objPage.Width.Point, objPage.Height.Point), XStringFormats.TopCenter)
' Draw the text
gfx.DrawString("Welcome To www.ThaiCreate.Com", font, XBrushes.Black, _
New XRect(0, 0, objPage.Width.Point, objPage.Height.Point), XStringFormats.Center)
' Draw the text
gfx.DrawString("Version 2009", font, XBrushes.Black, _
New XRect(0, 0, objPage.Width.Point, objPage.Height.Point), XStringFormats.BottomCenter)
' Save the document...
Dim FileName As String = "MyPDF/PdfDoc.pdf"
DocPDF.Save(Server.MapPath(FileName))
DocPDF.Close()
DocPDF = Nothing
Me.lblText.Text = "PDF Created <a href=" & FileName & ">click here</a> to view"
End Sub
</script>
<html>
<head>
<title>ThaiCreate.Com ASP.NET - Send Mail</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Label id="lblText" runat="server"></asp:Label>
</form>
</body>
</html>
Screenshot
|