CrystalRpt1

FrmMenuCR

Public Class frmMenuCR

Inherits System.Windows.Forms.Form

Private Sub btnRpt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRpt.Click

Dim frmNewDonorRpt As New frmDonorRpt

frmNewDonorRpt.ShowDialog()

End Sub

End Class

FrmDonorRpt

Public Class frmDonorRpt

Inherits System.Windows.Forms.Form

Private Sub frmDonorRpt_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim crDonorReport As New CrRptDonor1

daDonor.Fill(DsDonor1)

'crDonorReport.SetDataSource(DsDonor1)

crDonorReport.Database.Tables(0).SetDataSource(DsDonor1)

crvDonor.ReportSource = crDonorReport

End Sub

End Class

CrystalRptBreak

FrmMenu

Public Class frmMenu

Inherits System.Windows.Forms.Form

Private Sub btnCrRpt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCrRpt.Click

Dim frmNewReport As New frmReport

frmNewReport.ShowDialog()

End Sub

End Class

FrmReport

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

Public Class frmReport

Inherits System.Windows.Forms.Form

Dim crDonationReport As New CRDonationBr

Private Sub frmReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

daDonation.Fill(DsDonation1)

crDonationReport.SetDataSource(DsDonation1)

'crDonationReport.Database.Tables(0).SetDataSource(DsDonation1)

crvDonation.ReportSource = crDonationReport

End Sub

Private Sub mnuExportToWord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExportToWord.Click

Dim dlgResult As DialogResult

dlgResult = sfdRpt.ShowDialog()

If dlgResult = DialogResult.OK Then

Dim fileOptions As New DiskFileDestinationOptions

fileOptions.DiskFileName = sfdRpt.FileName

crDonationReport.ExportOptions.DestinationOptions = fileOptions

crDonationReport.ExportOptions.ExportFormatType = _

CrystalDecisions.Shared.ExportFormatType.WordForWindows

crDonationReport.ExportOptions.ExportDestinationType = _

CrystalDecisions.Shared.ExportDestinationType.DiskFile

crDonationReport.Export()

End If

End Sub

Private Sub mnuExportToExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExportToExcel.Click

Dim dlgResult As DialogResult

dlgResult = sfdRpt.ShowDialog()

If dlgResult = DialogResult.OK Then

Dim fileOptions As New DiskFileDestinationOptions

Dim exportOptions As New ExportOptions

fileOptions.DiskFileName = sfdRpt.FileName

crDonationReport.ExportOptions.DestinationOptions = fileOptions

crDonationReport.ExportOptions.ExportFormatType = _

CrystalDecisions.Shared.ExportFormatType.Excel

crDonationReport.ExportOptions.ExportDestinationType = _

CrystalDecisions.Shared.ExportDestinationType.DiskFile

crDonationReport.Export()

End If

End Sub

Private Sub mnuExportAsHTML_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExportAsHTML.Click

Dim dlgResult As DialogResult

dlgResult = sfdRpt.ShowDialog()

If dlgResult = DialogResult.OK Then

Dim fileOptions As New DiskFileDestinationOptions

Dim htmlOptions As New HTMLFormatOptions

fileOptions.DiskFileName = sfdRpt.FileName

htmlOptions.HTMLFileName = sfdRpt.FileName

crDonationReport.ExportOptions.FormatOptions = htmlOptions

crDonationReport.ExportOptions.DestinationOptions = fileOptions

crDonationReport.ExportOptions.ExportFormatType = _

CrystalDecisions.Shared.ExportFormatType.HTML40

crDonationReport.ExportOptions.ExportDestinationType = _

CrystalDecisions.Shared.ExportDestinationType.DiskFile

crDonationReport.Export()

End If

End Sub

End Class