Cetak Data Report Landscape Pada Visual Basic 6

Budi Hartono
pakne.dhea@gmail.com
http://cakbud.info
Lisensi Dokumen:
Copyright © 2003-2006 IlmuKomputer.Com
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara
bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah
atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak
diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari
IlmuKomputer.Com.
“Report Width is Larger Than the Paper Width” pesan error yang sering kali membuat kita
kesal ketika menampilkan atau mencetak data report dengan Visual basic 6.0. Hal ini terjadi
karena lebar report yang sudah kita desain dengan Data Report melebihi lebar kertas yang
tersedia, misalnya kita membuat sebuah report dalam bentuk landscape dan pada saat mencetak
aplikasi yang kita buat tidak bisa merubah seting printer kita dari portrait menjadi landscape.
Secara default Visual Basic 6.0 tidak memiliki fasilitas untuk merubah setting default printer
dari portrait menjadi landscape atau sebaliknya. Untuk mengatasi hal ini, kita bisa menggunakan
“PageSet”
Persiapan dan Instalasi PageSet
Untuk kebutuhan diatas, persiapan yang perlu kita lakukan adalah :
1. Mengunduh/download file pageset.exe dari situs resmi Microsoft
http://download.microsoft.com/download/vb60pro/utility/1/win98/en-us/pageset.exe
file ini merupakan file self-extactor yang berisi pageset.dll.
2. Setelah kita mendapatkan file tersebut, segera eksekusi.
Tentukan tempat peletakan file pageset.dll dengan klik Browse, misal di
C:\WINDOWS\SYSTEM32 atau dimana saja sesuai kebutuhan.
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2006 IlmuKomputer.Com
1

3. Dari proses diatas, akan menghasilkan file-file berikut
Nama File
PageSet.dll
PageSet.vbp
frmSit.frm
Orient.bas
PrinterControl.cls
Readme.txt
1KB
1KB
1KB
8KB
1KB
1KB
Ukuran
Nah.. selesai sudah proses persiapan dan instalasinya.
Selanjutnya adalah membuat file project dengan Visual Basic untuk menguji pageset kita.
Pembuatan Project
Sekarang kita buat project standard exe baru, misalnya seperti dibawah ini
Selanjutnya,kitakenalkan
pageset.dll dengan project kita,
klik Menu Project – References,
Browse untuk mengarahkan ke
tempatpenyimpananfile
pageset.dll-nya,misal
c:\windows\system32.Akhiri
proses ini dengan klik OK.
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2006 IlmuKomputer.Com
2

Sebelum kita lanjut dengan form kita, kita siapkan dulu Report yang akan kita eksekusi dari
form kita, misal kita beri nama DataReport1.
Desain form kita sebagai berikut:
Deklarasikan Variabel pageset pada General Declaration , misal
Dim cetak As New PageSet.PrinterControl
Pada tombol Preview (Command1 –Click), tuliskan kode berikut
Private Sub Command1_Click()
If Option1 = True Then
cetak.ChngOrientationPortrait
Else
cetak.ChngOrientationLandscape
End If
DataReport1.LeftMargin = 10
DataReport1.RightMargin = 10
DataReport1.Show
End Sub
Pada tombol Cetak (Command2 –Click), tuliskan code berikut
Private Sub Command2_Click()
If Option1 Then
Prn.ChngOrientationPortrait
Else
Prn.ChngOrientationLandscape
End If
DataReport1.LeftMargin = 10
DataReport1.RightMargin = 10
DataReport1.PrintReport True
End Sub
Pada Form – Unload tuliskan kode berikut
Private Sub Form_Unload(Cancel As Integer)
cetak.ReSetOrientation 'Mengembalikan default printer
End Sub
Demikian bahasan kita untuk saat ini, semoga bermanfaat.
‘Mencetak data report degan
‘menampilkan dialog printer
'Rubah menjadi Portrait
'Rubah menjadi Landscape
'mengatur margin kiri
'mengatur margin kanan
'menampilkan data Report
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2006 IlmuKomputer.Com
3

Ujicoba dilakukan dengan :
Microsoft Visual Basic 6.0
OS – Microsoft Windows Xp
Databases- Microsoft Acces
Referensi:
1. http://www.google.com/search?q=Report+Width+is+Larger+Than+the+Paper+width
2. http://support.microsoft.com/kb/19801
Biografi Penulis
Budi Hartono. Mengenal pemrograman sejak 1996, Bahasa
pemrograman yang pernah dikenal xBase, Visual basic 6.0,
Active Server Page, Delphi dan PHP dan sampai saat ini masih
terus belajar untuk menjadi bagian dari solusi. Menulis berbagai
artikel di situs http://cakbud.info.
Bisa dihubungi di pakne.dhea@gmail.com atau redaksi@cakbud.info
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2006 IlmuKomputer.Com