怎样实现vb6中datagrid控件的打印

Question

本人毕业设计做一排课系统，我想实现对datagrid控件显示内容的打印，于是找到一个打印dbgrid控件的代码做了一下修改，但是实际操作时打印机只是提示后台操作而不进行，请问如何打印datagrid？附：实现打印datagrid的代码Dim i As Long, j As Long, k As Long
Dim PrintString As String
For i = 0 To Adodc1.Recordset.RecordCount - 1
If k = DataGrid1.VisibleRows Then
DataGrid1.Scroll 0, DataGrid1.VisibleRows
k = 0
End If
For j = 0 To DataGrid1.Columns.Count - 1
PrintString = PrintString & _
DataGrid1.Columns(j).CellText(DataGrid1.RowBook(k)) & "/"
Next j
Printer.Print PrintString
PrintString = ""
k = k + 1
DoEvents
Next i

Answer 1

本控件的目的是解决烦琐的报表打印问题，具有如下功能：
    1-内置了对DataGrid,ListView,MsFlexGrid,MsHFlexGrid的直接打印，例如：tubPrint1.DirectPrint DataGrid1
    2-支持页眉页脚的打印，例如：tubPrinter1.Footerout "LLL","CCC","RRR"
    3-支持标题的打印，并可以设定字体和对齐方式，例如：tubPrinter1.TitleOut "Title1"
    4-支持单元格及里面字符串的直接打印，为您制作复杂的报表提供便利！例如：tubPrinter1.CellOut
    5-支持页面设置和打印机设置，页面设置直接作用于打印机，无须二次调整，且编码非常简单。例如：tubPrinter1.Pagesetup
    6-支持打印机的所有函数，具体功能有待您去发掘。欢迎您对本控件提出宝贵意见，我将认真改正！本人不想将时间用于控件的加密，所以没在控件加入任何限制，请大家自觉遵守下面的用户协议：如果您未将本控件用与商业目的，可以免费使用本控件！否则请象作者付费，个人用户￥49，单位用户￥199。
联系方式：[email protected]  13670102745
开户行：招商银行 帐号：0755-36387681

Answer 2

我一般是将DataGrid读入一个Recordset，然后将其连结datareport或Crystal report!

Answer 3

俺还不知道如何和datareport连接那，水晶报表那个我也不会，我是想打印课程表，表格形式的，各位大虾多多指教！

Answer 4

看一下：
http://www.dapha.net/down/show.asp?page=1&classid=1&Nclassid=140

Answer 5

http://sgreport.yeah.net
http://www.uepoch.com
众合打表，完美支持数据类表格、不规则表格、嵌套表格、票据套打等
在c/s下与在b/s下效果完全一致
首创web打印在服务端运行组件，客户端得到的是纯html页面，而打印显示效果与c/s下完全一致，包括斜线之类的特殊效果打印的数据源支持：ado记录集、dao记录集、xml串、xmldocumengt、数据岛、mshflexgrid控件、msflexgrid控件、datagrid控件