文件名称:VB MSChart对直方图表数据进行打印.rar
文件大小:4KB
文件格式:RAR
更新时间:2022-07-30 03:21:02
VB源码-报表实例
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 编译运行后,效果如图所示。
【文件预览】:
codesc.net
----图表数据进行打印()
--------工程1.vbw(54B)
--------MSSCCPRJ.SCC(190B)
--------Form1.frx(9KB)
--------Form1.frm(2KB)
--------工程1.vbp(866B)