如何将dbgrid 中的数据打印出来? ( 在先等待 ...)

hongsongboy 2002-06-18 05:35:04

有什么比较好的控件直接打印表格内所显示的内容?

...全文

30 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

chenyu5188 2002-08-24

打赏
举报

IsMe 2002-08-19

打赏
举报

http://www.csdn.net/cnshare/soft/13/13564.shtm

chenyu5188 2002-08-18

打赏
举报

学习，UP

woookaooo 2002-08-18

打赏
举报

学习

hongsongboy 2002-07-31

打赏
举报

如果是要输出的报表很多,其不是很麻烦吗?

vqunjian 2002-07-31

打赏
举报

用datareport自己做报表好了，也很容易的。

hongsongboy 2002-07-03

打赏
举报

有没有免费的控件啊？最好有源代码的？

bigbigfans 2002-07-02

打赏
举报

好象dbgrid商业版可以打印

shaosx 2002-07-02

打赏
举报

用 VsflexGrid / VsView 就没这个问题了。

panghaidong 2002-07-02

打赏
举报

Dim i As Integer
Dim j As Integer
'Dim xlApp As Excel.Application
'Dim xlBook As Excel.Workbook
'Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.add
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(2, 11) = "总人数"

xlSheet.Cells(2, 12) = Text4.Text + "人"
For i = 0 To Val(Text4.Text) - 1
DataGrid2.Row = i
For j = 0 To 11
DataGrid2.Col = j
xlSheet.Cells(i + 3, j + 1) = DataGrid2.Text
Next j
Next i
用此法将表中的内容转到excel中打印