有关打印的问题?在线等!!!

Question

    本人做一个信息查询,把查询的结果在DataGrid里显示,然后我想把在DataGrid里的内容打印出来,就是把查询结果打印出来...我是用到数据环境里的DataReport1这个,不知可以实现不???或是哪位高手会用excel的最好.....谢各位了!!!!各位最好是能贴出代码!!!

Answer 1

http://blog.csdn.net/xayzmb/archive/2005/01/05/241030.aspx
这是我用EXCEL做打印的代码

Answer 2

xayzmb(行者)    请问又如何读取DataGrid里的内容呢?????   

Answer 3

把数据到处到excel中,并在excel中打印Private Sub Command1_Click()
  Dim Xlapp As Object
    Dim i As Long
    Dim j  As Long
    Dim Header As String
    Dim xlsheet As Excel.Worksheet
    Set Xlapp = CreateObject("excel.application")
    Xlapp.Workbooks.Add
    Xlapp.Visible = True
    Set xlsheet = Xlapp.Worksheets.Add
    With xlsheet
        '      .Range("C1") = Header
        '      .Range("C1").Font.Size = 20
        '      .Range("A2") = "´Ó" & DTPicker1.Value & "µ½" & DTPicker2.Value & "Ϊֹ:"
        For i = 1 To msgList.Rows - 1
            For j = 0 To msgList.Cols - 1
                .Cells(i + 1, j + 1) = msgList.TextMatrix(i, j)
            Next
        Next
    End With
    Set xlsheet = Nothing
    Set Xlapp = Nothing
End Sub

Answer 4

请问又如何读取DataGrid里的内容呢?????
直接读取数据源中的数据，如adodc或者recordset

Answer 5

  therockdelt(Dm和弦)   你有读取DataGrid里内容????  为什么你的代码不注释下???

Answer 6

datagrid1.row = 行号
datagrid1.col = 列号
msgbox datagrid1.text '这样可以读出来datagrid1控件中某一单元格中的值
用循环可以读出datagrid控件中的内容但是如果datagrid中的数据是从数据库中取出的话
建议不这样做
可以直接读rescordset中的值写入excel中.

Answer 7

dim strcn as string         '用来保存数据库连接字符
dim strsql as string        '用来保存数据库查询的SQL语句
dim cn as adodb.connection  '数据库连接
dim rs as adodb.recordset   '数据集合set cn = new adodb.connection
set rs = new adodb.recordset strcn = "在这里写数据库的连接字符"
strsql = "select 字段1,字段2,...... from 表名;"
'读recordset中的值-----------------------
'这一段中的代码根据你的要求修改,我就不多写了.
 .....  = rs.fields("字段1")
 .....  = rs.fields("字段2")
'可以用rs.movenext 来向下移动记录
'----------------------------------------
cn.open strcn
rs.open strsql,cnrs.close
cn.close