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 方法
Dim tempW As Long
Dim tempH As Long
'放大
tempW=FormX.MSChartX.Width
tempH=FormX.MSChartX.Height
FormX.MSChartX.Width = FormX.MSChartX.Width * 2
FormX.MSChartX.Height = FormX.MSChartX.Height * 2
FormX.MSChartX.EditCopy 'MsChart 可绘制在某窗体 FormX 上
'还原
FormX.MSChartX.Width = tempW
FormX.MSChartX.Height = tempH
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
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 方法
Dim tempW As Long
Dim tempH As Long
'放大
tempW=FormX.MSChartX.Width
tempH=FormX.MSChartX.Height
FormX.MSChartX.Width = FormX.MSChartX.Width * 2
FormX.MSChartX.Height = FormX.MSChartX.Height * 2
FormX.MSChartX.EditCopy 'MsChart 可绘制在某窗体 FormX 上
'还原
FormX.MSChartX.Width = tempW
FormX.MSChartX.Height = tempH
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