RT，
VB6+Datareport+Acces如何实现只打印其中的一条记录？
只是用Datareport简单的设置了下，打印是打印Access中的全部记录，怎么写代码能单独打印某一条记录？
度娘了好多，找不到解决办法啊，求指导！
通俗点说，想要实现的功能就是，向Access数据库中添加一条记录，那么就打印出刚刚添加的记录。求指导！
--------------------------------------------------------------------------------------------
这样把，上传下源文件：

想要实现的功能，就是每添加一条记录，就弹出一个询问是否打印的窗口，如果是的话，就打印刚才添加的那条记录，没思路啊。。求指导！

[ 本帖最后由 VB丶小宇 于 2014-8-1 22:12 编辑 ]

问题很难解决么。。这么长时间了，没人遇到过吗？

自定义的方式打印是什么？个人还没有接触过，劳烦您能指教下，我在百度上看到了一个锐浪报表，用这个可以单独打印指定的某条记录吗？

嗯，我也有这样的思路。可是还是感觉无从下手啊，劳烦您说个切入点！

按您这样设计的话，仍旧有缺陷。
如图：操作示例

向Datagrid控件成功的添加了一条记录，然后单击打印按钮。

可以看到，成功的实现了打印一条记录的要求！
但是，继续添加。

添加成功，此时再次单击打印按钮。

解决方案：必须添加一条记录后，退出程序，从新运行，才能继续！
故本人认为不完美，正在改进。。

其实是还有办法，我朋友这样改了程序，就能打印了，还是不改变原有程序的情况下。我贴上来，有些代码不懂，还劳烦您给添加个注释。

If i = vbOK Then
Dim strsql As String
strsql = "select * from BRYJtable where 票据号= " + Text1.Text
(1).CommandText = strsql
If DataEnvironment2.rsCommand1.State <> adstateclose Then
DataEnvironment2.rsCommand1.Close
   End If
Set DataReport1.DataSource = DataEnvironment2
DataReport1.Show
Else

 End If
End Sub

您好，您说的那个利用PictureBox控件打印，我非常有兴趣，能不能详细的讲解下代码？谢谢！

先谢谢您了，收下看看。