Menyimpan Quick Report dengan Format PDF pada Delphi

Codegratis.wordpress.com. Mari belajar coding dengan mudah dan sederhana. Setelah sekian lama akhirnya codegratis kembali lagi aktiv, maaaaaaf yaa karena kesibukan admin dalam mencari nafkah akhirnya ada waktu dan ada ide lagi dalam mengisi blog yang sederhana  ini. Mohon maaaaaaf ya pemirsa, karena sudah sekian lama tidak ada posting. Ok baiklah  langsung aja kita membahas mengenai tutorial Delphi yang cukup jarang dan cukup sulit mencari versi Bahasa Indonesia dan tokcer jika dicoba langsung diaplikasikan. Kali ini kita akan membahas tentang “Menyimpan Quick Report dengan Format PDF pada Delphi”, bahan-bahan yang harus dipersiapkan……halah koyok Master Chef aja.

1. Uses QRPDFFilt
2. Variabel lokal (biasa ditempatkan di tombol cetak) dr : string; aPDF : TQRPDFDocumentfilter;

Script-nya so simple langsung aja ya :

Di awal procedure isi variabel dr dengan lokasi dan nama penyimpanan hasil export Quick Report ke PDF

dr:=ExtractFilePath(Application.ExeName)+'struk\'++'.pdf';

Script untuk mengekpor Quick Report ke PDF, sedikit sekali diletakkan setelah Quick Report dipersiapkan atau query untuk menampilkan data pada report sudah dijalankan, ini script nya :

QuickReport1.Prepare;
aPDF := TQRPDFDocumentfilter.Create(dr);
QuickReport1.ExportToFilter( aPDF);
aPDF.free;

Nah gampang bukan, PDF dari hasil export tadi langsung akan tersimpan pada direktori yang sudah diset diawal.

Langsung di coba ya, kalo ada yang kurang jelas atau masih bingung Mongooo langsung aja dikomen yaaaaaaa

Selamat Mencobaaaaa.