[所见非所得]使用参数控制水晶报表的部分元素不打印
2008-11-03 14:01
399 查看
一般我们在使用水晶报表的时候,打印的时候是所见即所得的,就是模板上有什么,肯定会打印出什么来。
这就有一个问题,比如说打印票据,为了呈现效果,我们一般会做个底图,而只要求打印出数字来。
以前单纯想从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中简单修改即可使用。
这就有一个问题,比如说打印票据,为了呈现效果,我们一般会做个底图,而只要求打印出数字来。
以前单纯想从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中简单修改即可使用。
相关文章推荐
- [所见非所得]使用参数控制水晶报表的部分元素不打印
- [所见非所得2]控制水晶报表的部分元素不打印
- [所见非所得2]控制水晶报表的部分元素不打印
- 使用参数控制水晶报表的部分元素不打印
- [所见非所得2]控制水晶报表的部分元素不打印
- winform水晶报表使用code128条形码扫描打印
- 使用 水晶报表 实现打印
- 水晶报表打印知识---编程控制打印
- 『水晶报表』使用 水晶报表 实现打印
- 水晶报表传递参数及使用公式参数
- 水晶报表打印知识---编程控制打印
- [开发技巧4]ASP.Net中使用水晶报表10的打印功能
- 水晶报表的“SQL 表达式字段”能否使用“参数字段”?
- [开发技巧4]ASP.Net中使用水晶报表10的打印功能
- 水晶报表问题汇总(水晶报表的使用与查询条件生成报表、注册码、打印问题、模式使用示例、C#.Net的WinForm中的使用、程序发布与部署)
- [水晶报表小技巧-开发-3]ASP.Net中使用水晶报表10的打印功能
- 【水晶报表小技巧-使用-5】 控制每页显示行数、隔行换色.
- 水晶报表使用经验谈1--建立水晶报表第一步及编译最易出现错误的解决方法及报表转换成pdf文档进行打印方法
- 『水晶报表』使用 水晶报表 实现打印
- 如何使用FastReport.Net在SAP NetWeaver中生成报表-第2部分:输出信息(打印文档)