宏：打印当前图纸

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

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

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

x

捡来的，各位慢用。

Sub print_current_sheet()
3 S( ~ q, T/ G6 D; k$ W
Set swApp = Application.SldWorks, N2 a) x$ d# h# R5 z, Y& J$ @
Set Part = swApp.ActiveDoc1 O# H F) P: B( t W8 `9 {6 N
Part.PrintPreview0 S- l% o" t( s
answer = MsgBox("请把一张 " & Part.PrintSetup(2) / 10 & "mm x " & Part.PrintSetup(3) / 10 & "mm 的纸张放进打印机：" & Part.Printer, vbOKCancel, "打印当前图纸")! w, q, U; W2 w
Part.ClosePrintPreview. D0 a; z9 p% T0 S
If answer = vbOK Then6 U$ r0 [* f* T
CurrentSheetName = Part.GetCurrentSheet.GetName
" ?! c: |! _3 a* j& k s; C, _
AllSheetNames = Part.GetSheetNames* n6 i0 l: K8 ~, a( v7 j& W' b2 U
For i = 1 To Part.GetSheetCount
If CurrentSheetName = AllSheetNames(i - 1) Then+ }8 p5 y/ N i1 @' l8 ?
Dim sheets(0) As Long4 \; d/ q0 |2 G4 O9 l; i
sheets(0) = i/ `6 _4 k; Y" ~" x! j
Part.Extension.PrintOut3 (sheets), 1, False, Part.Printer, "", False2 m, U! D# I0 |+ J
End If3 U6 a- @. L6 D! Q
Next i
! `6 s: M$ \; K* w* Z! H G
End If; ?( q5 l; ]5 t6 N" ~
End Sub3 W/ K# P* D+ t$ y7 ^" f3 M

复制代码

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; ]% Y# n# R3 @5 ~0 H N2 p
非常不错的宏，谢谢分享~~
# V- I+ S+ @5 o& F" S复制有乱码，整理一下，借花献佛给下面的朋友，。

不要使用“复制代码”功能，手動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:28
g2 d# T* t$ w# k O, S) D打印工程图完美，打印零件就错误！有方案否？？？

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

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

大鹿发表于 2016-4-8 19:43
: r) [! O1 v, Q' [打印零件按一下【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

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

:):)

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

通知

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

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

评分

浏览过的版块