下图:浏览时如何默认为横向显示。
此主题相关图片如下:image 1.jpg

下图:如何在图表中设置上标题(图中红色字体“手术室”,这个“手术室”来自【科室金额统计临时表排序】中的科室列,见最后图)
此主题相关图片如下:image 2.jpg

此主题相关图片如下:image 3.jpg

代码如下:
Result=MessageBox.Show("马上浏览图表吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim Chart As New ChartBuilder
Dim Series As WinForm.ChartSeries
Chart.DataSource = "科室金额统计临时表排序"
Chart.SeriesList.Clear()
Chart.ChartType = ChartTypeEnum.Bar
Series = Chart.SeriesList.Add()
Series.X.DataField = "月份"
Series.Y.DataField = "金额"
'Chart.Inverted = True
Chart.PrintWidth =200
Chart.PrintHeight =200
Chart.BarClusterWidth = 80
Chart.AxisX.AnnoRotation = - 60
' Chart.AxisY.Major = 400 '主刻度间隔值为400
Series.DataLabelText = "{#YVAL}"
Series.DataLabelBackColor = Color.Blue '蓝底
Series.DataLabelForeColor = Color.White '白字
'打印图表
Dim doc As New PrintDoc
Dim rm As New prt.RenderImage
rm.Image = Chart.Image
doc.Body.Children.Add(rm)
Doc.Preview()
End If
请问老师,代码该如何修改,谢谢!