宏：打印当前图纸

大鹿 · 发表于 2016-4-4 11:29:22

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

捡来的，各位慢用。

Sub print_current_sheet()
. `& e( J& h! N$ S
Set swApp = Application.SldWorks$ ^5 s4 ?# X* Z* h6 n8 s) J- A
Set Part = swApp.ActiveDoc
$ ? U; T7 ?: r1 U1 F5 Y. @
Part.PrintPreview
- |4 N& O* q2 { {) B
answer = MsgBox("请把一张 " & Part.PrintSetup(2) / 10 & "mm x " & Part.PrintSetup(3) / 10 & "mm 的纸张放进打印机：" & Part.Printer, vbOKCancel, "打印当前图纸")
5 ~& X& R G/ y6 Z; L7 V0 p
Part.ClosePrintPreview3 I7 M' j0 P8 n/ ^6 ]. d# l* H
If answer = vbOK Then
7 f& G9 m2 R0 K) A% l8 H& g: W
CurrentSheetName = Part.GetCurrentSheet.GetName
" C# B$ l+ v2 g; i: j/ t
AllSheetNames = Part.GetSheetNames
: Q/ C* |. z; R4 |% U
For i = 1 To Part.GetSheetCount" h- Q* o; o$ n/ c* \
If CurrentSheetName = AllSheetNames(i - 1) Then
3 @6 e0 q1 L: t: C: Q M
Dim sheets(0) As Long
2 u( V) p- y/ _
sheets(0) = i
1 E; X y0 A& b; \
Part.Extension.PrintOut3 (sheets), 1, False, Part.Printer, "", False! f& g& ]. z" Z: |8 [
End If
: ~9 Q& T. P9 k! O+ h% T
Next i
% K3 |( r, U) D2 C" d+ p: h! _# i
End If
+ f9 _& e* d# M3 U3 j- I
End Sub
( Z; E: h9 T6 \7 Y

复制代码

ryouss · 发表于 2016-4-4 12:31:20

謝謝分享,收藏參考了!

ryouss · 发表于 2016-4-4 12:45:02

另有空的話煩請看一下,如下1#的作圖可否加上厚度?

http://www.3dportal.cn/discuz/fo ... &extra=page%3D1

gt.adan · 发表于 2016-4-7 01:42:10

剛才回覆了開思朋友的提問，才猛然將該朋友的另則提問與大鹿先生此帖連結到一起~~

由於目前的工作中零件常常會有設變，也就造成了多配置多圖頁的情況，。
我雖不至於不小心直接列印出全部圖頁，但每次有設變要出圖，都要點擊當前圖頁確實有些不便。

謝謝大鹿先生的無私分享！此編程確實解決了煩人許久的問題~

qiminger · 发表于 2016-4-7 11:28:11

非常不错的宏，谢谢分享~~
复制有乱码，整理一下，借花献佛给下面的朋友，。

打印当前图纸.rar (8.05 KB, 下载次数: 115)

大鹿 · 发表于 2016-4-7 11:39:47

qiminger 发表于 2016-4-7 11:28
' e$ c# T5 H S# d2 _$ A$ B非常不错的宏，谢谢分享~~- a$ e. k1 o+ w$ h4 L: W% q2 z1 e" Z3 a
复制有乱码，整理一下，借花献佛给下面的朋友，。

不要使用“复制代码”功能，手動copy&paste是沒有問題的。

jirong.peng · 发表于 2016-4-8 12:28:41

本帖最后由 jirong.peng 于 2016-4-8 13:18 编辑

打印工程图完美，打印零件就错误！有方案否？？？

大鹿 · 发表于 2016-4-8 19:43:08

jirong.peng 发表于 2016-4-8 12:284 p, r6 {% N& ?$ U7 ?5 Z* M) a$ {
打印工程图完美，打印零件就错误！有方案否？？？

打印零件按一下【CTRL+屁】不就可以了吗

jirong.peng · 发表于 2016-4-9 15:26:45

大鹿发表于 2016-4-8 19:43& y# A4 ?5 G- o
打印零件按一下【CTRL+屁】不就可以了吗

呵呵，变成一根经了，没活学活用！！！

秋韵舞-江枫 · 发表于 2016-4-9 21:55:49

谢谢大鹿兄，很好用的宏！！

13993359550 · 发表于 2016-4-9 22:07:08

谢谢前辈，收藏额

EaglesYin · 发表于 2016-4-21 00:12:57

谢谢分享
，留着备用

crz222 · 发表于 2016-10-29 09:25:58

谢谢分享

陈兆勇 · 发表于 2016-12-19 08:17:44

向大鹿兄致敬！

处理2层文件夹_批量打印A3A4工程图.swp 宏

1、自动识别指定文件夹内（可处理2层）所有A3和A4_SolidWorks工程图，
如果是A3图纸，则自动设置成横向，纸张设置成A3，
如果是A4图纸，则自动设置成纵向，纸张设置成A4，
如果是其它图幅图纸，则进行统计，最后生成图幅明细文件：D:\A0.txt A1.txt A2.txt A3.txt A4.txt 非标.txt 。
所有图纸都保存生成PDF文档。
宏程序处理顺序是：先在指定文件夹下寻找工程图，依次打开，如果是A3或A4，则打印后保存并关闭，否则直接关闭。再寻找子文件夹内工程图并处理。
打印机在宏程序内已设置成\\NA21009818\HP Universal Printing PCL6(v6.2.1)
使用前，请确认打印机联接正常。

hdgd501 · 发表于 2018-7-21 08:24:04

謝謝大鹿先生的無私分享！

:):)

		自动登录	找回密码
密码			注册

通知

[分享] 宏：打印当前图纸

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块