- Buka Aplikasi yang telah kita buat sebelumnya.
- Pastikan w_lap_siswa yang terbuka. jika belum terbuka double klik pada w_lap_siswa untuk membukanya.
- Tambahkan Komponen GroupBox dan berinama PageSetup
- Tambahkan 3 buah Komponen RadioButton Control dan letakkan dalam GroupBox berinama masing-masing Default, Portrait, Landscape pada setiap RadioButton.
Tahap selanjutnya adalah pemberian sintak.
- Double klik pada RadioButton Default, dan ketikkan sintak berikut.
if dw_1.describe('datawindow.print.preview')='yes' then
dw_1.Object.DataWindow.Print.orientation = 0
dw_1.Modify(' datawindow.paper.orientation = 0')
end if
dw_1.object.datawindow.print.preview='yes'
- Double klik pada RadioButton Portrait, dan ketikkan sintak berikut.
if dw_1.describe('datawindow.print.preview')='yes' then
dw_1.Object.DataWindow.Print.orientation = 2
dw_1.Modify(' datawindow.paper.orientation = 2')
end if
dw_1.object.datawindow.print.preview='yes'
- Double klik pada RadioButton Landscape, ketikkan sintak berikut.
if dw_1.describe('datawindow.print.preview')='yes' then
dw_1.Object.DataWindow.Print.orientation = 1
dw_1.Modify(' datawindow.paper.orientation = 1')
end if
dw_1.object.datawindow.print.preview='yes'
Jika selesai save dan jalankan. coba agan buka Laporan siswa dan coba check radio Button tersebut.
Default
Portrait
Landscape
Ok salam Sukses....
Source: http://girimaulana21.blogspot.com/ and http://nuansailmu.weebly.com/power-builder.html
Tidak ada komentar:
Posting Komentar