How To Create Invoice In Vb Net

Download source - 544.69 KB

PrintInvoice_VBNET/Img027.JPG

Introduction

How to use VB.NET to print Invoice? This is a trial to print Invoice with VB.NET.

You can read another article (How to use VB6 to print Invoice?).

My project has three forms:

frmInvoice: to bind DataGrid with all Orders from Northwind database file
frmInput: to choose one Order which you want to print its Invoice
frmOrder: to display Invoice on DataGrid, then you can Print Preview or Print the Invoice as Report

We also need three classes for printing:

System.Windows.Forms.PrintDialog
System.Windows.Forms.PrintPreviewDialog
System.Drawing.Printing.PrintDocument

Of course, you can use any database file instead of Northwind.mdb and change my code to connect with your database file. You can also change my SQL string to bind DataGrid with data.

Using the Code

Bind the DataGrid in frmInvoice form with all Orders:

            Dim          MyPass          As          String          =          "          "          Dim          MyDataFile          As          String          = Application.StartupPath &          "          \DataFile\Northwind.mdb"          Dim          strCon          As          String          =          "          provider=microsoft.jet.oledb.4.0;data source="          _ & MyDataFile &          "          ;"          &          "          Jet OLEDB:Database Password="          & MyPass &          "          ;"                    Dim          strCon          As          String          =          "          provider=sqloledb;Data Source=PC;Initial Catalog="          _  &          "          Northwind;Integrated Security=SSPI"          &          "          ;"                    Try                    Dim          InvSql          As          String          =          "          SELECT Customers.CompanyName, Customers.City, "          _    &          "          Employees.FirstName + Space(1) + Employees.LastName AS Salesperson, "          _    &          "          Orders.OrderID, Orders.OrderDate, "          _    &          "          [Order Details].ProductID, Products.ProductName, [Order Details].UnitPrice, "          _    &          "          [Order Details].Quantity, [Order Details].Discount, "          _    &          "          CCur([Order Details].UnitPrice*[Quantity]*_ 	(1-[Discount])/100)*100 AS ExtendedPrice, "          _    &          "          Orders.Freight "          _    &          "          FROM Products INNER JOIN ((Employees INNER JOIN "          _    &          "          (Customers INNER JOIN Orders ON Customers.CustomerID = Orders.CustomerID) "          _    &          "          ON Employees.EmployeeID = Orders.EmployeeID) "          _    &          "          INNER JOIN [Order Details] ON Orders.OrderID = [Order Details].OrderID) "          _    &          "          ON Products.ProductID = [Order Details].ProductID;"                    Dim          datAdp          As          OleDbDataAdapter =          New          OleDbDataAdapter(InvSql, strCon)               Dim          cBuilder          As          OleDbCommandBuilder =          New          OleDbCommandBuilder(datAdp)               Dim          dTable          As          DataTable =          New          DataTable         datAdp.Fill(dTable)         datGrid.DataSource = dTable          Catch          ex          As          Exception    MessageBox.Show(ex.ToString())          End          Try

Bind the DataGrid in frmOrder form with one Order:

            Dim          intOrder          As          Integer          =          Int32.Parse(InvoiceOrder)          Dim          MyDataFile          As          String          = Application.StartupPath &          "          \DataFile\Northwind.mdb"          Dim          MyPass          As          String          =          "          "          Dim          strCon          As          String          =          "          provider=microsoft.jet.oledb.4.0;data source="          _ & MyDataFile &          "          ;"          &          "          Jet OLEDB:Database Password="          & MyPass &          "          ;"          Try              InvSql =          "          SELECT [Order Details].ProductID, "          _    &          "          Products.ProductName, [Order Details].UnitPrice, "          _    &          "          [Order Details].Quantity, [Order Details].Discount, "          _    &          "          CCur([Order Details].UnitPrice*[Quantity]*(1-[Discount])/100)*100 "          _    &          "          AS ExtendedPrice "          _    &          "          FROM Products INNER JOIN [Order Details] "          _    &          "          ON Products.ProductID=[Order Details].ProductID "          _    &          "          WHERE [Order Details].OrderID = "          & intOrder               Dim          datAdp          As          OleDbDataAdapter =          New          OleDbDataAdapter(InvSql, strCon)               Dim          cBuilder          As          OleDbCommandBuilder =          New          OleDbCommandBuilder(datAdp)               Dim          dTable          As          DataTable =          New          DataTable         datAdp.Fill(dTable)         ordGrid.TableStyles.Clear()          Dim          tableStyle          As          DataGridTableStyle =          New          DataGridTableStyle          For          Each          dc          As          DataColumn          In          dTable.Columns          Dim          txtColumn          As          DataGridTextBoxColumn =          New          DataGridTextBoxColumn       txtColumn.MappingName = dc.ColumnName       txtColumn.HeaderText = dc.Caption          Select          Case          (dc.ColumnName.ToString())          Case          "          ProductID"                       txtColumn.HeaderText =          "          Product ID"          txtColumn.Width =          60          Case          "          ProductName"                       txtColumn.HeaderText =          "          Product Name"          txtColumn.Width =          110          Case          "          UnitPrice"                       txtColumn.HeaderText =          "          Unit Price"          txtColumn.Format =          "          0.00"          txtColumn.Alignment = HorizontalAlignment.Right             txtColumn.Width =          60          Case          "          Discount"                       txtColumn.HeaderText =          "          Discount"          txtColumn.Format =          "          p"                       txtColumn.Alignment = HorizontalAlignment.Right             txtColumn.Width =          60          Case          "          Quantity"                       txtColumn.HeaderText =          "          Quantity"          txtColumn.Alignment = HorizontalAlignment.Right              txtColumn.Width =          50          Case          "          ExtendedPrice"                       txtColumn.HeaderText =          "          Extended Price"          txtColumn.Format =          "          0.00"          txtColumn.Alignment = HorizontalAlignment.Right             txtColumn.Width =          90          End          Select          tableStyle.GridColumnStyles.Add(txtColumn)          Next          tableStyle.MappingName = dTable.TableName    ordGrid.TableStyles.Add(tableStyle)        ordGrid.DataSource = dTable.DefaultView          Catch          ex          As          Exception    MessageBox.Show(ex.ToString())          End          Try

Declare and initialize three instances for printing:

          Private          prnDialog          As          System.Windows.Forms.PrintDialog          Private          prnPreview          As          System.Windows.Forms.PrintPreviewDialog          Private          prnDocument          As          System.Drawing.Printing.PrintDocument          Me.prnDialog =          New          System.Windows.Forms.PrintDialog          Me.prnPreview =          New          System.Windows.Forms.PrintPreviewDialog          Me.prnDocument =          New          System.Drawing.Printing.PrintDocument           AddHandler          prnDocument.PrintPage,          AddressOf          prnDocument_PrintPage

To draw something on the report (as line or text):

Get Left Margin, Right Margin, Top Margin, Bottom Margin, Report Width and Report Height:

                Private              Sub              prnDocument_PrintPage(ByVal              sender              As              System.Object, _              ByVal              e              As              System.Drawing.Printing.PrintPageEventArgs)     leftMargin = Convert.ToInt32_     (e.MarginBounds.Left)      rightMargin = Convert.ToInt32(e.MarginBounds.Right)     topMargin = Convert.ToInt32(e.MarginBounds.Top)     bottomMargin = Convert.ToInt32(e.MarginBounds.Bottom)     InvoiceWidth = Convert.ToInt32(e.MarginBounds.Width)     InvoiceHeight = Convert.ToInt32(e.MarginBounds.Height)          SetInvoiceHead(e.Graphics)              End              Sub

Set Font and Color:

              Dim              InvTitleFont              As              Font =              New              Font("              Arial",              24, FontStyle.Regular)              Dim              HeadBrush              As              SolidBrush =              New              SolidBrush(Color.Blue)

Set Font Height and Font Width and coordinate, then use DrawString method:

              Private              Sub              SetInvoiceHead(ByVal              g              As              Graphics)                   Dim              InvTitle              As              String              =              "              International Food Company"                            Dim              InvTitleFont              As              Font =              New              Font("              Arial",              24, FontStyle.Regular)                   Dim              HeadBrush              As              SolidBrush =              New              SolidBrush(Color.Blue)                   Dim              InvTitleHeight              As              Integer              = Convert.ToInt32(InvTitleFont.GetHeight(g))                   Dim              lenInvTitle              As              Integer              = Convert.ToInt32(g.MeasureString_ 	(InvTitle, InvTitleFont).Width)                   Dim              CurrentX              As              Integer              = leftMargin +      (InvoiceWidth - lenInvTitle) /              2                            Dim              CurrentY              As              Integer              = topMargin + InvTitleHeight           g.DrawString(InvTitle, InvTitleFont, HeadBrush, CurrentX, CurrentY)              End              Sub

The project has several pieces of code in three forms. Please read the code, then run the program to see the result. You can read about:

How to create a report using PrintPreviewDialog control and PrintDocument control?
How to draw Invoice head?
How to draw the table of products and its price?
How to compute and draw Invoice total?

If you have any ideas or if you find any problems, please tell me.

You can read my next article to see how to print invoice using C#.

I add another project for VB.NET 2010.