VB MSChart对直方图表数据进行打印.rar

VB报表及预览功能，对图表数据进行打印，这个图表的数据默认是写在代码中，实际使用时，往往是从数据库读取出来数据，然后生成。因此本程序只是演示直方图图表的生成及预览和打印功能，生成图表，请参考以下核心 代码：
　　Private Sub Command1_Click()
　　 MSChart1.EditCopy
　　 Picture1.Picture = Clipboard.GetData(vbCFDIB)
　　End Sub
　　Private Sub Command2_Click()
　　 MSChart1.EditCopy
　　 Picture1.Picture = Clipboard.GetData(vbCFDIB)
　　 Printer.PaintPicture Picture1.Picture, Picture1.Width, Picture1.Height
　　 Printer.CurrentX = 100
　　 Printer.CurrentY = 100
　　 Printer.NewPage ' 发送新页。
　　 Printer.EndDoc ' 打印完毕。
　　End Sub
　　编译运行后，效果如图所示。