问与答（水晶报表1）

来源：互联网发布：诛仙手游免费辅助软件编辑：程序博客网时间：2024/05/17 22:43

问：

求WEB下水晶报表使用例子或打印方案，现在想学习WEB下的打印，请各们高人指点一下，有什么好的方法啊，能有源码更好啊！

答1：

重点：
<OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0 VIEWASTEXT>
</OBJECT>
<input type=button value=打印 onclick="document.all.WebBrowser.ExecWB(6,1)" class="NOPRINT">
<input type=button value=直接打印 onclick="document.all.WebBrowser.ExecWB(6,6)" class="NOPRINT">
<input type=button value=页面设置 onclick="document.all.WebBrowser.ExecWB(8,1)" class="NOPRINT">
<input type=button value=打印预览 onclick="document.all.WebBrowser.ExecWB(7,1)" class="NOPRINT">

注意：
1、CSS对打印的控制：

<style media=print>
.Noprint{display:none;}
.PageNext{page-break-after: always;}
</style>

Noprint样式可以使页面上的打印按钮等不出现在打印页面上，这一点非常重要，因为它可以用最少的代码完成最需要的功能

PageNext样式可以设置分页，在需要分页的地方<div class="PageNext"></div>就OK了，呵呵

2、表格线粗细的设置，更是通过样式表：

<style>
.tdp
{
border-bottom: 1 solid #000000;
border-left: 1 solid #000000;
border-right: 0 solid #ffffff;
border-top: 0 solid #ffffff;
}
.tabp
{
border-color: #000000;

border-collapse:collapse;
}
</style>

或者：

<style>
.TdCs1 {
border:solid windowtext 1.0pt;
}
.TdCs2 {
border:solid windowtext 1.0pt; border-left:none;
}
.TdCs3 {
border-top:none;
border-left:solid windowtext 1.0pt;
border-bottom:solid windowtext 1.0pt;
border-right:solid windowtext 1.0pt;
}
.TdCs4 {
border-top:none;
border-left:none;
border-bottom:solid windowtext 1.0pt;
border-right:solid windowtext 1.0pt;
}
.underline {
border-top-style: none;
border-right-style: none;
border-bottom-style: solid;
border-left-style: none;
border-bottom-color: #000000;
}
</style>
答2：

建议：

你能够将报表文件导出成为下列格式：

1. PDF (Portable Document Format)

1. 2. DOC (MS Word Document)

2. 3. XLS (MS Excel Spreadsheet)

3. 4. HTML (Hyper Text Markup Language – 3.2 or 4.0 compliant)

4. 5. RTF (Rich Text Format)

使用Pull模式导出报表

当导出使用Pull模式创建的文件时，水晶报表准确地打开所需要的数据，下面是执行导出功能的代码：

C#代码:

VB.Net代码:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim myReport As CrystalReport1 = New CrystalReport1()

'注意：这里我们建立一个strong-typed的水晶报表实例。

Dim DiskOpts As CrystalDecisions.Shared.DiskFileDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions()

myReport.ExportOptions.ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.DiskFile

' 导出成为其它文件时也需要这个选项

' 如Microsoft Exchange, MAPI等.

myReport.ExportOptions.ExportFormatType = CrystalDecisions. [Shared].ExportFormatType.PortableDocFormat

'这里我们导出成为.pdf格式文件，你也能选择上面的其它类型文件

DiskOpts.DiskFileName = "c:/Output.pdf"

'如果你不指定确切的目录，那么文件就会保存到［Windows]/System32目录中去了

myReport.ExportOptions.DestinationOptions = DiskOpts

'水晶报表文件不包含直接的FileName属性，因此你不能直接指定保存的文件名

'所以你不得不使用DiskFileDestinationOptions对象，设置它的DiskFileName属性

'为你想要的路径，最后将水晶报表的DestinationsOptions属性指定为上面的DiskFileDestinationOption

myReport.Export()

'上面的代码将完成导出工作。

End Sub