Picproje Elektronik Sitesi

Formun declare kısmı
    Public grafik As Graphics
    Private resim_cizim As New Bitmap(827, 1169)
    Private grafik_cizim As Graphics = Graphics.FromImage(resim_cizim)
    Private kalem As New System.Drawing.SolidBrush(System.Drawing.Color.Black)

 Private Sub Button_Cerceve_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Cerceve.Click
' cerceve yerine şimdilik elips çiziyorum.       
 grafik.FillEllipse(kalem, New Rectangle(20, 20, 40, 30))
           End Sub
' Burada yazdır  butonunun click olayı
 Private Sub Button_Yazdir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Yazdir.Click
        PrintDocument1.Print()
    End Sub

' Yazıcıdan yazdır olayı  prosuduru
 Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
       ' Şöyle bir şey denedim olmadı  picturebox da elips görünüyor, fakat yazıcıdan boş kağıt geliyor.
         PictureBox1.Image = resim_cizim
       
        Dim CX As Integer = PrintDocument1.DefaultPageSettings.PaperSize.Width
        Dim CY As Integer = PrintDocument1.DefaultPageSettings.PaperSize.Height
      e.Graphics.DrawImage(PictureBox1.Image, 0, 0, CX, CY)
    End Sub