Cetak Data Report Landscape Pada Visual Basic 6.0
Selamat mlm sobat, kali ini mozalora akan membahas tentang membuat Data Report Lanscape pada Visual basic 6.0, mungkin bagi2 senior2 atw teman2 yang sudah mahir mngkin hal ini tidak perlu. tetapi ada gunanya juga loh soalnya kalau memakai Crystal report ya rasanya agak sulit(tidak bagi yg sudah mahir) hehehehe...ok kita lanjut j...
�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� ok langsung j ke persiapannya...:)
Persiapan dan Instalasi PageSet
Untuk kebutuhan diatas, persiapan yang perlu kita lakukan adalah :
Mengunduh/download file pageset.exe dapat anda download disini.
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
Pada tombol Cetak (Command2 �Click), tuliskan code berikut
Pada Form � Unload tuliskan kode berikut
kalau yang ini contoh codingnya....klik disini
ok cukup sekian dlu...hehehe kalau belum paham silahkan tinggalkan komentarnya...
Selamat mlm sobat, kali ini mozalora akan membahas tentang membuat Data Report Lanscape pada Visual basic 6.0, mungkin bagi2 senior2 atw teman2 yang sudah mahir mngkin hal ini tidak perlu. tetapi ada gunanya juga loh soalnya kalau memakai Crystal report ya rasanya agak sulit(tidak bagi yg sudah mahir) hehehehe...ok kita lanjut j...
�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� ok langsung j ke persiapannya...:)
Persiapan dan Instalasi PageSet
Untuk kebutuhan diatas, persiapan yang perlu kita lakukan adalah :
Mengunduh/download file pageset.exe dapat anda download disini.
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.PrinterControlPada 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)nah kalau untuk download software pagesetnya klik disini
Prn.ReSetOrientation 'Mengembalikan default printer
End Sub
kalau yang ini contoh codingnya....klik disini
ok cukup sekian dlu...hehehe kalau belum paham silahkan tinggalkan komentarnya...
Jika postingan ini dapat membantu anda, kami sangat berterima kasih apabila anda klik salah satu iklan pada blog mozalora
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
