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