asp.net เชื่อมผ่าน pdf ออกรายงานโดยการดึงข้อมูลจากฐานข้อมูลมาแสดงเป็น pdf
Tag : - - - -
Date :
2009-06-21 22:03:07
By :
gun
View :
5660
Reply :
1
No. 1
Guest
Code (VB.NET)
<%@ 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>