Mencetak Data Report di Visual Basic secara 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� sebuah library tambahan yang bisa didapatkan dari situ resmi microsoft yang diberikan secara gratis untuk lebih jelasnya saya coba berikan step by stepnya
1.download file pageset.exe dari situs resmi Microsoft
---> Download Pageset

2.Setelah kita mendapatkan file tersebut,double klik filenya dan akan muncul pertanyaan tempat peletakan file pageset.dll dengan klik Browse, arahkan ke C:\WINDOWS\SYSTEM32 (default semua file dll kebanyakan disimpan disana)

3.Untuk mengujinya Buat sebuah project baru visual basic kemudian tambahkan object library pageset.dll yang barusan kita tambahkan dengan cara klik Menu Project � References, Browse untuk mengarahkan ke tempat penyimpanan file pageset.dll-nya(lokasinya C:\WINDOWS\SYSTEM32)

4.Sebelum kita lanjut dengan form kita, kita siapkan dulu Report yang akan kita eksekusi dari

form kita, misal kita beri nama DataReport1. dan atur tampilannya secara melebar(landscape)
5.Buat sebuah form,Deklarasikan Variabel pageset pada General Declaration , misal

Dim cetak As New PageSet.PrinterControl

6.Tambahkan sebuah Command button double click command tersebut kemudian buatlah sebuah coding sbb

Private Sub Command1_Click()
cetak.ChngOrientationLandscape
DataReport1.LeftMargin = 10
DataReport1.RightMargin = 10
DataReport1.Show
End Sub

7.Selamat Mencoba semoga bermanfaat