Expand|Select|Wrap|Line Numbers
- Private Sub Form_Load()
- CrystalReport1.Connect = "DSN=perfection;UID=crystal;PWD=crystal"
- CrystalReport1.ReportFileName = "e:\Nittany Work Tickets\Nittany Work Tickets.rpt"
- CrystalReport1.Destination = crptToWindow
- CrystalReport1.WindowState = crptMaximized
- CrystalReport1.Action = 1
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- Set frm = Nothing
- End Sub
Expand|Select|Wrap|Line Numbers
- Public Class Form1
- Dim cryRpt As New ReportDocument
- Dim pdfFile As String = "c:\ProductReport1.pdf"
- Private Sub Button1_Click(ByVal sender As System.Object, _
- ByVal e As System.EventArgs) Handles Button1.Click
- cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt")
- CrystalReportViewer1.ReportSource = cryRpt
- CrystalReportViewer1.Refresh()
- End Sub
If anyone find any idea please replay it..
thanks in advance.
Firoz.