The following code sample shows how to print report by system.drawing class.
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim j As String
j = "____________________________________________________________________"
e.Graphics.DrawString(dg1.CaptionText, Label1.Font, Brushes.Blue, 100, 100)
e.Graphics.DrawString(Label1.Text, Label1.Font, Brushes.Blue, 100, 120)
e.Graphics.DrawString(cmb_item_code.Text, Label1.Font, Brushes.Blue, 200, 120)
e.Graphics.DrawString("Size", Label1.Font, Brushes.Blue, 100, 150)
e.Graphics.DrawString("Color", Label1.Font, Brushes.Blue, 200, 150)
e.Graphics.DrawString("Received", Label1.Font, Brushes.Blue, 300, 150)
e.Graphics.DrawString("Sold", Label1.Font, Brushes.Blue, 400, 150)
e.Graphics.DrawString("Balance", Label1.Font, Brushes.Blue, 500, 150)
e.Graphics.DrawString(j, Label1.Font, Brushes.Black, 100, 160)
e.Graphics.DrawString(dg1.Item(0, 0), Label1.Font, Brushes.Blue, 100, 200)
e.Graphics.DrawString(dg1.Item(0, 1), Label1.Font, Brushes.Blue, 200, 200)
e.Graphics.DrawString(dg1.Item(0, 2), Label1.Font, Brushes.Blue, 300, 200)
e.Graphics.DrawString(dg1.Item(0, 3), Label1.Font, Brushes.Blue, 400, 200)
e.Graphics.DrawString(dg1.Item(0, 4), Label1.Font, Brushes.Blue, 500, 200)
End Sub
|
| Author: Kapil Dhawan 18 Jun 2008 | Member Level: Gold Points : 2 |
Hello
Nice piece of code
Thanks for sharing your knowledge with us.
I hope to see more good code from your side
This code will help lots of guys
Thanks to you
Regards,
Kapil
|