VB PlotToFile 生成的PDF文件打印纸质文件时图片模糊问题

wangxu_1018

版主及各位朋友：中午好！
      
        CAD版本：AutoCAD Electrical 2010
% k: c% p+ D" g& z; K- _8 Z) b
        我在vb程序中处理dwg打印为pdf时遇到如下问题，希望得到各位的帮助，谢谢！
. h2 W7 u# b! x7 {        问题如下：
, K$ {* I+ P. c0 e8 g' a        我之前开发了一段程序（见下面嵌入的代码），通过 Acade - DWG To PDF.pc3  打印为pdf文件，生成pdf没有问题，但是生成的pdf文件一直也没有去打印为纸质版，最近需要打印时发现原DWG文件中引用的图片（公司logo）及由Excel中copy到DWG中的表格（好像也是图片了）出现模糊的情况。
0 `* I% t/ ^6 Z( C+ T0 h/ L
" |9 v9 ]5 X9 o/ x        上述问题不管的手动选取“ Acade - DWG To PDF.pc3”打印机还是程序均有问题。后来尝试手动选取“Adobe PDF”打印，生成的PDF是没有问题。

         后来尝试有程序实现“Adobe PDF” 去打开PDF，但有遇到”仅依靠系统字体；不使用文档字体(N)“的问题。
3 [: E% z) W' y" X9 F3 c/ H         尝试去修改打印机首选项，但Adobe PDF 打印机的首选项中没有找到关于”仅依靠系统字体；不适用文档字体“的设置（不确定是否版本问题）

) p( P- }  T' V) q  z' m        问题汇总：
4 V6 R, K# \+ o$ ]        1、 “Acade - DWG To PDF.pc3”打印机 是否可以处理图片模糊的问题？
        2、 “Adobe PDF” 打印机如何设置字体？
        注：由于对AutoCAD也只是初学，对很多CAD本身的应用也还不是很熟悉，开发这块就更差了 还希望各位给予帮助。

1. '---------------------------------------------------------------------------------------
   
2. ' Procedure : CreatePDF
   , y7 h* j: D: N; A. D7 G
3. ' DateTime  : 2013-11-20
   
4. ' Author    : xwang
   
5. ' Purpose   : CAD中DWG图纸导出PDF文件
   
6. ' param     : acadDoc: AcadDocument
   
7. '           : filename:  DWGFile
   - M3 D8 N+ l: U5 h
8. '           : strPdfFile PdfFile
   , d) u- R( M- u* ~
9. '           : ConfigName: Acade - DWG To PDF.pc3
   ( A" {  o( ?0 Y. Z/ M
10. '---------------------------------------------------------------------------------------
    ; A  W0 c/ b2 R$ _$ C1 H  U
11. Public Function CreatePDF2(acadDoc As AcadDocument, filename As String, strPdfFile As String, ConfigName As String) As Integer
    # D3 y$ C# c: A7 G2 j, o' |* Q5 t+ e
12. 
    
13.     Dim PtConfigs As AcadPlotConfigurations
    
14.     Dim PlotConfig As AcadPlotConfiguration
    
15.     Dim PtObj As AcadPlot
    
16.     Dim BackPlot As Variant
    
17.    
    4 v5 N; \2 u4 o6 ?
18.     Dim ent As AcadEntity 'Object
    2 t+ M$ y0 y0 Y2 {, b. C, |* g
19.     Dim blockRef As AcadBlockReference
    & j9 Q4 a8 ~/ X7 R3 J! Y  [' K
20.    
    
21. On Error GoTo ErrExit
    
22. 
    + _( K/ T7 c" Y/ ^5 O: {6 c
23.     Debug.Print "CreatePDF ------------------------------------------------->"
    9 t4 k6 _3 C1 Q& ?3 P
24.     Debug.Print "打印机:" & ConfigName
    
25.     For Each ent In acadDoc.ModelSpace
    , W/ N  [7 ]. R2 R- v3 r
26.         If TypeOf ent Is AcadBlockReference Then
    - i5 B! ^4 b* q- j5 V  I# L. F
27.             DoEvents
    
28.             Set blockRef = ent
    
29.             If blockRef.Name = "ACE A3块" Or blockRef.Name = "ACE A4块" Then
    & g! ~. Q4 i% a: I
30. 
    
31.                 Debug.Print "块名称:" & blockRef.Name
    
32.                
    0 J! l  y7 u! m5 X. Q
33.                 '块引用的插入点
    " e& Z! x: k* R- m) M% o( ^
34.                 Dim insertPoint As Variant
    ( a$ o; p) e' Y1 `  h
35.                 insertPoint = blockRef.InsertionPoint
    , I- {& ^7 n8 V0 f# f" J' M
36.                 '放大比例
    . s4 y, b7 N: O& S# Z+ S5 h
37.                 Dim xScale, yScale As Integer
    
38.                 xScale = blockRef.XScaleFactor
    7 s/ j- X3 b" F4 r0 q# V. X# o  Q# Y
39.                 yScale = blockRef.YScaleFactor
    
40.                
    
41.                 acadDoc.ActiveLayout.ConfigName = ConfigName '"Acade - DWG To PDF.pc3"
    
42.                 Set PtObj = acadDoc.Plot
    & {1 z7 w1 n1 R: G6 N# c) n+ t$ d
43.                 Set PtConfigs = acadDoc.PlotConfigurations
    , a; o6 ]5 G/ ?! t" p8 `
44. 
    - E2 `$ @; y3 M/ y2 a9 j
45.                 PtConfigs.Add "PDF", False
    
46.                 Set PlotConfig = PtConfigs.Item("PDF")
    
47.                 PlotConfig.StandardScale = acScaleToFit
    
48.                                 
    
49.                 PlotConfig.ConfigName = ConfigName '"Acade - DWG To PDF.pc3"
    % T$ m: U. C5 }/ U; {2 W
50.                 'ANSI_A_(8.50_x_11.00_Inches)
    2 F3 K0 d" ?) h8 I  U$ ]
51.                 PlotConfig.RefreshPlotDeviceInfo
    ) m% w# p* [" n" F
52. 
    ' s3 D0 E0 V  [) V3 d8 l. g
53.                 Debug.Print "After打印样式：" & acadDoc.ActiveLayout.StyleSheet
    & u4 P2 I% X9 c% z
54.                 Debug.Print "After图纸尺寸：" & acadDoc.ActiveLayout.CanonicalMediaName
    2 h  F4 M9 W  r; P5 q: r/ w3 |* `
55.                
    3 _3 l9 b: O7 R* v" k' E# ~( a
56.                 acadDoc.ActiveLayout.StyleSheet = "monochrome.ctb" '黑白样式
    
57. 
    
58.                 '使用图形文件的线宽
    & T" j7 D2 H* L* _# @$ Q& y
59.                 PlotConfig.PlotWithLineweights = True
    
60.                 '是否启用打印样式
    
61.                 PlotConfig.PlotWithPlotStyles = True
    9 P  I9 Z( V$ g: L
62. 
    7 {( s* ]: n4 N
63.                  '宽高基数
    + ?: z* `7 r( _
64.                 Dim width, height As Double
    
65.                 If blockRef.Name = "ACE A3块" Then
    4 L+ r8 g* i+ f' X. o' [
66.                     width = 420
    / }* i: d) H  J2 e
67.                     height = 297
    
68.                     acadDoc.ActiveLayout.PlotRotation = ac90degrees
    
69.                     acadDoc.ActiveLayout.CanonicalMediaName = "ISO_expand_A3_(297.00_x_420.00_MM)"
    # i; q' j3 Y6 U9 X
70.                 ElseIf blockRef.Name = "ACE A4块" Then
    
71.                     width = 210
    : f' ?& J$ ?# |. ~  L
72.                     height = 297
    . W" s4 x" U$ u$ q, Y! a5 {
73.                     acadDoc.ActiveLayout.PlotRotation = ac0degrees
    2 J& I2 e: {2 k0 b2 f( L% p
74.                     acadDoc.ActiveLayout.CanonicalMediaName = "ISO_expand_A4_(297.00_x_210.00_MM)"
    
75.                 End If
    
76.                   
    ' w1 [' h3 x8 Z
77.                 '打印区域
    
78.                 Dim UpperRight(0 To 1) As Double, LowerLeft(0 To 1) As Double
    
79.                 LowerLeft(0) = insertPoint(0)
    
80.                 LowerLeft(1) = insertPoint(1)
    " E1 i! U& Y  U8 G4 g
81.                 UpperRight(0) = insertPoint(0) + width * xScale
    4 }+ ^" E, d3 ?, i' `4 L& Z, [
82.                 UpperRight(1) = insertPoint(1) + height * yScale
    ) g% b* P) U, }, j/ ]( f! x2 ~
83.                
    
84.                 '设置定义要打印的布局范围的坐标
    
85.                 acadDoc.ActiveLayout.SetWindowToPlot LowerLeft, UpperRight
    ; k1 q& I6 }! R9 [
86.                 '指定布局或打印配置的类型
    
87.                 acadDoc.ActiveLayout.PlotType = acExtents
    # K+ n; |  d) X! Q9 T, K% g( q
88.                
    & m; m6 i, f2 q; I4 t
89.                 BackPlot = acadDoc.GetVariable("BACKGROUNDPLOT")
    ) `2 g, u/ W7 X* Y6 {
90.                 acadDoc.SetVariable "BACKGROUNDPLOT", 0
    & v" |4 M: I) q" i
91.                 PlotConfig.RefreshPlotDeviceInfo
    9 {- H& {2 B1 R- A
92.                
    - u% d+ _! s9 I; k7 w
93.                 Debug.Print "Befor打印样式：" & acadDoc.ActiveLayout.StyleSheet
    
94.                 Debug.Print "Befor图纸尺寸：" & acadDoc.ActiveLayout.CanonicalMediaName
    7 l0 m5 x& H* j- C* M! _# m9 C/ \* h
95.                 Debug.Print "图形方向：" & acadDoc.ActiveLayout.PlotRotation
    ' [2 I. I- L+ n, g. k, P
96.                 Debug.Print "打印机：" & acadDoc.ActiveLayout.ConfigName
    6 r, c# P3 k) x9 j% I8 f
97.                
    8 @9 h2 M/ h0 j
98.                 strPdfFile = strPdfFile 'Replace(acadDoc.FullName, "dwg", "pdf")
    
99.                 Debug.Print "输出位置:" & strPdfFile
    ( ~$ G0 E( y% c3 U
100. 
     / j& N1 R& z. Z
101.                 'Now you can use the PlotTofile method
     
102.                 If PtObj.PlotToFile(strPdfFile, PlotConfig.ConfigName) Then
     , O! D/ Q/ t7 R6 r8 h
103.                      Debug.Print "PDF Was Created"
     
104.                      Debug.Print "PDF Was Created"
     : y* P, }4 ^) r& }0 R+ ]/ B# w
105.                 Else
     , m  j5 j8 R$ s5 p
106.                      Debug.Print "PDF Creation Unsuccessful!"
     + V7 m: b, g0 [* }2 b4 {: @
107.                      Debug.Print "PDF Creation Unsuccessful!"
     1 a. O8 T9 P; r- ?
108.                 End If
     ! d. M) e. \$ t
109.                 PtConfigs.Item("PDF").Delete
     * L5 d) z0 n" R) L: ?) X
110.                 Set PlotConfig = Nothing
     . H" o/ S* q* z$ E
111.                 acadDoc.SetVariable "BACKGROUNDPLOT", BackPlot
     + E7 L1 z. `8 t( x9 f+ E
112.                
     , R$ N; C. a( h5 x+ F4 Q
113.                 Debug.Print "CreatePDF ok!"
     5 ?* S& M: z2 c9 n0 ?1 Z
114.             End If
     
115.         End If
     
116.         DoEvents
     
117.     Next ent
     9 |5 X/ b5 U4 p. _% ?( Z, Q
118.     Debug.Print "CreatePDF -------------------------------------------------<"
     
119.     Exit Function
     
120.    
     ) H# i3 `+ o2 T7 N1 J
121. ErrExit:
     9 {3 p* ^! c5 `3 y& @7 K2 C
122.     CreatePDF2 = -1
     
123.     Debug.Print "CreatePDF Error:" & Err.Description
     
124.     MsgBox "CreatePDF error:" & Err.Description
     - Y0 ]9 A9 V8 \3 Y. m
125. End Function

复制代码

woaishuijia

' u3 B' D/ O  q
) @  ?: Q0 J2 ^2 ]在"页面设置"对话框的"打印机/绘图仪"框架中的"名称"下拉列表中选择"DWG TO PDF.PC3"打印机
" J$ U4 f. j; H! \8 X5 ^: e
点击"名称"下拉列表框右侧的"特性"按钮,弹出"绘图仪配置编辑器"对话框.
; }' j3 ]! a, `, p& W3 Q. U在"设备和文档设置"选项卡的树形目录中点击"自定义特性",其下方显示"访问自定义对话框"框架.

/ Y& s; c- l- ?2 S5 g0 s6 i再点击"访问自定义对话框"框架中的"自定义特性"按钮,弹出"DWG TO PDF 特性"对话框

& i" k% |; }+ H返回到"页面设置"对话框,在"打印机/绘图仪"框架的"名称"下拉列表中选择"ADOBE PDF"打印机
3 M+ z( W  |1 R1 l5 P+ J$ P
* U  C+ i2 }) G继续前面的步骤
  W6 _. h: a4 j! m/ _

wangxu_1018

@woaishuijia 版主
. p, c8 ^( Y7 C非常感谢您的帮助，过程中遇到的2个问题已经解决。
1 _% a% |( Q- p' k[问题1] 、PDM生成的PDF图纸中OLE引用（由Excel中copy过来的表格）图片、公司LOGO图片模糊。
% {0 H5 b: e) |' q解决方案：在对PDF文件打印时，取消打印界面“作为图像打印”的复选框后再打印就不会存在模糊的问题。

1 }  l: O" ^. m4 t+ [8 o- {) ][问题2]、打印PDF文件时提示“无法找到或创建字体 TimesNewRomanPSMT，XXXXXX”。
解决方案：原因是由于客户端安装的pdf查看工具版本影响，经过测试安装AdbeRdr11000_zh_CN.exe版本在打印时就没有问题。

cyfdean2011

谢谢分享，我的问题也解决了。哈哈