VB把数据库查询结果生成图片2

Private Sub Command1_Click() 
'把文本内容保存为c:\test.bmp 
Dim ctlNew As Control 
'先把数据库中检索出来的记录集Rst内容放到Text1里
Text1.text=Rst.GetString
'动态创建一个PICTUREBOX控件。
'然后设置PictureBox对象的一些属性
Set ctlNew = Me.Controls.Add("VB.PictureBox", "picNew", Me)ctlNew.AutoRedraw = True 
ctlNew.AutoSize = True 
ctlNew.Width = Text1.Width 
ctlNew.Height = Text1.Height 
ctlNew.BackColor = vbWhite 
ctlNew.FontSize = 16'字体大小ctlNew.ForeColor = vbGreen 
ctlNew.Print Text1.Text '将文本框的内容输出到PictureBox对象里 
ctlNew.Picture = ctlNew.Image 
SavePicture ctlNew.Picture, "c:\test.bmp" 

Controls.Remove ctlNew 

End Sub


昨天按照这个人说的做了，是成功了，请问下可以在这个结果里添加表格吗，像类似EXCEL一样的内容 在picture里放listView或datagrid或MSHFLEXGRID等控件都可以实现类表格的效果,只不过要将数据加载到这些控件里即可 可以说得详细点吗 要加表格用print也可以的，只是代码比较烦，还不如直接将查询结果输出到表格控件，然后保存表格控件为图片.... 看看这个：
http://download.csdn.net/source/1483930

补充：VB ,  数据库(包含打印，安装，报表)