|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
可以试试:ExportAsFixedFormat 直接生成PDF
- '如果转换整个工作簿 如果要打印其中几个表 则隐藏其他表 就用 WORKBOOK.ExportAsFixedFormat,
- '如果只转换一个表就用ActiveSheet.ExportAsFixedFormat,
- '如果只转换一个表的某个区域就使用Range.ExportAsFixedFormat
- '打印区域转换 Range(ActiveSheet.PageSetup.PrintArea).ExportAsFixedFormat
- '但是如果这个表格没有设置打印区域,以上语句会报错,如果是批量转
- Range(ActiveSheet.PageSetup.PrintArea).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path _
- , Quality:=xlQualityStandard _
- , IncludeDocProperties:=False _
- , IgnorePrintAreas:=True, OpenAfterPublish:=False
- rem xlQualityMinimum 打印质量
复制代码 |
|