Mengawali bulan juli kali ini saya akan sedikit posting tentang "Memanggil file Crystal Report dalam Visual Basic 6.0" yang tak lain adalah project yang sedang saya kerjakan juga.
Langsung saja ke inti postingannya, berikut adalah tampilan form yang dibuat
Dan berikut adalag coding untuk memanggil file Crystal Reportnya :
'-----------------------------------------------------------------------------------
Sub CETAKPERMINTAAN()
CrystalReport1.ReportFileName = App.Path & "\MDBKLAP\MUTASI_BENANG.rpt"
'----Keterangan-----------------------------------------------------------------
'File Crystal Report ada dalam folder "MDBKLAP" dengan nama file "MUTASI_BENANG.rpt"
'Folder MDBKLAP berada dalam folder project atau jika sudah di jadikan *.Exe berada satu folder dengan *.Exe tersebut
'-------------------------------------------------------------------------------
CrystalReport1.WindowState = crptMaximized
CrystalReport1.WindowShowProgressCtls = True
CrystalReport1.WindowShowRefreshBtn = True
CrystalReport1.WindowShowPrintBtn = True
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
End Sub
'-----------------------------------------------------------------------------------
Panggail sub diatas dalam button untuk mencetak atau sesuai dengan kebutuhan kalian. Dan hasilnya sebagai berikut
Ok,, selamat mencoba, jika terjadi error atau ada yang mau ditanyakan silahkan tinggalkan komentar.
Langsung saja ke inti postingannya, berikut adalah tampilan form yang dibuat
Dan berikut adalag coding untuk memanggil file Crystal Reportnya :
'-----------------------------------------------------------------------------------
Sub CETAKPERMINTAAN()
CrystalReport1.ReportFileName = App.Path & "\MDBKLAP\MUTASI_BENANG.rpt"
'----Keterangan-----------------------------------------------------------------
'File Crystal Report ada dalam folder "MDBKLAP" dengan nama file "MUTASI_BENANG.rpt"
'Folder MDBKLAP berada dalam folder project atau jika sudah di jadikan *.Exe berada satu folder dengan *.Exe tersebut
'-------------------------------------------------------------------------------
CrystalReport1.WindowState = crptMaximized
CrystalReport1.WindowShowProgressCtls = True
CrystalReport1.WindowShowRefreshBtn = True
CrystalReport1.WindowShowPrintBtn = True
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
End Sub
'-----------------------------------------------------------------------------------
Panggail sub diatas dalam button untuk mencetak atau sesuai dengan kebutuhan kalian. Dan hasilnya sebagai berikut
Ok,, selamat mencoba, jika terjadi error atau ada yang mau ditanyakan silahkan tinggalkan komentar.
cek
BalasHapusterimakasih....
BalasHapusterima kasih, infonya sangat membantu
BalasHapushttp://carakuvb6.blogspot.com