1- Toolbox - Printing - PrintDocument nesnesini formunuza sürükleyin.
2- PrintDocument'in PrintPage olayında aşağıdaki kodları yazın:
Kod:
Dim yaziTipi As New Font("Tahoma", 14)
e.Graphics.DrawString("Vb.Net ile başlık yazıyoruz.", yaziTipi, Brushes.Black, 100, 50)Kod:
PrintDocument1.Print()Kod:
Dim yaziTipi As New Font("Tahoma", 14)
Dim neYazayim As String
Dim sitemiz As String
If sitemiz="AccessTr.Net" Then
neYazayim = "Vb.Net ile başlık yazıyoruz."
Else
neYazayim = "Başlık yazmadık..."
End If
e.Graphics.DrawString(neYazayim, yaziTipi, Brushes.Black, 100, 50)