modexport2excel.bas

超经典的打印预览动态库源码 版权： 本资源版权归作者所有 说明： 本资源由源码天空搜集,仅提供学习参考

Attribute VB_Name = "ModExport2Excel"
Option Explicit
'**************************************************************
'*模块名称：ModExport2Excel
'*模块功能：导出报表到Excel
'*说明：
'*
'*备注：
'*
'*作者：progame
'*日期：2002-05-10 23:19:40
'***************************************************************

Private Const ModalName = "ModExport2Excel"


'**************************************************************
'*名称：funExport2Excel
'*功能：输出到Excel
'*传入参数：
'*      rpt         --报表对象
'*      filepath    --文件夹位置
'*      pFrom       --页起始
'*      pTo         --页终止
'*      bMultySheet --是否生成多Sheet
'*返回参数：
'*      是否输出成功
'*作者：progame
'*日期：2002-05-10 23:22:42
'***************************************************************
Public Function funExport2Excel(rpt As Report, _
                               filepath As String, _
                               pFrom As Integer, pTo As Integer, _
                               Optional bMultySheet As Boolean = False) _
    As Boolean
    
    '*输出表头页头
    
    '*输出页左页右
    
    '*输出正文列头
    
    '*输出表尾页尾
    
End Function