主题：专业报表保存问题

请教老师

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