求梁大、丹大等高手指点SW中调出选择打印机窗口的宏代码

NC@jiang@nan

各位大侠们，我今天突然想研究下SW批量打印某文件夹下所有的工程图的宏文件。因为打印时可能打印成PDF也可能直接打印到打印机，所以想在打印开始前可以调出选择打印机窗口的对话框，但不知道在SW API中用什么语句调用。在网上找到有EXCEL中调用打印机选择对话框的代码如下：
5 q& g0 i+ e- a; A$ H- |4 l/ i4 Z
Private Sub Workbook_BeforePrint(Cancel As Boolean)
* N5 @4 P! g  S8 D  Y% tDim dyj As Boolean'遍历打印机
dyj = Application.Dialogs(xlDialogPrinterSetup).Show
If dyj = False Then
6 e# I% V$ O' l! f- d* ]        MsgBox "打印取消！", 64, "系统信息"
        Exit Sub
End If
ene Sub

8 y0 U" Y/ a/ D4 S3 a
经过实验，这代码在EXCEL中可以正常呼出打印机选择窗口，但在SW宏中总提示库不对之类的出错信息。（个人工作电脑不能上网，无法截图上传）。
+ m" B( y% D9 r3 z! [水平有限，不知道在SW中到底怎么呼出这相同的选择界面，求各位大侠指点，特别恳请对SW应用水平达到让我敬仰的梁大、丹大等几位大侠中的大侠的指导。
谢谢。

ryouss

NC大大你好,是要這需求嗎?
! W) D7 w+ a) N- q/ {是的話,EXCEL操作是會的,但沒試用過SW,要發些時間試試了!
6 Q, G% m$ I  B" x/ w# {  f
. k5 W& J& ]! M7 ^8 R: K; k0 i
2 Y2 M9 S. W/ T) U% p/ x0 X3 D* G
; o+ R+ v$ ?8 X( U$ J# M. t0 \7 n9 ~! R# j

gt.adan

謝謝樓主抬舉了，以下幾點~
1. 對於「宏」，我至今仍是似懂非懂，實在稱不上什麼高手。
    工作上有使用的九成以上是悶老大過去的教程或分享，然後加減修改成符合自己需要的。
2. 建議不要「指定回答」，這或許會讓其他有能力者怯步。
3. 針對樓主所提「批量列印」，個人提供這幾年的使用心得~

* H" V3 }) V1 c- c/ t2 D批量打印或儲存到其他格式，例如PDF、JPG、DWG、IGS…等等，各大論壇早已有代碼(當然我也有分享過~)
搜一下，稍加修改符合自己工作上的需要就可以，相當方便，也用了很久~
* m/ u$ M$ i- E4 H, t9 m: r6 L4 O8 t批量打印到圖紙，SW自帶的「工作排程器」就可以做到，但缺點是很慢，所以不建議。
就以自身為例，分享一下使用的方式~
我工作上習慣把所有零件及裝配，依「檔名(版次)」的命名原則輸出到PDF，這樣一來就為了下面的批量打印做好了準備。
9 _5 _0 G# s, Y1 m, B. H. I$ ^5 @# z(以上依個人習慣，沒有也沒關係，用「批量輸出PDF宏」就可以輕鬆完成。)
接著將資料夾內要打印的PDF全部合併成一個檔案，然後針對這個檔案去選擇印表機後打印即可！
例如前天，一天完成了八十幾張圖，老闆要我下班前把圖放在他桌上以便晚上審閱。
7 c- i; _' }$ K8 m( N! B, s- G八十幾張！要是沒方法就得一張一張印！同事都想我不知到得忙到幾點才印得完…
; D, I& L+ b7 l, p* B. {但我就是用上述方式，不過就點了幾個快捷鍵，五分鐘後厚厚一疊圖紙就熱呼呼的出爐囉~
3 p/ [: e2 |. `
當然，幾年前也有人分享過從SW調出選擇印表機對話框的代碼，由於個人不是很需要所以當時沒有深入研究。
而且該代碼是針對單一工程圖而編寫的，沒有批量的功能。並且每個圖頁都得自己手動命名、指定路徑。
% U+ T# H5 L1 _$ X% ]* a再者，樓主要批量打印還得考慮是否有「多圖頁」的問題。批量打印若遇上此情況，請問是要打印哪一張？是目前的？還是全部？
還有圖紙大小，若遇不同size圖框又該如何？工程圖裡是否都已經設置好了？
& |* n( O: g/ p) a, k) d3 p以上都是我幾年前思考「批量打印」時確確實實碰到的問題！也正因為如此後來才使用了上述的方式來達成。

. [- q7 v* r; B6 \& N基於以上，樓主要的「批量打印宏」是否還真那麼需要？我想可以重新思考一下~
附上一張運行該代碼的圖片~


% q- r& G6 u' ?0 B% ?2 k$ U$ e9 K
6 i9 D/ r$ v; t3 Q/ q3 L2 M

NC@jiang@nan

谢谢梁大、丹大的指点。
梁大的在EXCEL里呼出打印机选项对话框的代码我在网上搜索到了，谢谢梁大。
! w3 W, M6 d- U1 f另外丹大的代码我想再试试，我的想法是，批量打开工程图，分别读取图纸档案中的所有的图页的图框大小，读出数值后就再用代码设置打印成相应的图幅，打印完毕一张图页后再读取这个工程图档中的下一页图页的图框大小，想如此周而复始下去是否能把指定目录下的图纸全部打印完毕。现在正在测试中。谢谢丹大。@ryouss @gt.adan
0 l" r1 h+ X, m1 h7 m

NC@jiang@nan

& g2 J* _( G$ S$ j- N

gt.adan 发表于 2017-6-21 23:55
& k6 k) J5 K% W$ R, U# Y  O! l謝謝樓主抬舉了，以下幾點~
1. 對於「宏」，我至今仍是似懂非懂，實在稱不上什麼高手。
& d" \  Z6 F1 c4 C& N) W    工作上有使用 ...

9 m6 ]( u6 [" z/ \7 l能否请丹大把这个关于调出打印机选择对话框的部分的代码共享给我学习学习？谢谢丹大。把单张图转换成PDF文件，这个在SW自身的批量处理的附属程序中也有这个功能，单张转换后再合并的话是可以。
其实之前用SW2014版时，用SW自身的批处理程序中的“打印文件”就可以批量打印图纸，只要选择好物理打印机或者PDF打印机后，就能自动根据图框大小打印成相应的图幅。但上周公司统一升级到SW2016后，这个SW自身的批量打印文件就出现问题了，选择打印机后，要么把所有的图纸全打印成了A4，要么就全打印成了A3，不会再根据图框实际大小自动确定打印的图幅大小了。而把单张图打印成PDF然后再合并的话，首先合并需要花费时间，其次怕合并后图纸顺序乱了打印出来后还需要一张张的校对图纸是否按图号顺序打印。如果能搞定选择打印机这个问题的话，也许能选择PDF虚拟打印机，把所有的文件打印成一个PDF文件，这样能省事不少。
7 y( }1 ?  J' B, Z$ E0 H

gt.adan

! @6 l& m  L2 C* m1 _( j您有心研究學習，那我就分享當初找到的代碼~
祝您早日成功，回饋予壇友們~
& S/ S7 X, x! M+ n- T
Print each sheet of drawing & get list of printers Droplist.swp.zip (31.71 KB, 下载次数: 19)

2017-6-22 01:24 上传

点击文件名下载附件
9 `6 y( h2 L, }; E7 O
再次提醒！
這段代碼除了有選擇印表機對話框，再來就是打印的功能了。
但它只針對單一檔案，而非批量打印！
若要實現如您所要求的，那麼要考量的條件還真不少吶！
) A+ S1 C4 {' e8 `" n  Z. c: ?
" q( @% B! G" j. u+ y3 c

NC@jiang@nan

gt.adan 发表于 2017-6-22 01:25
$ i* e: F7 J% ]+ D您有心研究學習，那我就分享當初找到的代碼~
祝您早日成功，回饋予壇友們~

# p3 F! o+ a4 b. D+ i$ h谢谢丹大。丹大辛苦了，这么晚还没休息。

大鹿

建议批量另存PDF，再利用acrobat批量打印。

wutong490

同意鹿大的说法。
* U& E- O( l/ v2 Z- c5 @# Z我的做法是：
同一个装配体和其零件的工程图尽量放用同一个工程图文件中。
另存为PDF，图纸的大小不用再另外设置。（如果是打印为PDF文件，就有点麻烦，每张图纸的大小，图纸方向都需要设置）。
这样一个PDF文件会对应一个完整的工程图集。如果打印机中A3，A4可以自动切换，打印时选择按照PDF页面选择纸源。

. H# m2 x4 a! V" C如果图纸很分散，那就把PDF文件合并后再打印。

NC@jiang@nan

wutong490 发表于 2017-6-22 10:03
3 {8 H4 Q2 i- s- J2 N; p5 h同意鹿大的说法。
8 n$ l  v4 c3 m  c8 u& s我的做法是：
5 Z* n) {" T! O% a. X& v同一个装配体和其零件的工程图尽量放用同一个工程图文件中。

4 A" T+ l5 w8 b' u另存为出来的PDF文件，还会识别字体，如果别人没装你的字体时文字显示就别扭了，打印成PDF，就不会有内嵌字体的问题。

wutong490

NC@jiang@nan 发表于 2017-6-22 20:03
另存为出来的PDF文件，还会识别字体，如果别人没装你的字体时文字显示就别扭了，打印成PDF，就不会有内嵌 ...

- }! O6 Y2 Q) `9 R( p8 {选项中有  字体嵌入
就是文件会增大一些

NC@jiang@nan

7 S5 {3 s) s- Q" @$ B/ [, B

gt.adan 发表于 2017-6-22 01:25
" _5 H" J5 w8 x! f3 \您有心研究學習，那我就分享當初找到的代碼~
祝您早日成功，回饋予壇友們~

丹大，我实在是不好意思了。看了两天您提供的这个宏文件，发现里面有几段代码在循环调用，按逻辑关系去推理，推理得头晕了，看不懂了。想改成在EXCEL里调用SW程序来打印文件，现在在试着做这个宏代码。刚开始做就碰到个问题，不知道在EXCEL的宏中是否可以检测SW软件是否已经启动，如果SW没启动的话就中止宏程序的运行。这样做的原因是：如果没有预先启动SW，这样在宏程序运行中用 Set swApp = CreateObject("SldWorks.Application") 代码来启动SW，在批量处理几个文件时，SW每处理完一个文件后就退出了，等处理下一个文件时又被Set swApp = CreateObject("SldWorks.Application")这个代码调出相当于又需要重新启动一次SW，这样循环启动比调用运行宏之前已经手动启动好的SW的速度要慢很多卡很多，特别电脑配置低点的时候处理文件的速度差距是天壤之别。我百度了一下”EXCEL VBA 怎么检测 调用的程序是否处于打开状态“主题，没找到有效的解决办法，能否请丹大指点迷津？谢谢
补充：
丹大，又仔细的百度搜索了一会，修改代码后已经解决了问题了。
2 Y- B7 o) }% r. u* z; z( G# m满足我要求的功能的代码如下：
- U* g. B, P: c4 [8 J
9 p  h- h8 c# [. o! w7 q7 V    On Error Resume Next
    Set swApp = GetObject(, "SldWorks.Application")
    While swApp Is Nothing    '如果调用SW程序失败(SW程序未启动)时,循环
        IResponse = MsgBox("请启动SolidWorks后重试或点击取消放弃打印！！", vbRetryCancel + vbInformation, "SolidWorks程序未启动！")
        If IResponse = vbCancel Then Exit Sub
# v5 y9 [% n$ b% ]. \        Set swApp = GetObject(, "SldWorks.Application")
    Wend
    On Error GoTo 0
: J) Y2 B2 E! C- r
8 U. g$ f+ M$ @8 F( ^" ~

erikgqp8645

NC大，请问这个问题解决了吗？

NC@jiang@nan

erikgqp8645 发表于 2018-2-26 11:53
5 Z; G0 h9 V3 v" M2 H0 J+ lNC大，请问这个问题解决了吗？

3 s1 t/ _) i( V, m# I9 X没有解决。

erikgqp8645

9 H0 O. Z& R0 a$ a+ Z

NC@jiang@nan 发表于 2018-2-26 19:18
没有解决。

6 y% N' S: l0 ~5 V不知道 SolidWorks Task Scheduler 这个自带插件是否可以满足你批量打印某文件夹工程图的需求呢？

NC@jiang@nan

erikgqp8645 发表于 2018-2-27 09:40
不知道 SolidWorks Task Scheduler 这个自带插件是否可以满足你批量打印某文件夹工程图的需求呢？

想调出选择打印机窗口， 是想做宏文件，在打印前先把图纸预处理一次，比如设置打印的纸张大小类的。自带批量打印好像就只能单纯的打印，要另外设置一次图纸页面。

erikgqp8645

NC@jiang@nan 发表于 2018-2-28 19:12
0 g2 i8 P7 K9 f. p8 r+ c* H2 s0 T想调出选择打印机窗口， 是想做宏文件，在打印前先把图纸预处理一次，比如设置打印的纸张大小类的。自带 ...

  \1 x+ H3 o3 H, l2 ~, }" n& n3 a看来我曲解NC大的意思了。
NC大可以试试LiteTools这个插件，不知道能否满足你的需求呢。
/ J& T# S$ ]+ d/ b/ e+ H% j9 C另外好像在玩家论坛有一款叫做ISWL 互动工具 的东西，你也可以去看看。

Y、s

我想这个宏应该是楼主想要的，这个宏是我根据别人的宏修改过的，删掉了一些我觉得没用的功能。
大致功能：选定PDF虚拟打印机>根据工程图选择合适纸张>打印成PDF文档。
原贴链接http://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1480450&page=1&extra=#pid9104601
# C: t# d  L% Y1 h