[FONT="] [COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] PrintMe_PrintPage([COLOR=blue]ByVal[/COLOR] sender [COLOR=blue]As[/COLOR] System.Object, [COLOR=blue]ByVal[/COLOR] e [COLOR=blue]As[/COLOR] System.Drawing.Printing.PrintPageEventArgs) [COLOR=blue]Handles[/COLOR] printMe.PrintPage[/FONT]
[COLOR=blue][FONT="]Dim[/FONT][/COLOR][FONT="] MyGraphicsPage [COLOR=blue]As[/COLOR] Graphics = e.Graphics[/FONT]
[FONT="] MyGraphicsPage.PageUnit = GraphicsUnit.Pixel[/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] N [COLOR=blue]As[/COLOR] [COLOR=blue]Integer[/COLOR][/FONT]
[COLOR=blue][FONT="]Dim[/FONT][/COLOR][FONT="] Count [COLOR=blue]As[/COLOR] [COLOR=blue]Integer[/COLOR][/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] ID [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR][/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] FName [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR][/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] LName [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR][/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] email [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR][/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] pict [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR][/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] class1 [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR][/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] section [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR][/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] semester [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR][/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] year [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR][/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] total [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR][/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] image [COLOR=blue]As[/COLOR] Image[/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] file [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR][/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] x1 [COLOR=blue]As[/COLOR] [COLOR=blue]Single[/COLOR][/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] x2 [COLOR=blue]As[/COLOR] [COLOR=blue]Single[/COLOR][/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] y1 [COLOR=blue]As[/COLOR] [COLOR=blue]Single[/COLOR][/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] y2 [COLOR=blue]As[/COLOR] [COLOR=blue]Single[/COLOR][/FONT]
[FONT="] x1 = 1[/FONT]
[FONT="]x2 = 1[/FONT]
[FONT="] y1 = 1[/FONT]
[FONT="] y2 = 1[/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] myFont [COLOR=blue]As[/COLOR] Font[/FONT]
[COLOR=blue][FONT="]Dim[/FONT][/COLOR][FONT="] textSize [COLOR=blue]As[/COLOR] SizeF[/FONT]
[FONT="] myFont = [COLOR=blue]New[/COLOR] Font([COLOR=maroon]"arial"[/COLOR], 10)[/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] names [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR][/FONT]
[FONT="] page += 1[/FONT]
[FONT="] [COLOR=blue]Dim[/COLOR] counter [COLOR=blue]As[/COLOR] [COLOR=blue]Integer[/COLOR][/FONT]
[FONT="] counter = 1[/FONT]
[FONT="] Count = lstPrintStudents.Items.Count[/FONT]
[FONT="] [COLOR=blue]For[/COLOR] N = 0 [COLOR=blue]To[/COLOR] Count - 1[/FONT]
[FONT="] txtTemp.Text = lstPrintStudents.Items.Item(N)[/FONT]
[FONT="] txtTemp.Select(0, 20)[/FONT]
[FONT="] ID = txtTemp.SelectedText[/FONT]
[FONT="] txtID.Text = ID.Trim[/FONT]
[FONT="] txtTemp.Select(20, 10)[/FONT]
[FONT="] LName = txtTemp.SelectedText[/FONT]
[FONT="] txtLName.Text = LName.Trim[/FONT]
[FONT="] txtTemp.Select(30, 10)[/FONT]
[FONT="] FName = txtTemp.SelectedText[/FONT]
[FONT="] txtFName.Text = FName.Trim[/FONT]
[FONT="] txtTemp.Select(40, 25)[/FONT]
[FONT="] email = txtTemp.SelectedText[/FONT]
[FONT="] txtEmail.Text = email.Trim[/FONT]
[FONT="] txtTemp.Select(65, 40)[/FONT]
[FONT="] pict = txtTemp.SelectedText[/FONT]
[FONT="] txtPict.Text = pict.Trim[/FONT]
[FONT="] txtTemp.Select(105, 10)[/FONT]
[FONT="] class1 = txtTemp.SelectedText[/FONT]
[FONT="] txtClass.Text = class1.Trim[/FONT]
[FONT="] txtTemp.Select(115, 5)[/FONT]
[FONT="] section = txtTemp.SelectedText[/FONT]
[FONT="] txtSection.Text = section.Trim[/FONT]
[FONT="] txtTemp.Select(120, 10)[/FONT]
[FONT="] semester = txtTemp.SelectedText[/FONT]
[FONT="] txtSemester.Text = semester.Trim[/FONT]
[FONT="] txtTemp.Select(130, 6)[/FONT]
[FONT="] year = txtTemp.SelectedText[/FONT]
[FONT="] txtYear.Text = year.Trim[/FONT]
[FONT="] txtTemp.Select(136, 2)[/FONT]
[FONT="] total = txtTemp.SelectedText[/FONT]
[FONT="] txtTotal.Text = total.Trim[/FONT]
[FONT="] file = txtPict.Text[/FONT]
[FONT="] image = [COLOR=blue]New[/COLOR] Bitmap(file)[/FONT]
[FONT="]MyGraphicsPage.DrawImage(image, x1, y1, 500, 500)[/FONT]
[FONT="]names = txtFName.Text & [COLOR=maroon]" "[/COLOR] & txtLName.Text[/FONT]
[FONT="] textSize = MyGraphicsPage.MeasureString(names, myFont)[/FONT]
[FONT="] MyGraphicsPage.DrawString(names, myFont, Brushes.Black, 550, (y1 + 0))[/FONT]
[FONT="] MyGraphicsPage.DrawString(email, myFont, Brushes.Black, 550, (y1 + 100))[/FONT]
[FONT="] MyGraphicsPage.DrawString(class1 & [COLOR=maroon]" "[/COLOR] & section & [COLOR=maroon]" "[/COLOR] & semester & [COLOR=maroon]" "[/COLOR] & year, myFont, Brushes.Black, 550, (y1 + 200))[/FONT]
[FONT="] MyGraphicsPage.DrawString(total & [COLOR=maroon]" "[/COLOR] & cmbType.Text, myFont, Brushes.Black, 550, (y1 + 300))[/FONT]
[FONT="] [COLOR=blue]Try[/COLOR][/FONT]
[FONT="] [COLOR=blue]Call[/COLOR] Print(MyGraphicsPage, (x1 + 1700), (y1 + 0), 3000, 300, txtID.Text)[/FONT]
[FONT="] [COLOR=blue]Catch[/COLOR][/FONT]
[FONT="] MsgBox(Err.Description, MsgBoxStyle.Exclamation, Application.ProductName)[/FONT]
[FONT="] [COLOR=blue]End[/COLOR] [COLOR=blue]Try[/COLOR][/FONT]
[FONT="] y1 = y1 + 500[/FONT]
[FONT="] [COLOR=blue]Next[/COLOR] N[/FONT]
[FONT="] [COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR][/FONT]