Kamis, 19 April 2018

Mencetak Tulisan di RichTextBox pada Printer

Mencetak tulisan di RichTextBox ke printer dengan VB Net tidak sulit. Kita cuma membutuhkan tiga komponen nonvisual: PrintDocument, PrintPreviewDialog, dan PrintDialog. Semua komponen ini dapat di drag dari toolbox.


Drag komponen-komponen tadi ke dalam Layout Form dibawah ini. Form ini terdiri dari dua tombol bertuliskan Print dan Print Preview serta RichTextBox.


Form diatas terdiri dari dua tombol bertuliskan Print dan Print Preview serta RichTextBox.

Klik ganda tombol print dan beri kode berikut:

PrintDocument1.Print()

Klik ganda tombol Print Preview; tambahkan kode berikut:

PrintPreviewDialog1.ShowDialog()

Klik ganda pada PrintPreviewDocument1 untuk menambahkan baris berikut:

Dim font1 As New Font("arial", 16, FontStyle.Regular)  _
e.Graphics.DrawString(RichTextBox1.Text, font1, Brushes.Black, 100, 100)

Untuk memeriksa apakah kode program bekerja, eksekusi program dan tekan tombol Print Preview
Program selengkapnya:

Mencetak Tulisan di RichTextBox pada Printer Rating: 4.5 Diposkan Oleh: Yohanes Octa

0 komentar:

Posting Komentar

Diberdayakan oleh Blogger.