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

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.