vb中如何实现报表的打印

Question

http://student.csdn.net/attachment/201006/7/656559_1275901259VQgm.jpg这个报表是怎么实现的，请各位大侠帮忙，毕业设计急用噢！

Answer 1

VB,菜单"工程",添加DATA REPORT,把要显示的字段放进去,列头标签自动生成,看着不合适可以修改(比如把英文形式的字段名改成汉字),也可以删除列头标签.

Answer 2

打开data report 也不会弄啊！都看不明白。能不能告诉我一下具体步骤啊！

Answer 3

在 Data Report 中的细节中添加相应的 textBox，然后将这些字段绑定到查询出来的数据字段中即可，其中部分代码：DRoday是DataReport文件的名称，后面的“thehour"、"f"、"tot"等是查出来的数据库中的字段名。
DRoday.Sections("section4").Controls("Label1").Caption = "" & Combo1.Text & "表" & (Combo2.Text) & "年" & (Combo3.Text) & "月" & (Combo4.Text) & "日报表"
        DRoday.Sections("section4").Controls("ltime").Caption = " " & Date & "  " & Time & ""
        SQL = "SELECT * FROM flowday" & Val(Combo2.Text) & "_" & Val(Combo3.Text) & " "
        SQL = SQL & "WHERE station  =   " & machi(Combo1.ListIndex + 1) & "  AND "
        'SQL = SQL & "theyear  =  " & (Combo2.Text) & "  AND "
        'SQL = SQL & "themonth  =  " & (Combo3.Text) & " AND "
        SQL = SQL & "theday  = " & (Combo4.Text) & " "
        
        RS.Open SQL, ConnString, adOpenStatic, , adCmdText
        Set DRoday.DataSource = RS
        
    DRoday.Sections("detail").Controls("text1").DataField = "thehour"
    DRoday.Sections("detail").Controls("text2").DataField = "f"
    DRoday.Sections("detail").Controls("text3").DataField = "tot"
    DRoday.Show vbModal
    RS.Close

Answer 4

功能简要说明：
    1.本控件可打印的表格MsHFlexGrid  MsFlexGrid ListView DataGrid。
    2.可实现缩放功能。
    3.可对页面、表格和字体、标题，边距等进行设置。
    4.支持字符截断和自动换行、自适应纸张宽度、表格居中设置。
    5.支持导出功能。(导出格式：BMP,JPG,GIF,PNG,XLS)
    6.支持表格 MsHFlexGrid 的合并功能。
    7.可在一个软件内为每个表设置独立的打印页面。
    8.支持选页打印。(全部，当前页，第几页至第几页)。.请加群讨论（群号：48620401）加群请注明：打印控件

Answer 5

VB做报表建议用 www.rubylong.cn,超级好用，免费版本就基本上可以商用了。

Answer 6

有点像FastReport，我以前做毕业设计的时候用过，不过是Delphi的

Answer 7

这个是vb自带的data report！～使用方法跟操作数据库是一样的～把需要的数据提出了就可以哈！

Answer 8

printer.currentx
printer.currenty
printer.print

Answer 9

VB自带的报表
或都导入excel中也行