Private Sub Command1_Click()
CrystalReport1.ReportFileName = App.Path & "\report1.rpt"
CrystalReport1.Password = Chr(10) & "passwordku"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 0
End Sub
Jika anda menggunakan Password database yang berbeda, silahkan ganti dengan password anda dengan mengganti coding yang berwarna merah
0 Response to "Membuat Laporan Dengan Database BerPassword"