Pada Visual Basic .Net untuk untuk membuat Report atau laporan data bisa menggunakan program bantu seperti Crystal Report atau menggunakan komponen di Visual Basic .Net yang bisa digunakan untuk membuat Report. Print Document adalah salah satu komponen di Visual Basic .Net yang bisa digunakan untuk membuat Report, komponen Print Document memiliki beberapa fungsi antara lain mengatur font, mengatur perataan teks, mencetak garis dan mencetak gambar.

Hasil desain Report data dari komponen Print Document tergantung dari jenis printer yang aktif, untuk melihat hasil Report data di layar kita membutuhkan jenis printer yang bisa mencetak dan menampilkan data dalam format PDF seperti program AdobeReader.

Berikut contoh kode program dan hasilnya :

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

        KIRI.Alignment = StringAlignment.Near

        TENGAH.Alignment = StringAlignment.Center

        KANAN.Alignment = StringAlignment.Far

        e.Graphics.DrawString("LAPORAN DATA BARANG", FONTJUDUL, Brushes.Blue, 450, 25, TENGAH)

        e.Graphics.DrawLine(Pens.Black, 30, 70, 805, 70)

        e.Graphics.DrawString("NOMOR", FONTDATA, Brushes.Black, 100, 75, KANAN)

        e.Graphics.DrawString("KODEBRG", FONTDATA, Brushes.Black, 125, 75, KIRI)

        e.Graphics.DrawString("NAMA BARANG", FONTDATA, Brushes.Black, 200, 75, KIRI)

        e.Graphics.DrawString("HRG BELI", FONTDATA, Brushes.Black, 400, 75, KANAN)

        e.Graphics.DrawString("HRG JUAL", FONTDATA, Brushes.Black, 500, 75, KANAN)

        e.Graphics.DrawString("JML AWAL", FONTDATA, Brushes.Black, 575, 75, KANAN)

        e.Graphics.DrawString("JML BELI", FONTDATA, Brushes.Black, 650, 75, KANAN)

        e.Graphics.DrawString("JML JUAL", FONTDATA, Brushes.Black, 725, 75, KANAN)

        e.Graphics.DrawString("JML STOK", FONTDATA, Brushes.Black, 800, 75, KANAN)

        e.Graphics.DrawLine(Pens.Black, 30, 100, 805, 100)

        BARIS = 105

        NOMOR = 1

        TJMLAWAL = 0

        TJMLBELI = 0

        TJMLJUAL = 0

        TJMLSTOK = 0

        SQLSTR = "SELECT * FROM BARANG"

        CMD = New OleDbCommand(SQLSTR, KONEKSI)

        DR = CMD.ExecuteReader

        While DR.Read

            e.Graphics.DrawString(NOMOR, FONTDATA, Brushes.Black, 100, BARIS, KANAN)

            e.Graphics.DrawString(DR("KODEBRG"), FONTDATA, Brushes.Black, 125, BARIS, KIRI)

            e.Graphics.DrawString(DR("NAMABRG"), FONTDATA, Brushes.Black, 200, BARIS, KIRI)

            e.Graphics.DrawString(Format(DR("HRGBELI"), "#,#"), FONTDATA, Brushes.Black, 400, BARIS, KANAN)

            e.Graphics.DrawString(Format(DR("HRGJUAL"), "#,#"), FONTDATA, Brushes.Black, 500, BARIS, KANAN)

            e.Graphics.DrawString(DR("JMLAWAL"), FONTDATA, Brushes.Black, 575, BARIS, KANAN)

            e.Graphics.DrawString(DR("JMLBELI"), FONTDATA, Brushes.Black, 650, BARIS, KANAN)

            e.Graphics.DrawString(DR("JMLJUAL"), FONTDATA, Brushes.Black, 725, BARIS, KANAN)

            e.Graphics.DrawString(DR("JMLSTOK"), FONTDATA, Brushes.Black, 800, BARIS, KANAN)

            NOMOR = NOMOR + 1

            BARIS = BARIS + 20

            TJMLAWAL = TJMLAWAL + DR("JMLAWAL")

            TJMLBELI = TJMLBELI + DR("JMLBELI")

            TJMLJUAL = TJMLJUAL + DR("JMLJUAL")

            TJMLSTOK = TJMLSTOK + DR("JMLSTOK")

        End While

        e.Graphics.DrawLine(Pens.Black, 30, BARIS + 5, 805, BARIS + 5)

        e.Graphics.DrawString("TOTAL : ", FONTDATA, Brushes.Black, 500, BARIS + 10, KANAN)

        e.Graphics.DrawString(TJMLAWAL, FONTDATA, Brushes.Black, 575, BARIS + 10, KANAN)

        e.Graphics.DrawString(TJMLBELI, FONTDATA, Brushes.Black, 650, BARIS + 10, KANAN)

        e.Graphics.DrawString(TJMLJUAL, FONTDATA, Brushes.Black, 725, BARIS + 10, KANAN)

        e.Graphics.DrawString(TJMLSTOK, FONTDATA, Brushes.Black, 800, BARIS + 10, KANAN)

        e.Graphics.DrawLine(Pens.Black, 30, BARIS + 35, 805, BARIS + 35)

        DR.Close()

    End Sub