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:
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click PrintDocument1.Print() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click PrintPreviewDialog1.ShowDialog() End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim font1 As New Font("arial", 20, FontStyle.Regular) _ e.Graphics.DrawString(RichTextBox1.Text, font1, Brushes.Black, 100, 100) End Sub End Class

Mencetak Tulisan di RichTextBox pada Printer 2018-04-19T21:31:00-07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer