我想把MSChart控件繪制的曲線打印到一張A4的紙上﹐請教怎么做呀?...在線等待

[xysophie]

我有一個MSChart控件﹐要把他繪制的曲線圖打印到一張A4的紙上
要求位置居中﹐上邊有標題﹐下邊有其它注釋什么的

誰能告訴我該怎么做呀?
最好有代碼。分不夠可以另開。

[hxy2003]

MSChart1.EditCopy
Printer.Print " "
Printer.PaintPicture Clipboard.GetData(), 100, 300
Printer.EndDoc
End Sub

[xysophie]

請教﹕該怎么判斷和處理換頁問題呢?

[lxcc]

MSChart1.EditCopy
Picture1.Picture = Clipboard.GetData()
Printer.Print " "
Printer.PaintPicture Form2.Picture1.Picture, 0, 0
Printer.EndDoc

請教﹕該怎么判斷和處理換頁問題呢?
详细请看Printer对象

[hc_z]

Dim x As Picture
Dim i As Integer

Me.MSChart1.EditCopy 'MsChart ¿É»æÖÆÔÚij´°Ìå FormX ÉÏ
Set x = Clipboard.GetData()

Set DataReport2.Sections.Item("Section4").Controls.Item("Image1").Picture = x
' DataReport2.Orientation = rptOrientPortrait
DataReport2.Show
DataReport2.Refresh
标题可以写在rptlabel里，对齐方式可以在DataReport中设置
对了，你还得先在dataReport里画一个rptImage控件

[hxy2003]

up