请问各位大侠 如何打印MsChart（饼图） 多谢！！！

Question

将mschart图通过剪贴板拷贝到picturebox中，再用picture1的打印方法可打出来。
不过我没试过。

Answer 1

选择project下的component，引入 Microsoft Office web components 9.0（Offcice 2000所代的控件），创建新的工程，并引入控件ChartSpace，下面过程能够打印饼图，如有不董，可参考Office帮助
sub printChart()
Dim categories(3), values(3)
    Dim c As Object
    
    categories(0) = "White"
    categories(1) = "Black"
    categories(2) = "Asian"
    categories(3) = "Latino"
    
    ChartSpace1.Clear   '删除图表工作区中的每个图表，并将所有格式都重新设置为默认值
    '图表工作区中 WCChart 对象构成的集合。每个 WCChart 对象都代表一个图表。
    '图表工作区至多可包含 16 个图表。图表工作区中 WCChart 对象构成的集合。
    '每个 WCChart 对象都代表一个图表。图表工作区至多可包含 16 个图表。
    ChartSpace1.Charts.Add    '创建新的空图表
    Set c = ChartSpace1.Constants    ChartSpace1.Charts(0).SeriesCollection.Add
    ChartSpace1.Charts(0).SeriesCollection.Add
    ChartSpace1.Charts(0).SeriesCollection.Add
    
  
values(0) = 0.2 ' The White value.
values(1) = 0.06 ' The Black value.
values(2) = 0.17 ' The Asian value.
values(3) = 0.13 ' The Latino value.ChartSpace1.Charts(0).SeriesCollection(0).Caption = "Perot"
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, categories
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values    ' Series two contains election data for Clinton.
    ' Update the values array, then set the chart data.
    values(0) = 0.38 ' The White value.
    values(1) = 0.82 ' The Black value.
    values(2) = 0.28 ' The Asian value.
    values(3) = 0.62 ' The Latino value.    ChartSpace1.Charts(0).SeriesCollection(1).Caption = "Clinton"
    ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimCategories, c.chDataLiteral, categories
    ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimValues, c.chDataLiteral, values    ' Series two contains election data for Bush.
    ' Update the values array, and then set the chart data.
    values(0) = 0.42 ' The White value.
    values(1) = 0.12 ' The Black value.
    values(2) = 0.55 ' The Asian value.
    values(3) = 0.25 ' The Latino value.    ChartSpace1.Charts(0).SeriesCollection(2).Caption = "Bush"
    ChartSpace1.Charts(0).SeriesCollection(2).SetData c.chDimCategories, c.chDataLiteral, categories
    ChartSpace1.Charts(0).SeriesCollection(2).SetData c.chDimValues, c.chDataLiteral, values    ' Make the chart legend visible, format the left value axis as percentage,
    ' and specify that value gridlines are at 10% intervals.
    ChartSpace1.Charts(0).HasLegend = True
    ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).NumberFormat = "0%"
    ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).MajorUnit = 0.1
  ChartSpace1.Charts(0).Type = chChartTypePie   '设置图形的类型
End Sub

Answer 2

请问如何可将 MSChart 控件中的内容打印出来。
http://www.csdn.net/expert/topic/306/306176.shtmHOWTO: Print the Contents of the MS Chart Control 
http://support.microsoft.com/directory/article.asp?ID=KB;EN-US;q168749《巧用 VB6 之 Data Report 实现图片(Picture)、图表(MsChart)的打印及预览》
http://microinfo.top263.net/Txt/ImageRpt.txt
欢迎去 Http://microinfo.top263.net 下载例程:
http://microinfo.top263.net/Zip/ImageRpt.exe

Answer 3

是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
 
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm
是高手吗？？？？？？回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 16:12:40)  得0分 
我用Me.PrintForm

Answer 4

MSChart1.EditCopy 
     Printer.Print " " 
     Printer.PaintPicture Clipboard.GetData(), 0, 0 
     Printer.EndDoc