Expand|Select|Wrap|Line Numbers
- Dim Report As New CrystalReport3
- Private Sub Command1_Click()
- Dim Report As New CrystalReport3
- Report.Export = True
- End Sub
- Private Sub Form_Load()
- Screen.MousePointer = vbHourglass
- CRViewer1.ReportSource = Report
- CRViewer1.ViewReport
- Screen.MousePointer = vbDefault
- End Sub
- how to solve Report As New CrystalReport3 this userdefinend is not type error in vb0.6
- Private Sub Form_Resize()
- CRViewer1.Top = 0
- CRViewer1.Left = 0
- CRViewer1.Height = ScaleHeight
- CRViewer1.Width = ScaleWidth
- End Sub