Di sunting 6 minggu lalu oleh amrunasri90
Apakah ada yang bisa bantu perbaiki ini setiap saya jalan kan pesan not register
Code ini saya peroleh dari Chat GPT dan saya coba terapkan namun belum berhasil
-----------------------------------------------------------------------------------------------------------------------
Sub OpenCrystalReport()
Dim crApp As Object
Dim crReport As Object
' Create Crystal Reports application object
Set crApp = CreateObject("CrystalRuntime.Application")
' Open the Crystal Report file
Set crReport = crApp.OpenReport("C:\Path\To\Your\Report.rpt")
' Set database and parameter values if needed
' Show the Crystal Reports viewer
crApp.ReportViewSource = crReport
' Show the Crystal Reports viewer
crApp.Visible = True
End Sub
