Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,037

HOME > .NET Framework > Forum > PDF view and save PDF ขอ Code C# แสดง ไฟล์ PDF กับ save ไฟล์ PDF หน่อยครับ

PDF view and save PDF ขอ Code C# แสดง ไฟล์ PDF กับ save ไฟล์ PDF หน่อยครับ

เริ่มหัวข้อใหม่

endless_88

โพสกระทู้ ( 0 )
บทความ ( 0 )

ขอ Code C# แสดง ไฟล์ PDF กับ save ไฟล์ PDF หน่อยครับ

ขอบคุณล้วงหน้าครับ

Tag : - - - -

Date : 2009-10-16 00:18:46

By : endless_88

View : 3295

Reply : 8

No. 1

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

Code (C#)

<%@ Import Namespace="PdfSharp"%>
<%@ Import Namespace="PdfSharp.Drawing"%>
<%@ Import Namespace="PdfSharp.Pdf"%>
<%@ Import Namespace="PdfSharp.Pdf.IO"%>

<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>

<%@ Page Language="C#" Debug="true" %>
<script runat="server">
    void Page_Load(Object sender, EventArgs e)				
	{				
		// Create a new PDF document
		PdfDocument DocPDF = new PdfDocument();

		// Create an empty page
		PdfPage objPage = DocPDF.AddPage();

		// Get an XGraphics object for drawing
		XGraphics gfx = XGraphics.FromPdfPage(objPage);

		// Create a font
		XFont font1 = new XFont("Verdana", 15, XFontStyle.Bold);
		XFont font2 = new XFont("Tahoma", 8, XFontStyle.Bold);
		XFont font3 = new XFont("Tahoma", 8, 0);

        // Draw the text
        gfx.DrawString("My Customer", font1, XBrushes.Black, 
        new XRect(0, 50, objPage.Width.Point, objPage.Height.Point), XStringFormats.TopCenter);
		
        // Draw the text
        gfx.DrawString("CustomerID", font2, XBrushes.Black, 65, 80, XStringFormats.TopLeft);
		gfx.DrawString("Name", font2, XBrushes.Black, 140, 80, XStringFormats.TopLeft);
		gfx.DrawString("Email", font2, XBrushes.Black, 215, 80, XStringFormats.TopLeft);
		gfx.DrawString("CountryCode", font2, XBrushes.Black, 365, 80, XStringFormats.TopLeft);
		gfx.DrawString("Budget", font2, XBrushes.Black, 425, 80, XStringFormats.TopLeft);
		gfx.DrawString("Used", font2, XBrushes.Black, 485, 80, XStringFormats.TopLeft);
		
		// Line
        XPen pen = new XPen(XColor.FromArgb(0, 0, 0));		

        gfx.DrawLine(pen, new XPoint(65, 78), new XPoint(520, 78));
		gfx.DrawLine(pen, new XPoint(65, 90), new XPoint(520, 90));

		// Customer From Database (Start)

		OleDbConnection objConn = new OleDbConnection();
		OleDbCommand objCmd = new OleDbCommand();
		OleDbDataAdapter dtAdapter = new OleDbDataAdapter();

		DataSet ds = new DataSet();
		DataTable dt;
		String strConnString,strSQL;

		strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +
		Server.MapPath("database/mydatabase.mdb")+";Jet OLEDB:Database Password=;";
		strSQL = "SELECT * FROM customer";

		objConn.ConnectionString = strConnString;
		objCmd.Connection = objConn;
		objCmd.CommandText = strSQL;
		objCmd.CommandType = CommandType.Text;

		dtAdapter.SelectCommand = objCmd;

		dtAdapter.Fill(ds);
		dt = ds.Tables[0];

		dtAdapter = null;
		objConn.Close();
		objConn = null;

		int intLine = 90;
		int i;

		for(i = 0;i <= dt.Rows.Count - 1;i++)
		{
			gfx.DrawString(dt.Rows[i]["CustomerID"].ToString(), font3, XBrushes.Black, 65, intLine, XStringFormats.TopLeft);
			gfx.DrawString(dt.Rows[i]["Name"].ToString(), font3, XBrushes.Black, 140, intLine, XStringFormats.TopLeft);
			gfx.DrawString(dt.Rows[i]["Email"].ToString(), font3, XBrushes.Black, 215, intLine, XStringFormats.TopLeft);
			gfx.DrawString(dt.Rows[i]["CountryCode"].ToString(), font3, XBrushes.Black, 365, intLine, XStringFormats.TopLeft);
			gfx.DrawString(dt.Rows[i]["Budget"].ToString(), font3, XBrushes.Black, 425, intLine, XStringFormats.TopLeft);
			gfx.DrawString(dt.Rows[i]["Used"].ToString(), font3, XBrushes.Black, 485, intLine, XStringFormats.TopLeft);
			intLine = intLine + 10;
		}
		
		// Customer From Database (End)

		// Save the document...
		String FileName = "MyPDF/PdfDoc.pdf";
		DocPDF.Save(Server.MapPath(FileName));

		DocPDF.Close();
		DocPDF = null;

		this.lblText.Text = "PDF Created <a href=" + FileName + ">click here</a> to view";

	}

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

Date : 2009-10-16 06:27:23

By : webmaster

No. 2

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

(C#) ASP.NET Export/Report Database to Pdf

Date : 2009-10-16 06:27:50

By : webmaster

No. 3

sayyippee

โพสกระทู้ ( 3 )
บทความ ( 0 )

ขอด้วย...

Date : 2009-10-21 14:56:57

By : sayyippee

No. 4

Boom

โพสกระทู้ ( 4 )
บทความ ( 0 )

มี CODE VB ไหมครับผม

ช่วยด้วยคับ สอบโปรเจ็คจบคับ

Date : 2009-12-19 23:22:56

By : t_tul

No. 5

Guest

ขอ code VB ด้วยครับ

Date : 2011-05-26 09:20:44

By : minu

No. 6

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

Code (VB.NET)

<%@ Import Namespace="PdfSharp"%>
<%@ Import Namespace="PdfSharp.Drawing"%>
<%@ Import Namespace="PdfSharp.Pdf"%>
<%@ Import Namespace="PdfSharp.Pdf.IO"%>

<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>

<%@ 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 font1 As XFont = New XFont("Verdana", 15, XFontStyle.Bold)
		Dim font2 As XFont = New XFont("Tahoma", 8, XFontStyle.Bold)
		Dim font3 As XFont = New XFont("Tahoma", 8, 0)

        ' Draw the text
        gfx.DrawString("My Customer", font1, XBrushes.Black, _
        New XRect(0, 50, objPage.Width.Point, objPage.Height.Point), XStringFormats.TopCenter)
		
        ' Draw the text
        gfx.DrawString("CustomerID", font2, XBrushes.Black, 65, 80, XStringFormats.TopLeft)
		gfx.DrawString("Name", font2, XBrushes.Black, 140, 80, XStringFormats.TopLeft)
		gfx.DrawString("Email", font2, XBrushes.Black, 215, 80, XStringFormats.TopLeft)
		gfx.DrawString("CountryCode", font2, XBrushes.Black, 365, 80, XStringFormats.TopLeft)
		gfx.DrawString("Budget", font2, XBrushes.Black, 425, 80, XStringFormats.TopLeft)
		gfx.DrawString("Used", font2, XBrushes.Black, 485, 80, XStringFormats.TopLeft)
		
		' Line
        Dim pen As XPen = New XPen(XColor.FromArgb(0, 0, 0))
        gfx.DrawLine(pen, New XPoint(65, 78), New XPoint(520, 78))
		gfx.DrawLine(pen, New XPoint(65, 90), New XPoint(520, 90))

		' Customer From Database (Start)

		Dim objConn As New OleDbConnection
		Dim objCmd As New OleDbCommand
		Dim dtAdapter As New OleDbDataAdapter

		Dim ds As New DataSet
		Dim dt As DataTable
		Dim strConnString,strSQL As String

		strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"
		strSQL = "SELECT * FROM customer"

		objConn.ConnectionString = strConnString
		With objCmd
			.Connection = objConn
			.CommandText = strSQL
			.CommandType = CommandType.Text
		End With
		dtAdapter.SelectCommand = objCmd

		dtAdapter.Fill(ds)
		dt = ds.Tables(0)

		dtAdapter = Nothing
		objConn.Close()
		objConn = Nothing

		Dim intLine As Integer = 90
		Dim i As Integer

		For i = 0 To dt.Rows.Count - 1
			gfx.DrawString(dt.Rows(i)("CustomerID"), font3, XBrushes.Black, 65, intLine, XStringFormats.TopLeft)
			gfx.DrawString(dt.Rows(i)("Name"), font3, XBrushes.Black, 140, intLine, XStringFormats.TopLeft)
			gfx.DrawString(dt.Rows(i)("Email"), font3, XBrushes.Black, 215, intLine, XStringFormats.TopLeft)
			gfx.DrawString(dt.Rows(i)("CountryCode"), font3, XBrushes.Black, 365, intLine, XStringFormats.TopLeft)
			gfx.DrawString(dt.Rows(i)("Budget"), font3, XBrushes.Black, 425, intLine, XStringFormats.TopLeft)
			gfx.DrawString(dt.Rows(i)("Used"), font3, XBrushes.Black, 485, intLine, XStringFormats.TopLeft)
			intLine = intLine + 10
		Next
		
		' Customer From Database (End)

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

Go to : ASP.NET Export/Report Database to Pdf

อันนี้ VB.NET ครับ

Date : 2011-05-26 09:26:36

By : webmaster

No. 7

Guest

ขอ code php ด้วยครับ

Date : 2011-07-18 15:06:08

By : poulim

No. 8

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

Quote:
ขอ code php ด้วยครับ

Go to : PHP PDF - MySQL Export to PDF

Date : 2011-07-18 15:47:37

By : webmaster

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : PDF view and save PDF ขอ Code C# แสดง ไฟล์ PDF กับ save ไฟล์ PDF หน่อยครับ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก