Source Code : Full Print Preview (Export Report/Search/Report Justify/etc)

Salah satu fitur yang ada pada aplikasi ini adalah adanya Print Preview yang dapat menghasilkan file export ke dalam file berupa PDF,DOC,XLS,dan Image, serta report bisa tampil dalam bentuk justify (rata kanan kiri).

Berkat bantuan yang diperoleh dari Cesar Ch (http://weblogs.foxite.com/vfpimaging) hal tersebut dapat dihasilkan.

Cara yang digunakan pada aplikasi ini sebenarnya cukup sederhana, tidak perlu coding yang rumit karena cukup menambahkan beberapa file (dan pasangannya) pada folder program yang dibuat yaitu :
FJListener.prg
_reportlistener.vct
reportbuilder.app
reportoutput.app
reportpreview.app
System.app

1. Pastikan aplikasi MVP sudah Service Pack 2.

2. Buka File FJListener.prg kemudian ubah lokasi pemanggil pada tulisan yang ditandai.

  
 












3. Panggil report tersebut, untuk program ini saya memanggil report kosong (tidak ada datanya) yaitu dengan coding pada Mainform.init :

public loReportListener

loForm = Createobject('form')
 
SET CLASSLIB TO ("c:/program files/APPBRG/sys/_ReportListener.VCX") ADDITIVE
loReportListener = NEWOBJECT("FullJustifyListener", LOCFILE("c:/program files/APPBRG/sys/FJListener.Prg"))

*Report kosong (tidak tampil)
SELECT * FROM cuser WHERE id_user=123456 INTO CURSOR lapx
SELECT lapx
REPORT FORM "C:\PROGRAM FILES\appbrg\rep\lap_rkp_kuitx.frx" OBJECT loReportListener NOCONSOLE PREVIEW WINDOW (lcWndName) TO PRINTER PROMPT NODIALOG

4. Untuk Report agar tampil Justify (rata kanan kiri), perlu penambahan text <FJ> pada field yang akan dibuat.

5. Selanjutnya setiap report yang dipanggil akan otomatis menampilkan fitur report yang lengkap.

Demikian, cukup singkat bukan?

Tweet