Jika mencetak Report
menjadi file .pdf menggunakan generator gb.Report maka akan menjadi
lebih mudah karena sudah tersedia pada menu pilihan. Namun bagaimana
jika pada Report yang tampilan Formnya dibuat secara manual, maka
pengaturan cetaknya harus diatur secara manual juga.
Gambas Report secara
default sudah memasukkan library untuk mencetak report menjadi file
pdf, pengguna hanya menggunakan properti OutputFile untuk cetak ke
pdf.
Ok, langsung ke
contoh:
Buat Project dan
Form Report seperti pada gambar berikut, dengan nama “BuatLaporan”.
Object Form:
ReportView =
ReportView1
Label = Label1
TextBox = LokasiFile
Button = Cetak
Tampilan Project
Tampilan Project From Detacth
Tampilan Form Report
Isi kode pada Class
Report (TesReport) tersebut
‘Gambas class file
Private Report1 As
New Report
Private Printer1 As
New Printer
Private ReportHBox1
As ReportHBox
Private
ReportTextLabel1 As ReportTextLabel
Public Sub
Form_Open()
Cetak.Text = "Cetak
Ke PDF"
ReportHBox1 = New
ReportHBox(Report1)
ReportTextLabel1 =
New ReportTextLabel(ReportHBox1)
With
ReportTextLabel1
.Width = 400
.Height = 80
.Margin.Top = 20
.Margin.Left =
20
.Padding.Left =
10
.Font.Bold = 1
.Text =
"ReportTextLabel1: Uji coba cetak ke PDF"
.BackGround =
ReportBrush.Color(&H9EC5EC)
End With
ReportView1.Report =
Report1
End
Public Sub
Cetak_Click()
'Jika TextBox1
(Tempat Lokasi File disimpan) -
'tidak diisi apa -
apa maka Cetak tidak berjalan
If
Trim(LokasiFile.Text) = "" Then
Message("Lokasi
penyimpanan file harus diisi")
Return
Endif
'Jika Lokasi yang
diisikan di TextBox1 tidak
'tersedia, maka
Cetak tidak berjalan
If Not
IsDir(LokasiFile.Text) Then
Message("Lokasi
penyimpanan tidak ditemukan")
Return
Endif
Printer1.OutputFile = LokasiFile.Text &/ "NamaFile.pdf"
Report1.Print(Printer1)
End
Tampilan Report
Selamat belajar
Tidak ada komentar:
Posting Komentar