This tutorial is part of Database Programming Made Easy Series.
Somebody is asking if I can add sample on how to print a report. So here it is. I just tweak some little changes from our previous tutorial on Windows Forms – CheckBox Control.
I did not test this from other computer so if you encounter problem on the database location just change the report data source to the directory where you save this files.
Previous: Windows Forms - TreeView Control
Imports CrystalDecisions.CrystalReports.Engine
Imports System.Data.Odbc
Imports MySql.Data.MySqlClient
Public Class reporter
'Dim custReport As CrystalReport1
Dim myReport As New ReportDocument
Dim myData As New DataSet1
Dim conn As New MySqlConnection
Dim cmd As New MySqlCommand
Dim myAdapter As New MySqlDataAdapter
Private Sub reporter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conn.ConnectionString = "server=localhost;uid=root; pwd=; database=boutique"
Try
conn.Open()
cmd.CommandText = "Select CatName As Category, Quantity from ttbcategory"
cmd.Connection = conn
myAdapter.SelectCommand = cmd
myAdapter.Fill(myData)
myReport.Load("C:\Users\Shengbelen\Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication1\CrystalReport2.rpt")
myReport.SetDataSource(myData)
CReportViewer.ReportSource = myReport
Catch ex As Exception
MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
The above code is for my form with the crystalReportViewer
The following code is for my print command.
Private Sub PrintCtrlPToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintCtrlPToolStripMenuItem.Click
reporter.ShowDialog()
End Sub
Please help
Eric