在VB6中，如何调用水晶报表生成的报表并进行预览和打印

[kenxu]

[xiangood]

CRViewer1.ReportSource = Report
CRViewer1.ViewReport
是关键。
记得加分。：）

[xiangood]

Option Explicit

Dim Report As New MyReport
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth

End Sub

[xmao]

简单几句代码就可以了！

private sub cmdPrint_click()
Report1.ReportFileName = App.Path + "\report.rpt"
Report1.Destination = crptToWindow '预览
Report1.WindowState = crptMaximized
Report1.Action = 1
end sub