主题：专业报表保存问题

请教老师

1. 专业报表如何保存为WORD类型

2. 专业报表阅览有图形，保存为PDF生成的图表无内容

 

 

 

代码：

Dim fl As String = "f:\综合\Text.Pdf"
Dim doc As New PrintDoc

'生成图表
Dim Chart As New ChartBuilder '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart.DataSource = "员工信息_Table1"
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Bar '图表1类型该为Bar(条形)
Chart.SeriesList.Clear() '清除图表原来的图系

Series = Chart.SeriesList.Add() '增加一个图系
Series.Text = "任务天数"
Series.X.DataField = "电压等级" 'X轴绑定到月份列
Series.Y.DataField = "任务天数" 'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL}" '显示数值
Series = Chart.SeriesList.Add() '给图表2增加一个图系
Series.Text = "任务效率"
Series.X.DataField = "电压等级" 'X轴绑定到月份列
Series.Y.DataField = "任务效率" 'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL}" '显示数值
'Chart.DataSource = "员工信息_Table1"
'Chart.DataTable = tbe '设置绑定表

Dim fnt As New Font("黑体",11,FontStyle.Bold )  '生成图表标题  ("黑体",22,FontStyle.bold)加粗字体
Chart.HeaderText =  "项目投标设计任务与效率比对分析图示" 
Chart.HeaderFont = fnt

Chart.BackColor = System.Drawing.Color.Gainsboro '图表背景颜色
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
Chart.AxisY.Text = "任务用时天数比对(天)"
'Chart.AxisY2.Text = "任务效率"
Chart.PrintWidth = 158.5 '图表宽度为150毫米
Chart.PrintHeight = 80 '图标高度为100毫米

'打印图表
Dim rmm1 As New prt.RenderImage
rmm1.Width = 158.5 '设置尺寸,这个尺寸最好和图表尺寸一致,以免打印出来的图表变形.
rmm1.Height = 80
rmm1.Image = Chart.Image()
rmm1.Style.ImageAlign.StretchHorz = False '禁止拉伸
rmm1.Style.ImageAlign.StretchVert = False
rmm1.Style.Spacing.Top = 3
rmm1.Style.Borders.All = New prt.Linedef(1, Color.Silver) '设置边框
doc.Body.Children.Add(rmm1) '将图片对象加入报表

doc.Preview()
doc.SavePdf(fl) '保存为PDF文件

 阅览显示的情况

此主题相关图片如下：11.jpg

 保存PDF打开的情况

此主题相关图片如下：22.jpg

1、无法直接保存为word的；如果你需要生成word，你可以用word报表，然后插入值、图片等

 

http://www.foxtable.com/webhelp/scr/2890.htm

 

2、我测试这个代码没问题

 

Dim Chart As New ChartBuilder
Chart.SeriesList.Clear() '清除图表原来的图系
Dim Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = 10 '新增图系包括10个数据点
For i As Integer = 0 To 9 '指定每个数据点的位置
    Series.X(i) = i '指定水平坐标
    Series.Y(i) = i + Rand.Next(5) '垂直坐标用随机数生成
Next
Chart.PrintWidth =140
Chart.PrintHeight = 100
'打印图表
Dim doc As New PrintDoc
Dim rm As New prt.RenderImage
rm.Image = Chart.Image
doc.Body.Children.Add(rm)
'Doc.Preview()
doc.SavePdf("d:\test.pdf")