Vb.net Billing Software Source Code ❲PC❳

Private Sub PrintInvoice() Dim printDoc As New Printing.PrintDocument() AddHandler printDoc.PrintPage, AddressOf PrintPageHandler Dim printDialog1 As New PrintDialog() printDialog1.Document = printDoc If printDialog1.ShowDialog() = DialogResult.OK Then printDoc.Print() End If End Sub Private Sub PrintPageHandler(sender As Object, e As Printing.PrintPageEventArgs) Dim yPos As Single = e.MarginBounds.Top Dim leftMargin As Single = e.MarginBounds.Left Dim font As New Font("Arial", 12) Dim largeFont As New Font("Arial", 16, FontStyle.Bold)

'Assuming GST is calculated on SubTotal (simplified) Dim gstAmount As Decimal = (subTotal * 18) / 100 '18% GST Dim grandTotal As Decimal = subTotal + gstAmount vb.net billing software source code

-- Invoice Master Table (One invoice per record) CREATE TABLE tbl_Invoice_Master ( InvoiceNo INT PRIMARY KEY IDENTITY(1,1), InvoiceDate DATETIME DEFAULT GETDATE(), CustomerID INT FOREIGN KEY REFERENCES tbl_Customers(CustomerID), SubTotal DECIMAL(18,2), TaxAmount DECIMAL(18,2), GrandTotal DECIMAL(18,2) ); Private Sub PrintInvoice() Dim printDoc As New Printing

Private Sub AddProductToCart(productID As Integer, qty As Integer) 'Fetch product details from database using productID Dim query As String = "SELECT ProductName, SellingPrice, GST_Percent FROM tbl_Products WHERE ProductID = " & productID Using conn As SqlConnection = getConnection() conn.Open() Using cmd As New SqlCommand(query, conn) Dim reader As SqlDataReader = cmd.ExecuteReader() If reader.Read() Then Dim productName As String = reader("ProductName").ToString() Dim price As Decimal = Convert.ToDecimal(reader("SellingPrice")) Dim gstPercent As Integer = Convert.ToInt32(reader("GST_Percent")) 'Add row to DataGridView (dgvCart) dgvCart.Rows.Add(productID, productName, qty, price, qty * price, gstPercent) CalculateTotal() 'Update subtotal, tax, grand total End If End Using End Using End Sub 12) Dim largeFont As New Font("Arial"