vb6.0中怎么打印datagrid控件中显示出的表格及信息

vb6.0中如何打印datagrid控件中显示出的表格及信息
vb6.0中如何打印datagrid控件中显示出的表格及信息，有人说用下面的代码，但我试了不行，请大家帮帮忙！
Option Explicit 
Private Sub Command1_Click() 
Dim I As Long, J As Long, K As Long 
Dim PrintString As String 
For I = 0 To Data1.Recordset.RecordCount - 1 
If K = DBGrid1.VisibleRows Then 
DBGrid1.Scroll 0, DBGrid1.VisibleRows 
K = 0 
End If 
For J = 0 To DBGrid1.Columns.Count - 1 
PrintString = PrintString & 
DBGrid1.Columns(J).CellText(DBGrid1.RowBookmark(K)) & "/" 
Next 
Printer.Print PrintString 
PrintString = "" 
K = K + 1 
DoEvents 
Next 
End Sub

Private Sub Form_Activate() 
Data1.Recordset.MoveLast 
Data1.Recordset.MoveFirst 
End Sub


[解决办法]
VB下数据报表打印输出方法有多种，一是通过自己的设计和编程完成报表打印输出。二是通过MS OFFICE实现报表打印输出。三是应用数据报表设计器的报表打印输出。第一种方法，它具有根据需要灵活应用的特点，但需编写程序。具体连接数据库和打印代码根据你所涉及的数据要求进行修改。预览代码在如下网址: 
http://zhidao.baidu.com/question/4165080.html