CISCO Software Forums » General

Setting Crystal Reports parms and printing from VB.net

(1 post)
  • Started 2 years ago by george

  1. george
    Member

    //Print button logic:
    Private Sub cmdPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPrint.Click
    Dim myReport As New ReportDocument
    myReport.Load(ReportName)
    myReport.RecordSelectionFormula = ReportSelectionFormula
    myReport.DataDefinition.RecordSelectionFormula = ReportSelectionFormula
    myReport.DataDefinition.FormulaFields("formula1").Text = Tab1
    myReport.DataDefinition.FormulaFields("formula2").Text = Tab2
    myReport.DataDefinition.FormulaFields("formula3").Text = Tab3
    myReport.DataDefinition.FormulaFields("formula4").Text = Tab4
    myReport.DataDefinition.FormulaFields("formula5").Text = Tab5
    myReport.DataDefinition.FormulaFields("formula6").Text = Tab6
    myReport.DataDefinition.FormulaFields("formula7").Text = Tab7
    myReport.DataDefinition.FormulaFields("formula8").Text = Tab8
    myReport.DataDefinition.FormulaFields("formula9").Text = Tab9
    myReport.DataDefinition.FormulaFields("formula10").Text = Tab10
    myReport.PrintToPrinter(1, False, 1, 999)
    myReport.Close()
    cmdEntryClose.Enabled = True
    End Sub
    Tab1 thru Tab10 set to actual string in program or set to null.

    Posted 2 years ago #

RSS feed for this topic

Reply

You must log in to post.