Hai pemirsa :D
kali ini saya akan berbagi cara untuk membuat laporan dengan Quickreport berformat PDF !!!
gampang kok :D
langsung ajaa yah
1. Tambahakan dibagian USES = QRPDFFilt
2. Buat laporannya / suratnya / faktur / bon
3. Tambahkan komponen TSaveDialog
4. tambahkan 1 button,. isinya :
procedure TfrmSuratKwitansi.btnSimpanPDFClick(Sender: TObject); // Button
var
PDFFilt : TQRPDFDocumentFilter;
begin
//buat pdf
SaveDialog1.Execute();
if Length(SaveDialog1.FileName)>0 then
begin
PDFFilt := TQRPDFDocumentFilter.Create(SaveDialog1.FileName);
QuickRep1.ExportToFilter( PDFFilt );
PDFFilt.free;
end
else
ShowMessage('Penyimpanan Dibatalkan');
End
jadi kita bisa plih tempat dimana kita mau simpan PDFnya
Oke mudah kan? hehe
silahkan dicoba
Terimakasih telah berkunjung di giavano.blogspot.com
mas Giovano, mau tanya nih
BalasHapussaya pakai win 7 32 bit, delphi 7, nyoba scrip diatas, sdh sy tambahkan di uses QRPDFFilt kok ada pesan erro sbb
[Fatal Error] uEntrySurat.pas(8): File not found: 'QRPGFFilt.dcu'
Halo..
HapusInstalasi dan Library untuk QuickReport apakah sudah benar?
kalo masih gagal, coba script ini.
File - new unit
unit ExportToPDF;
interface
uses
Dialogs, QuickRpt, QRPDFFilt;
Procedure ExportPDF(SaveDialog : TSaveDialog; QuickRep : TQuickRep);
implementation
Procedure ExportPDF(SaveDialog : TSaveDialog; QuickRep : TQuickRep);
var
PDFFilt : TQRPDFDocumentFilter;
begin
//buat pdf
SaveDialog.Execute();
if Length(SaveDialog.FileName)>0 then
begin
PDFFilt := TQRPDFDocumentFilter.Create(SaveDialog.FileName);
QuickRep.ExportToFilter( PDFFilt );
PDFFilt.free;
MessageDlg('PENYIMPANAN BERHASIL',mtInformation,[mbOK],0);
end
else
MessageDlg('PENYIMPANAN DIBATALKAN',mtInformation,[mbOK],0);
end;
end.
Cara pemakaian :
misalkan di form 1, kita use unit ke ExportToPDF.
tambahkan 1 buah TSaveDialog
kemudian di tombol export PDF ketikkan : ExportToPDF(SaveDialog1,QuickRep1);
Semoga membantu.