Cetak Data Report Landscape Pada Visual Basic 6.0

“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 :
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.
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.

Dari proses diatas, akan menghasilkan file-file berikut
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 ke tempat penyimpanan file pageset.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 , misal
Dim Prn As New PageSet.PrinterControl

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

Private Sub Command1_Click()
If Option1 = True Then
  Prn.ChngOrientationPortrait   \'Rubah menjadi Portrait
Else
  Prn.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
   Prn.ChngOrientationPortrait
Else
   Prn.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)
 Prn.ReSetOrientation 'Mengembalikan default printer
End Sub

Demikian bahasan kita untuk saat ini, semoga bermanfaat.

Ujicoba dilakukan dengan :

Microsoft Visual Basic 6.0
OS – Microsoft Windows Xp
Databases- Microsoft Acces