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

公司的SOLIDWORKS工程图里有两页图，分别是零件图和展开图，每次打印的话在打印窗口里打印范围默认所有图纸，如果不选当前图纸的话每次打印就是打印两页，但实际上只需要打印零件图就好，很多时候都会忘记点选当前图纸，所以想请问有没有什么方法是可以把打印范围默认为当前图纸？

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

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

pyczt 发表于 2016-4-13 12:52
下载次数只有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
    

复制代码

有几人感兴趣

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

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

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

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

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

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

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