求助：当前工程图打印A4版PDF

834556677

   经典图书

请问：将当前工程图另存为A4纸大小的PDF，文件名如何自动获取？

1. Sub main()
   
2. 
   
3. Set swApp = Application.SldWorks
   
4. 
   
5. Set Part = swApp.ActiveDoc
   
6. 
   
7. Dim myPageSetup As Object
   
8. Set myPageSetup = Part.PageSetup
   
9. myPageSetup.ScaleToFit = True
   
10. myPageSetup.PrinterPaperSize = 9
    
11. Part.PrintDirect
    
12. End Sub
    

复制代码

834556677

审核这么久吗，我重新发了一个，怎么删掉这个贴呢 - -

manu518

   经典图书

SolidWorks机械工程师网，顶一下。