NOT :
vt.GetDataTable şeklinde bir kullanım göreceksin. Benim bu projede kullandığım veritabanı sınıfına gönderdiğim Sql cümlesi için DataTable geri döndermektedir. Buraya DataTable olarak çektiğiniz veriyi koymanız gerek.
Kod:
Private Sub prnt_PrintPage(sender As Object, e As System.Drawing.Printing.PrintPageEventArgs)
Dim yaziTipi As New Font("Tahoma", 12, FontStyle.Bold)
Dim dt As DataTable = vt.GetDataTable("SELECT sifre FROM tbl_sifre_deposu WHERE kullanildimi=0")
Dim donguSayac As Integer = 0
' Sayfanın başlığını yazalım.
e.Graphics.DrawString("Öğrenci numarasının olduğu alana 000000 yazınız." & vbCr & vbLf & "Lütfen kullandığınız şifrenin üzerini çiziniz.", yaziTipi, Brushes.Black, 50, 30)
Dim genislik As Integer = 100
Dim i As Integer = 0
Dim konum As Integer = 50
Dim satir As Integer = 100
While i < 6
For Each row As DataRow In dt.Rows
donguSayac += 1
If i Mod 7 = 0 Then
satir = satir + yaziTipi.Height + 3
konum = 50
End If
e.Graphics.DrawString(row("sifre").ToString(), yaziTipi, Brushes.Black, konum, satir)
e.Graphics.DrawRectangle(Pens.Black, konum, satir, 100, yaziTipi.Height)
konum = konum + genislik
i += 1
Next
End While
End Sub