vba cad批量转pdf文件代码

dongdongdba

'
'打印pdf
'
————————————————————————————————————————————————————————
Sub printf()
Dim name As String
Dim num As Integer
num = 0

name = Dir("E:\*.dwg", vbNormal)

Do Until name = ""
'Application.Documents.Open
Application.Documents.Open ("E:\" & name)

Call openf

ThisDrawing.Application.Documents(0).Close False
num = num + 1
name = Dir

Loop

Debug.Print num

End Sub
——————————————————————————————————————————————————
'打印设置
Sub openf()

ThisDrawing.ActiveLayout.PlotType = acExtents
ThisDrawing.ActiveLayout.StandardScale = acScaleToFit
ThisDrawing.ActiveLayout.CenterPlot = True
ThisDrawing.ActiveLayout.PlotRotation = ac90degrees
ThisDrawing.ActiveLayout.StyleSheet = "monochrome.ctb"
ThisDrawing.ActiveLayout.PlotWithLineweights = False
ThisDrawing.ActiveLayout.PlotWithPlotStyles = True
ThisDrawing.Application.ActiveDocument.SetVariable "BACKGROUNDPLOT", 0           '把文件传给打印机队列
ThisDrawing.Plot.PlotToDevice ("Adobe PDF.pc3")


End Sub