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

taotao694

   经典图书

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

流转星河

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

ug-ig

   经典图书

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

不冒险小子

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

yourwuyi

   经典案例图书

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

Angrywang

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

wyjun12

   经典案例图书

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim FromPage As Integer
Dim strCurrentSheet As String
Dim strSheetNames() As String
Dim SheetCount As Long

Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
strCurrentSheet = swModel.GetCurrentSheet.GetName
strSheetNames = swModel.GetSheetNames
SheetCount = swModel.GetSheetCount
For FromPage = 1 To SheetCount
    If strCurrentSheet = strSheetNames(FromPage - 1) Then
     swModel.PrintOut2 FromPage, FromPage, 1, False, "", 1, False, ""
     Exit Sub
    End If
Next
End Sub
复制代码
有几人感兴趣

未完待续的梦想

谢谢分享

oo_Yupsilon

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

pretty__boy

   经典图书

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