吐血送分100：分不多了，但是还是要送，打印问题，搞定就送分

Question

1、 DataGrid的打印问题，怎么打印DataGrid的内容？
2、 怎么打印对象？如：Textbox、Label等。
急急急急急急急急急急急急急急急急急急急急急急急急急急

Answer 1

要用dataGrid里边的内容去生成一个报表的，哦

Answer 2

把報表的數據源設置成與datagrid的數據源一樣不是可以了嗎﹖

Answer 3

http://search.csdn.net/Expert/topic/2382/2382224.xml?temp=.7659418最新版本下载:
http://microinfo.top263.net/Zip/DRPSP5.zip

Answer 4

//51365133(渊海) ( ) 信誉：100  2004-11-15 23:00:56  得分: 0  
 
 
   
///要用dataGrid里边的内容去生成一个报表的，哦  
 
生成EXCEL或水晶报表都可以的

Answer 5

http://www.playyuer.com 提供例子下载: (New)
http://microinfo.top263.net/Zip/DatGrdRpt.ziphttp://www.codeproject.com/useritems/datagridex.asp
http://www.4046.com/nnsrc/netdown.asp?id=357

Answer 6

输出到EXCEL供打印
Private Sub Command1_Click()
  Dim i As Integer, j As Integer
  Set xlsapp = CreateObject("Excel.application")
  xlsapp.Visible = True '调试完成后改为false
  Set xlsbook = xlsapp.workbooks.Add
  Set xlsSheet = xlsbook.worksheets(1)
  
  Adodc1.Recordset.MoveFirst
  Adodc1.Recordset.MoveLast
  zs1 = Adodc1.Recordset.RecordCount
  Adodc1.Recordset.MoveFirst
  i = 0
  Do While Not Adodc1.Recordset.EOF
    For j = 0 To Adodc1.Recordset.Fields.Count - 1
      If Not IsNull(DataGrid1.Text) Then
        xlsSheet.cells(i + 1, j + 1) = Adodc1.Recordset(j)
      End If
    Next
    Adodc1.Recordset.MoveNext
    i = i + 1
  Loop
  xlsbook.Saveas App.Path & "\report.xls"
  xlsbook.Close
  xlsapp.quit
End Sub

Answer 7

参考一下
http://www.csdn.net/expert/topic/725/725834.xml?temp=.3093073

Answer 8

不必下载第三方控件。
直接用datareort就可以了。
做一个数据环境，在其下建一个command,然后从command中拖字段到datareport中，然后将datareport与ado相连，改变command的commandtext的sql与ado的sql语句一样属性然后对datareport进行刷新即可。
具体刷新:
dt.数据环境.rscommand1.close
dt.数据环境.rscommands(1).commandtext = SQL
dt.数据环境.rscommand1.open

Answer 9

推荐一款套打开发模块，是一个dll，调用简单方便可以访问以下网址查看说明
http://www.yxjr.com/cp/yxprint.html

Answer 10

打印报表很多方法，我是导出Excel；打印对象你用PrintForm都行，将from画得好看就行了。^_^

Answer 11

想直接打印，哪有那么方便的事，不如不要编程了。想打印里面的内容，可以把数据汇总后用datereport实现，也可以用水晶报表，还可以用vba导出变成excel格式。看你想用哪种方法了。
DataGrid只是用来浏览数据的控件，不是用来打印的哦

Answer 12

你可以把Dategrid里的数据添加到一个临时表，然后把临时表连接到报表上，通过程序每次用完后，删除临时表