[所见非所得2]控制水晶报表的部分元素不打印

在前文<[所见非所得]使用参数控制水晶报表的部分元素不打印>中，使用了参数结合编程的方法实现。

CSDN论坛上的网友提供了另外一种更好的方法
http://topic.csdn.net/u/20081103/08/4aa67c3a-185b-4f96-8197-1fda53e6c0aa.html?seed=1144679551

方法重点：显示与打印分离，程序中直接设置对象的抑制显示属性。然后打印。
核心语句：
myReport.ReportDefinition.ReportObjects["Text1"].ObjectFormat.EnableSuppress=true;

模板中不再需要使用参数和公式，直接操作即可。以 WinForm 为例，核心代码为

 

Public   Class  Form2
     Private  myReport  As   New  ReportDocument
     Private   Sub  ConfigureCrystalReports()

         Dim  reportPath  As   String   =  Application.StartupPath  &   " / "   &   " crystalreport2.rpt "
        myReport.Load(reportPath)
        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

     Private   Sub  Button1_Click( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles  Button1.Click
        myReport.ReportDefinition.ReportObjects( " Text8 " ).ObjectFormat.EnableSuppress  =   True
        myReport.ReportDefinition.ReportObjects( " Subreport1 " ).ObjectFormat.EnableSuppress  =   True
        myReport.PrintOptions.PrinterName  =   " Microsoft Office Document Image Writer "
        myReport.PrintToPrinter( 1 ,  False ,  1 ,  99 )
     End Sub

End Class