求助：Solidworks工程图打印的问题

我的单页就是当前图纸选中状态，多页是所有图纸，会不会是模板问题呢？

pyczt 发表于 2016-4-10 00:26
拼一个宏:在多页工程图中直接打印当前图纸

这个宏实现了自动打印当前页，我想请问一下宏能否再实现弹框选取纸张大小选择和横纵向

MJ-Destiny 发表于 2016-4-11 11:46
这个宏实现了自动打印当前页，我想请问一下宏能否再实现弹框选取纸张大小选择和横纵向

应该在文件中设定好,这样就可以快速打印了。由于纸张大小不同，选择不同的打印机倒是有必要的

下载次数只有2次,挺可怜的,顶一下

沒法子，夕陽行業，收入越低，入行的人水平越低落，惡性循環，最近甚至有文盲也可以入行。

宏有密码啊。。。。。。。。。。。。

黑暗贤者 发表于 2016-10-10 11:34
宏有密码啊。。。。。。。。。。。。

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   
3. Dim swModel As SldWorks.ModelDoc2
   
4. Dim FromPage As Integer
   
5. Dim strCurrentSheet As String
   
6. Dim strSheetNames() As String
   
7. Dim SheetCount As Long
   
8. 
   
9. Sub main()
   
10. Set swApp = Application.SldWorks
    
11. Set swModel = swApp.ActiveDoc
    
12. strCurrentSheet = swModel.GetCurrentSheet.GetName
    
13. strSheetNames = swModel.GetSheetNames
    
14. SheetCount = swModel.GetSheetCount
    
15. For FromPage = 1 To SheetCount
    
16.     If strCurrentSheet = strSheetNames(FromPage - 1) Then
    
17.      swModel.PrintOut2 FromPage, FromPage, 1, False, "", 1, False, ""
    
18.      Exit Sub
    
19.     End If
    
20. Next
    
21. End Sub
    

复制代码

有几人感兴趣

谢谢分享

pyczt 发表于 2016-4-13 12:52
下载次数只有2次,挺可怜的,顶一下

您的宏十分的使用，我想请问这个宏能否增加两个功能，第一就是可以选择哪台打印机，第二就是页面设置里的能选择高品质图纸。

pyczt 发表于 2016-10-11 08:07
有几人感兴趣

高人，你的宏能否借助Task Scheduler自定义任务来批量打印？