保存报表
报表除打印之外，通过下面两个方法，还可以保存为htm或者pdf格式的文件。
- SaveHTM
将报表保存为HTM格式的文件。
- SavePDF
将报表保存为PDF格式的文件。
示例
Dim doc As New
PrintDoc
'定义一个新报表
Dim rt As New
prt.RenderTable
'定义一个新表格
Dim ColNames As
String() =
New
String(){"客户","产品", "数量","单价","金额"}
Dim drs As List(of
DataRow) =
DataTables("订单").Select("日期 = #"
&
Date.Today
&
"#")
For c As Integer = 0 To ColNames.Length - 1
'逐列设置和填入内容
rt.Cells(0,c).Text = ColNames(c) '列名作为标题
For
r
As
Integer = 0
To
drs.Count
-1
'开始填入该列内容
rt.Cells(r + 1, c).Text = drs(r)(ColNames(c))
Next
Next
rt.Style.Gridlines.All = New
prt.Linedef(Color.Gray)
doc.Body.Children.Add(rt) '将表格加入到报表
doc.SaveHtm("c:\data\test.htm")
帮助还有呀?
加好友 
发短信
Post By：2013/1/7 11:06:00 [显示全部帖子]
