Yazıcıdan çıktı alma

Imports System.Drawing.Printing 
   
  Public Class Form1 
   
      'Metin yazdırmak için Sub yordamı 
      Private Sub MetinYazdır(ByVal sender As Object, _ 
        ByVal ev As PrintPageEventArgs) 
          'DrawString ile Graphics nesnesinde metin oluştur 
          ev.Graphics.DrawString(TextBox1.Text, New Font("Arial", _ 
            11, FontStyle.Regular), Brushes.Black, 120, 120) 
          'Bunu yazdırılacak son sayfa olarak belirle 
          ev.HasMorePages = False 
      End Sub 
   
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
          'Yazdırma işlemindeki olası sorunlar için hata yakalayıcı kullan 
          Try 
              'PrintDocument türünde PrintDoc değişkeninin bildirimini yap  
              Dim PrintDoc As New PrintDocument 
              AddHandler PrintDoc.PrintPage, AddressOf Me.MetinYazdır 
              PrintDoc.Print()   'metin yazdır 
          Catch ex As Exception  'yazdırma hatasını yakala 
              MessageBox.Show("Üzgünüz--yazdırılmasında bir sorun var", _ 
                ex.ToString()) 
          End Try 
      End Sub 
  End Class