sfcyyc 忘了设一个 DataReport.DataSource:
Private DataReport_Initialize()
Dim adoRecordset As New ADODB.Recordset
adoRecordset.Fields.Append "X", adVariant
adoRecordset.Open
Set Me.DataSource = adoRecordset
Dim adoRecordset As New ADODB.Recordset
adoRecordset.Fields.Append "X", adVariant
adoRecordset.Open
Set Me.DataSource = adoRecordset
....
'指定位置:
Dim X As Long
Dim Y As Long
Me.Sections.Item("Section2").Controls.Item("Image1").Left = X
Me.Sections.Item("Section2").Controls.Item("Image1").Top = Y
End sub
参阅:
于溪玥(PlayYuer) 2000/02/01 贴:
《巧用 VB6 之 Data Report 实现图片(Picture)、图表(MsChart)的打印及预览》
Private DataReport_Initialize()
'创建并打开一个任意的记录集,并将其设置为 DataReport 的数据源
Dim adoRecordset As New ADODB.Recordset
adoRecordset.Fields.Append "X", adVariant
adoRecordset.Open
Set Me.DataSource = adoRecordset
Dim adoRecordset As New ADODB.Recordset
adoRecordset.Fields.Append "X", adVariant
adoRecordset.Open
Dim x As Picture
Select Case i
Case 1 '打印 MsChart。MsChart 本身并没有提供 Print 或 PaintPicture 方法
FormX.MSChartX.EditCopy 'MsChart 可绘制在某窗体 FormX 上
Set x = Clipboard.GetData()
Case 2 '打印图片文件(Image、Picture)
Set x = LoadPicture("..\..\xxx.bmp") '图片文件(*.jpg ...)路径
End Select
Set Me.Sections.Item("Section2").Controls.Item("Image1").Picture = x
End Sub