Mencetak Landscape pada DataReport

Pernahkah anda mencetak laporan pada VB kemudian mendapatkan debug "Report is longer than the  width paper" yang menunjukkan bahwa laporan yang anda setting di datareport itu jauh lebih besar ukurannya daripada kertas anda? dan hasilnya, ketika anda mengklik OK pada kolom dialog tersebut yang muncul hanyalah sehampar halaman berwarna putih. Dimana laporan saya? tanya anda mungkin dalam hati...tenang saja hehehe...laporan anda pasti tetap ada, hanya saja karena laporan anda kapasitas ukurannya lebih lebar daripada ukuran muatan kertas, maka VB tidak memunculkannya alias tidak dapat mengeksekusinya.

Memang secara default, Datareport ( dulu karena seringnya bertemu debug seperti ini, saya sering memplesetkannta menjadi DATA REPOT ) hanya dapat mengeksekusi laporan dalam bentuk Portrait / tegak, itupun dengan batasan margin kiri kanan atas bawah yang harus diwaspadai pula sehingga laporan yang dibuat tentu akan terbatas dan tidak bisa dibuat dalam bentuk memanjang /landscape.

lantas bagaimana agar kita dapat mencetak secara memanjang/landscape pada visual basic dengan menggunakan DataReport ?
 
caranya gampang dan sangat sederhana sekali hehehehe...anda tinggal menambahkan komponen pageset didalam project anda. tapi jangan salah, komponen pageset ini tidak tersedia secara default di komponen VB anda sehingga anda tentu harus menginstalnya terlebih dahulu. mau mencoba? ikuti langkah-langkah berikut ini :

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.

3. Dari proses diatas, akan menghasilkan file-file berikut

Nama File Ukuran

PageSet.dll 1KB

PageSet.vbp 1KB

frmSit.frm 1KB

Orient.bas 8KB

PrinterControl.cls 1KB

Readme.txt 1KB

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, kita kenalkan pageset.dll dengan project kita,

klik Menu Project – References,

Browse untuk mengarahkan ketempat penyimpanan filepageset.dll-nya, misal

c:\windows\system32. Akhiri proses ini dengan klik OK.

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 , missal

Dim cetak As New PageSet.PrinterControl

Pada tombol Preview (Command1 –Click), tuliskan kode berikut

Private Sub Command1_Click()

If Option1 = True Then

cetak.ChngOrientationPortrait 'Rubah menjadi Portrait

Else

cetak.ChngOrientationLandscape 'Rubah menjadi Landscape

End If

DataReport1.LeftMargin = 10 'mengatur margin kiri

DataReport1.RightMargin = 10 'mengatur margin kanan

DataReport1.Show 'menampilkan data Report

End Sub

Pada tombol Cetak (Command2 –Click), tuliskan code berikut

Private Sub Command2_Click()

If Option1 Then

Cetak.ChngOrientationPortrait

Else

Cetak.ChngOrientationLandscape

End If

DataReport1.LeftMargin = 10

DataReport1.RightMargin = 10

DataReport1.PrintReport True ‘Mencetak data report degan

‘menampilkan dialog printer

End Sub

Pada Form – Unload tuliskan kode berikut

Private Sub Form_Unload(Cancel As Integer)

cetak.ReSetOrientation 'Mengembalikan default printer

End Sub

Selamat mencoba dan semoga berhasil :)