如何打印成PDF

chatatk

老师，我手里有一个MSA测量系统分析数据  
怎么用VBA把“数据表” “报告” “控制图”  这三页合并打印成一个PDF（三页)  输出到桌面？

cyano

虚拟打印机

chatatk

cyano 发表于 2020-9-22 14:52
虚拟打印机

我知道 能不能用VBA写一个 一键打印到桌面

AVEL

1. Sub 宏1()
   
2.     Sheets(Array("数据表", "报告", "控制图")).Select
   
3.     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
   
4.         "C:\打印.pdf", Quality:=xlQualityStandard, _
   
5.         IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
   
6.         True
   
7. End Sub
   

复制代码

录制个宏就可以解决。
文档放在C盘

jany1312

AVEL 发表于 2020-9-22 15:08
录制个宏就可以解决。
文档放在C盘

好厉害的样子，感觉这样的真是容易多了

chatatk

AVEL 发表于 2020-9-22 15:08
录制个宏就可以解决。
文档放在C盘

老师我打印的文件名字如果想改成链接到单元格的话要怎么改

sq007

excel里打印不是又虚拟打印功能吗

zpy2

chatatk 发表于 2020-9-22 16:51
老师我打印的文件名字如果想改成链接到单元格的话要怎么改

Filename:= _   "C:\打印.pdf",

这个地方可以注意一下。。。。