PrintDocument

Merhaba arkadaşlar. Bu makalemizde PrintDocument te kullanılan  Graphics.DrawString(),Graphics.DrawImage()  metodlarının nasıl kullanıldığına bakacağız.

İlk önce Formunuza 8 adet Label,TextBox, 2 adet Button ve 1 adet PictureBox, PrintDocument, PrintPreviewDialog nesnesi ekleyin.

Graphics.DrawString() ile girilen stringlerin yazdırılırken konumlarını, fontlarını vb. özelliklerini belirliyoruz. Kullanımı : e. Graphics.DrawString(“girilen yazı”,font,brush,x kordinatı, y kordinatı). Burada x ve y ye girilen değerlerle, yazının konumunu belirliyoruz.

Aynı şekilde e. Graphics.DrawImage(belirtilen resim dosyası, x kordinatı, y kordinatı,resmin genişliği, resmin yüksekliği ) tanımlanır.

Unutmadan;  PrintPreviewDialog nesnesinin Document özelliğini PrintDocument olarak tanımlayın. Böylece PrintDocument te hazırladığımız bilgilerin ön izlemesini gerçekleştirmiş olduk.

Şekil 1

Şekil 2

Form1.vb

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        PictureBox1.Image = Image.FromFile("C:/avatar.jpg")

        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

        PrintPreviewDialog1.Document = PrintDocument1

    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

        Dim font1 As Font = New Font("Times New Roman", 24, FontStyle.Underline)

        Dim font2 As Font = New Font("Times New Roman", 12, FontStyle.Regular)

        e.Graphics.DrawString("Çalışan Personel Bilgileri: ", font1, Brushes.Black, 150, 50)

        e.Graphics.DrawString("Personelin Adı: " & TextBox1.Text, font2, Brushes.Black, 50, 140)

        e.Graphics.DrawString("Personelin Soyadı: " & TextBox2.Text, font2, Brushes.Black, 50, 170)

        e.Graphics.DrawString("Personelin İşe Giriş Tarihi: " & TextBox3.Text, font2, Brushes.Black, 50, 200)

        e.Graphics.DrawString("Personelin Çalıştığı Birim: " & TextBox4.Text, font2, Brushes.Black, 50, 230)

        e.Graphics.DrawString("Personelin Öğrenim Durumu: " & TextBox5.Text, font2, Brushes.Black, 50, 260)

        e.Graphics.DrawString("Personelin Mezun Olduğu Okul: " & TextBox6.Text, font2, Brushes.Black, 50, 290)

        e.Graphics.DrawString("Personelin Cep Telefonu: " & TextBox7.Text, font2, Brushes.Black, 50, 320)

        e.Graphics.DrawString("Personelin E-Postası: " & TextBox8.Text, font2, Brushes.Black, 50, 350)

        e.Graphics.DrawImage(PictureBox1.Image, 650, 50, 102, 124)

    End Sub

    Private Sub btnYazdir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnYazdir.Click

        PrintDocument1.Print()

    End Sub

    Private Sub btnOnIzleme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOnIzleme.Click

        PrintPreviewDialog1.ShowDialog()

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN