汇出报表到PDF(含源代码 在各版主基础上改进)

tmtony

看到 rtmx01  网友 有关汇出到PDF的问题, 有不少版主在解决这个问题,
在 chajiangliang andymark cuxun 等版主的基础上做了这个实例, 将控件安装及相关文件都包含进来了 或许对需要的网友有些帮助

    ╔------------------------------------------------------------╗
    ┆                  汇出报表到PDF(含源代码)                ┆
    ╚------------------------------------------------------------╝　
【开发作者-Author】
        来源网站: Access中国/Office中国 整理人:tmtony
        程序编写: Stephen Lebans 协作开发人员:chajiangliang andymark cuxun tmtony
【版本 -Version】
        适用Access版本: ACCESS97/2000/XP/2003/2007
        最新版本请参考网上链接: 在http://bbs.office-cn.net 搜索最新版本
【相关日期 -Date】
        更新日期: 2007/12/12 10:31:03
        发放日期: 2007/12/12
【相关密码 -Password】
        www.office-cn.net
【难度/人气/推荐度/关键词-Level/Recommend/Keyword】
        难度等级:6
        推荐指数:5
        关键词语:报表,快照,PDF
        统计信息:1000行左右代码
【内  容 -Tips/Function】
        原作者:Stephen Lebans 整理:chajiangliang andymark cuxun tmtony   
        
        ☉选择左边的报表,然后按 "转PDF" 按钮就可看到效果                    
        ☉如果有安装PDF阅读器,就可直接看到文件,否则手工查看程序目录下PDF文件
        ☉完全支持中文报表头及中文报表内容┆
        ☉如果运行不正常,请双击运行程序所在目录下的regOcx.bat 注册控件      
        ☉如果提示找不到dll文件,请把程序所在目录下的dll文件再复制到系统目录
        ☉XP效果 按钮                                                      
        ☉超链接 标签                                                      
        ☉多年编写的完整的通用XP效果窗体与XP效果控件源代码 完全公布        
        ☉繁体版本使用Office中国的Access繁简转换程序完成(一键完成繁简转换)
【使用说明-Installation】
        1.确保你的电脑已安装好Access2000或以上版本
        2.如果压缩包中说明要求安装相关控件,请解压相关控件并注册之,如果没有则跳过
        3.双击压缩包中的mdb或mde文件直接运行
        4.如果运行不正常,请双击运行程序所在目录下的regOcx.bat 注册控件      
        5.如果提示找不到dll文件,请把程序所在目录下的dll文件再复制到系统目录
【包含文件-Include Files】
        EXPORTPDF.MDB
        EXPORTPDF_FT.MDB
        DYNAPDF.DLL
        REGOCX.BAT
        SNAPVIEW.OCX
        STRSTORAGE.DLL
        简体说明(ReadMe).txt
        羉砰弧?(ReadMe).txt
        
【修改历史/待做清单-History/Task List】
        2007/12/11
           chajiangliang andymark cuxun tmtony
        2007/12/12
           转换繁体版本
        2007/12/13
           编写安装说明及测试程序
【其它说明-Other Remark】
【作者简介-Author Introdution】
        Stephen Lebans 是国外知名Access专家,有非常多的经典代码,是Access界的明星人物
        chajiangliang Office中国版主
        andymark      Office中国总版主
        cuxun         Office中国版主
        tmtony        Office中国站长

游客，如果您要查看本帖隐藏内容请回复

tmtony

是在哪个函数中,  gt_MouseMove?

tmtony

那就奇怪了,跟踪 rfrmForm.Parent.Name里是什么内容
你上次电脑出现 dao360.dll 丢失(贸易通的问题) 有否解决?

tmtony

我又调试了代码,没能找到问题所有
不知其他下载的网友有否出错?

tmtony

谢谢你的提醒, 找到原因了
将 Public Function gt_MouseMove(rstrCtrName As String, rstrFrmName As String, rstrPFrmName As String)
'On Error Resume Next

将 On Error Resume Next  前面的注释 去掉 就可以了

这里原意 是希望 判断窗体是处在另一个主窗体中时, 需要不同的鼠标移动处理方式

tmtony

修改了一个bug, 谢谢andymark的提醒.
重新上传了最新版本,请下载 最新日期的那个附件