DATAGRID能否打印？

[crazygs]

想打印出数据库中的一张表
已经用DATAGRID连接了

DATAGRID能够打印吗？

[lihonggen0]

VB 如何将 grid印出来

　


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

[crazygs]

感谢帮助，还有几个问题
在form_activate()里加上
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
有什么用？
我机器没装打印机，printer没有print这个方法，是不是只有装了打印机才有？
这个是一行一行的输出吧，个列之间间隔不统一，有没有办法让打印出来的表看上去很整齐？（用其他控件也可以）

[hzybc]

Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
移动一次记录集，确保Data1.Recordset.RecordCount的正确性