代码里的PDF文件质量是“最小文件”,里面这句:Quality:=xlQualityMinimum修改为:Quality:=xlQualityStandard即为标准文件大小。
使用pdf虚拟打印机,建议用foxit pdf editor,然后通过打印命令,选择虚拟打印机就可以转成pdf了,foxit还可以对pdf文件进行编辑;另外其它软件文件只要有打印命令都可以转成pdf格式。