كود:
Option Explicit
Dim m_Application As New CRAXDRT.Application
Dim m_Report As New CRAXDRT.Report
Private Sub Form_Load()
Call Form_Resize
Dim ReportFile As String
ReportFile = App.Path & "\Customer List With Control Accounts.rpt"
Set m_Report = m_Application.OpenReport(ReportFile)
m_Report.Database.Tables(1).ConnectionProperties("password") = "sa"
CrViewer.ReportSource = m_Report
CrViewer.Zoom 1
CrViewer.ViewReport
Screen.MousePointer = vbDefault
End Sub
هذا هو الكود كاملا