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.
Iklan

3 respons untuk ‘Menyimpan Quick Report dengan Format PDF pada Delphi

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

Connecting to %s