Option Explicit
Dim m_App As New CRAXDDRT.Application
Dim m_Report As CRAXDDRT.Report
Dim Con As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Private Sub CRViewer91_PrintButtonClicked(UseDefault As Boolean)
m_Report.PrinterSetupEx Me.hwnd
End Sub
Private Sub Form_Load()
Me.Icon = LoadPicture(App.Path & "/title.ico")
Con.ConnectionString = strConnSQL
Con.Open
Set m_Report = m_App.OpenReport(App.Path & "/Report/rptFixDisCard.rpt", 1)
rs1.Open "select * From vfixdis where fix_no ='" & Trim(fix_no_dis) & "'", Conn, adOpenStatic, adLockReadOnly
m_Report.Database.SetDataSource rs1
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = m_Report
CRViewer91.ViewReport
CRViewer91.Refresh
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
crystal report 报表制作
最新推荐文章于 2021-01-14 17:02:36 发布