Cara Membuat Script Printing Dengan VB Net 2010

Cara Membuat Script Printing Dengan VB Net 2010 - Apabila kita membuat sebuah aplikasi desktop menggunakan VB, VB.net, atau Java, sering kali kita juga akan membuat sebuah laporan yang perlu untuk dicetak oleh tingkatan manager tertentu. Disini saya akan men-share sedikit tentang bagaimana caranya membuat sebuah halaman yang dapat diprint menggunakan VB.Net.

Untuk dapat membuat script printing dengan vb net silahkan ikuti langkah-langkah dibawah ini:

1. Desainlah tampilan dari antarmuka pembuat laporan. seperti contoh berikut

Perhatikan : disini kita memerlukan komponen PrintPreviewDialog dan juga PrintDocument yang sudah disediakan pada toolbox project secara otomatis. PrintPreviewDialog digunakan untuk membuat dialog print preview, seperti jika kita akan mencetak dokumen di Ms.Word. Sedangkan PrintDocument adalah komponen yang berisi string-string / isi dokumen yang akan dicetak.

2. Tambahkan script berikut pada form laporan anda

Private Sub btn_Print_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Print.Click
        Try
            With Me.PrevDlg
                .Document = Me.PrintDoc
                .ShowDialog()
            End With
        Catch ex As Exception
            MessageBox.Show(ex.Message, "preview Eror")
        End Try
    End Sub

    Private Sub PrintDoc_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDoc.PrintPage
        Dim linesPerPage As Single = 0
        Dim yPos As Single = 0
        Dim count As Integer = 0
        Dim MarginKiri As Single = e.MarginBounds.Left
        Dim MarginAtas As Single = e.MarginBounds.Top
        Dim line As String = Nothing
        Dim myfont As New Font("arial", 15, FontStyle.Regular)

        'menentukan banyak baris per halaman
        linesPerPage = _
        e.MarginBounds.Height / myfont.GetHeight(e.Graphics)

        Dim sr As StringReader = New StringReader(Me.RichTextBox1.Text)
        'melakukan iterasi dan cetak tiap baris
        line = sr.ReadLine

        While count < linesPerPage
            'kalkulasi baris berikutnya
            yPos = (MarginAtas + (count * myfont.GetHeight(e.Graphics)))
            'menetapkan halaman teks yang diprint
            e.Graphics.DrawString(line, myfont, Brushes.Black, MarginKiri, yPos, New StringFormat)
            count += 1
            line = sr.ReadLine()
        End While
        'memeriksa jika masih ada baris tersisa
        If Not (line Is Nothing) Then
            e.HasMorePages = True
        Else
            e.HasMorePages = False
        End If
    End Sub

Keterangan : RichTextBox berisi hasil dari query yang anda buat.

3. Setelah itu jalankan program anda. maka akan muncul tampilan seperti ini :