把mshflexgrid中显示的数据--预览，打印

把mshflexgrid中显示的数据--预览，打印。
本人考虑建立一个临时表，然后把数据一条一条写到临时表中，再通过datereport预览打印，
但没有试过，不知道效率如何？各位觉得这个办法如何？还有什么好的办法？

解决方案 »

  1.   

    还不如从记录集中读取
    用printer对象打印其实将记录集生成html文件，放在webbrowser中打印预岚比较不错你可以试试
      

  2.   

    主要考虑到mshflexgrid中的数据是经过复杂运算得到的，所以可能还是建立临时表的方式简单，快---与从记录集读取相比
      

  3.   

    本控件完全所见即所得，完美预览并打印MSFlexGrid、MSHFlexGrid,可以两个控件的组合，即用其中一个做列头，另一个做表正文，可以自定义组合、合并打印列头。可动态设置所有打印机所支持的纸张；报表标题、副标题、页眉、页脚、表头表尾注释；自定义页面边距、页眉页脚的边距；可选择是否横向打印纸张并任意选取打印范围(从x页到y页，从x分页到y分页).设置的太多了，我也说不清楚了，需要者请跟帖或发Email:[email protected]。完全解决了使用printer对象打印的复杂和使用水晶报表等相关报表设计器的繁琐，而且还解决了使用Excel导出的报表只有第一页有列名的问题，并且完全免费！输出后的格式与报表的格式一致，自动调整Excel的格式（如设置字体、表格线、组合等）。完全面对MSFlexGrid、MSHFlexGrid控件，同比例自动缩放列宽以适应您所选择的纸张大小，分页，或折行打印，水平距中、垂直距中、页眉页脚距中等，是否彩色打印，打印页脚页眉及线等，设置表格线宽度及颜色等。自动保存设置，级引入引出打印设置，还有图片打印功能、输出图片功能等等、太多太多了
      

  4.   

    我要那个控件，谢谢！
    我的email是[email protected]
      

  5.   

    一个网友写的关于打印datagrid 与msflexgrid的控件，还不错，如果要的话可以给我来信，标明打印msflexgrid
    EM:[email protected]
      

  6.   

    我需要啊，[email protected]谢谢大哥了！
      

  7.   

    给我来一份，非常感谢！
    [email protected]
      

  8.   

    我也要一个，谢谢你
    [email protected]
    请你喝酒　撒
      

  9.   

    是有这么一个控件的,以前见过.真的很方便,就像傻瓜照相机(没有什么侮辱之意的).像adodc,绑定数据源就行了做的很体贴,感谢制造者!up
      

  10.   

    我也要一个.谢谢了.
    [email protected]
      

  11.   

    to cdwq88(不能没有你) :给我一份吧，非常谢谢你！！我的E-mail:[email protected]
      

  12.   

    to planetike(阿胜) :也给我一份吧，谢谢你了！！我的E-mail:[email protected]
      

  13.   

    to 阿胜：也给我一份，谢谢了！  我的E-mail:[email protected]
      

  14.   

    好啊，好给我一份：[email protected]  谢了！
      

  15.   

    能给我一份吗?
    谢谢
    [email protected]
      

  16.   

    能给我一份吗?
    谢谢
    [email protected]
      

  17.   

    我也很想看一下：
    [email protected]
      

  18.   

    我也很想看一下：
    [email protected]
      

  19.   

    我也很想看一下：
    [email protected]
    谢啦
      

  20.   

    窗体中有Command和MSHFlexGrid两控件:
    Public cn As New ADODB.ConnectionPrivate Sub Command1_Click()
    Set DataReport1.DataSource = MSHFlexGrid1.DataSource
    DataReport1.Show
    End SubPrivate Sub Form_Load()
    Dim rs As New ADODB.Recordset
    cn.Open "provider=sqloledb.1;password=密码;user id=sa;initial catalog=数据库名;data source=服务器名"
    rs.Open "select * from T_Sell", cn, 1, 1
    Set MSHFlexGrid1.DataSource = rs
    End Sub
      

  21.   

    我也要这个控件！！！mail:[email protected]
    谢谢大大了！！！
      

  22.   

    我急要  [email protected]
    谢谢