【2017年整理】使用ExportAsFixedFormat方法将数据导出到PDF或XPS.docxVIP

e800，国内最具活力的IT门户网站。 HYPERLINK 【e800编译】此示例演示如何使用ExportAsFixedFormat方法在Microsoft Excel 2010工作表中将数据以PDF或XPS格式导出。 此代码段是Office 2010的101项VBA代码示例中的一部分。与其它示例一样，这些将可以直接写入您的代码中。 每块示例代码包含约5至50行的代码，分别演示了一个独特的功能或功能集，在VBA或VB以及C＃中（在Visual Studio 2010中创建）。每个示例之中都会包含代码以及相应注释，这样您就可以直接运行获取预期的结果，或者是根据代码注释提示来调整环境，运行示例代码。 Microsoft Office 2010提供了你所需要的工具来创建功能强大的应用程序。Microsoft Visual Basic Application（VBA）代码示例可以帮助你创建自己的应用程序，以执行特定功能或者以此为出发点实现更为复杂的功能。 实例代码 在Excel 2010中新建一工作簿，并将代码复制到Sheet1类模块。将光标置于TestExportAsFixedFormat内，按F8单步执行代码。 Sub TestExportAsFixedFormat() For information on the final parameter, see this page: /en-us/library/aa338206.aspx Dim rng As Range Set rng = Range(A1:E10) SetupRangeData rng Dim fileName As String Change this file name to meet your own needs: fileName = C:\Temp\Export.pdf Many of these properties are optional, and are included here only to demonstrate how you might use them. The Type parameter can be one of xlTypePDF and xlTypeXLS; the Quality parameter can be one of xlQualityStandard and xlQualityMinimum. Setting the OpenAfterPublish property to True will fail if you dont have a default viewer installed and configured. rng.ExportAsFixedFormat Type:=xlTypePDF, _ fileName:=fileName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=True, _ From:=1, To:=1, OpenAfterPublish:=True End Sub Sub SetupRangeData(rng As Range) rng.Formula = =RANDBETWEEN(1, 100) End Sub 2009-2010学年杨中文省级专业带头人培养总结 轻化工程学院 杨中文 在院领导及相关职能部门的指导支持下，我基本完成了省级专业带头人的培养计划，做的主要工作有： 一、师德师风建设 （1）参加学院党校支部书记、总支书记“党建理论与实践培训班”，获结业证书。 （2）参加湖南省教育厅工委党校举办的“基层党校骨干教师培训班”。 （3）2009年获湖南省教育厅直属机关委员会优秀党务工作者称号。 二、学历与职称建设 参加了省人力资源与社会保障厅的考评员培训，获塑料制品制作工高级考评员资格证书。 三、专业水准建设 （1）参加暑期社会实践，提高了自已的职业能力，有总结及考核表。 （2）参加全国PVC树脂与塑料年会，了解了PVC树脂生产技术的现状与发展趋势。 （3）参加全国塑料管材检测技术，获结业证书。 四、专业建设和教研教改水平建设 （1）完成院级精品课《塑料测试技术》的大部分建设工作，确定教学标准及课程教学改革思路，完成项目化教材及课件的制作与部分教学资源的准备。 （2）2010年下期担任材料加工3101班的《高分子材料化学基础》教学，初步形成了该课程的教学改革思路，《高分子材料化学基础》的改革与实践教学改革已经立项为2010年度院级教改课题。 （3）为高分子材料加工技术专业师生开了《高分子科学的发展历程与趋势》讲座