شما يك كامند باتون به فرمتون اضافه كنيد و كد زير رو توش بزارين
Private Sub Form_Load()
Dim crapp As New CRAXDRT.Application
Dim crrept As New CRAXDRT.Report
Set crrept = crapp.OpenReport(App.Path & "\report_ezaf.rpt")
CRViewer91.ReportSource = crrept
CRViewer91.ViewReport
CRViewer91.EnableGroupTree = False
CRViewer91.Zoom 135
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
CRViewer91.Refresh
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set crapp = Nothing
Set crrept = Nothing
End Sub
پاسخ با نقل قول
