Issued Detail Page No.1 Item Issued For Customer :101 ----------------------------------------- Id Item Qty Date ----------------------------------------- 101 Pen 10 10/05/2021 101 Copy 10 10/05/2021 101 Glue 1 10/05/2021 101 Cover 10 10/05/2021 ---------------------------------------- Total 4 31 ---------------------------------------- Page No.2 Item Issued For Customer :102 ---------------------------------------- Id Item Qty Date ---------------------------------------- 102 Bag 1 09/06/2021 102 Pencil Box 2 09/06/2021 102 Cover 5 09/06/2021 --------------------------------------------------------- Total 3 8 --------------------------------------------------------- SubTotal 7 39 ---------------------------------------------------------
Using sw As New StreamWriter(OutPutFile) <pre> For I As Integer = 0 To dt.Rows.Count - 1 sw.WriteLine("------------------------------------------------------------") sw.WriteLine(dt.Rows(I).Item(0).ToString.PadRight(15) & vbTab & dt.Rows(I).Item(1).ToString().PadRight(25) & vbTab & dt.Rows(I).Item(2).ToString().PadRight(10) & vbTab & dt.Rows(I).Item(3).ToString()) Next End Using Process.Start(OutPutFile)
End Using
Process.Start
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)