使用参数控制水晶报表的部分元素不打印

一般我们在使用水晶报表的时候，打印的时候是所见即所得的，就是模板上有什么，肯定会打印出什么来。

这就有一个问题，比如说打印票据，为了呈现效果，我们一般会做个底图，而只要求打印出数字来。

以前单纯想从SDK层面控制模板元素的显示与隐藏，未果。今天突然想到了这样的方法，与大家分享。

方法很简单:使用自定义打印功能，打印前重新用参数控制模板元素的显示与隐藏，然后再进行打印。

在下例中，我通过一个简单的例子来演示文本对象，数据库字段，背景图，子报表的控制。

编程环境：VB.net 2005 / Crystal Reports for Visual Studio 2005

模板是这样的，新建立5个参数。箭头方向表示了参数控制的对象。参数值为1时显示，参数值为0时不显示。其中紫色色块处为一个背景图片。
sub1和sub2是子报表。

在要控制的对象上点右键，【设置对象格式】，勾选【抑制显示】，编辑公式(此处以第一个控制对象为例)为：{?x1}=1

代码：

报表正常显示代码段（此处仅为核心示例代码）：

报表的正常显示（注意报表控件上的打印按钮可能需要禁止掉showprintbutton=false）

Private   Sub  ConfigureCrystalReports()
         ' 注意！此处的myReport不能设置为Class级别的变量，仅能为本函数体变量
         Dim  myReport  As   New  ReportDocument
         Dim  reportPath  As   String   =  Application.StartupPath  &   " / "   &   " crystalreport1.rpt "
        myReport.Load(reportPath)
        myReport.ParameterFields( " x1 " ).CurrentValues.AddValue( 1 )
        myReport.ParameterFields( " x2 " ).CurrentValues.AddValue( 1 )
        myReport.ParameterFields( " x3 " ).CurrentValues.AddValue( 1 )
        myReport.ParameterFields( " x4 " ).CurrentValues.AddValue( 1 )
        myReport.ParameterFields( " y " ).CurrentValues.AddValue( 1 )
        CrystalReportViewer1.ReportSource  =  myReport

     End Sub

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

 

界面上增加一个按钮（名称为myPrint），实现打印功能：

Private   Sub  Button1_Click( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles  myPrint.Click
         ' 注意此处的myReport应重新定义或初始化后再用，不能使用初始Load的myReport
         Dim  myReport  As   New  ReportDocument
         Dim  reportPath  As   String   =  Application.StartupPath  &   " / "   &   " crystalreport1.rpt "
        myReport.Load(reportPath)
        myReport.ParameterFields( " x1 " ).CurrentValues.AddValue( 0 )
        myReport.ParameterFields( " x2 " ).CurrentValues.AddValue( 0 )
        myReport.ParameterFields( " x3 " ).CurrentValues.AddValue( 0 )
        myReport.ParameterFields( " x4 " ).CurrentValues.AddValue( 1 )
        myReport.ParameterFields( " y " ).CurrentValues.AddValue( 0 )
        myReport.PrintOptions.PrinterName  =   " Microsoft Office Document Image Writer "
        myReport.PrintToPrinter( 1 ,  False ,  1 ,  9999 )

         ' 导出方法
         ' CrystalReportViewer1.ReportSource = myReport
         ' myReport.ExportToDisk(ExportFormatType.PortableDocFormat, "d:/ae0000.pdf")
         ' 使用控件打印方法，
         ' 最好使用一个隐藏的CrystalReportViewer2, 这样不影响CrystalReportViewer1的效果
         ' CrystalReportViewer2.ReportSource = myReport
         ' CrystalReportViewer2.PrintReport()
     End Sub

 

将这些代码段结合到你现在的应用中即可，这几段代码在WinForm和WebForm中简单修改即可使用。