打印 PDF 或 DWF 文件
我只想打印。问题是我需要先用合适的应用程序打开文件吗？我用excel设置了变量...将Xobj标注为Excel。application
Set Xobj = Createobject(" Excel。应用程序”)
等。等等。
我可以对DWF和/或PDF文件进行同样的操作吗？
另外，我需要推荐信吗？两者我都见过几个，但是我不确定要加载哪一个...
目前我所有的Cad文件都保存为dwf供外部使用，所以我上面的问题更多的是那个方向；然而，如果我需要，我会开始将它们导出为PDF格式，而不是dwf格式。
预先感谢您的帮助....
**** Hidden Message ***** 一些最新版本的PDF打印机支持VB（A）曝光。
几周前我在工作中帮助了某人解决了这个问题。
对我来说幸运的是，而不是对你来说，我在接下来的2,5周休假，所以我不能给你示例代码。
我似乎记得它是PDFcreator或Cutepdf（不这么认为）
如果您安装它并查看参考列表，您可以通过一些有根据的猜测找到它。
要查找字符串，我会选择“pdfcreator.application”或参考列表中描述的方式
另一方面，您需要延迟绑定吗？
您可以在后台设置默认目录等静默运行它。
不确定PDF文件，因为我还没有尝试为它们自动打印，但是，如果您添加适当的引用，您可以自动打印DWF文件。您可以从欧特克下载DWF查看器的API帮助。这将让您从一些示例开始。 是否希望代码从autocad打印dwf和/或pdf？我两样都有
我实际上是在Access上运行我的代码。我知道可能会有一些不同，希望不会太难
我想有一些引用需要加载，之后我想应该没什么大不了的
我无法想象代码只剩下几行
我将下载Dave R推荐的API帮助，看看我能想出什么…
如果我有任何问题，我知道在哪里可以找到你。
感谢您的帮助。。。 好的，我为DWF加载了3个引用（查看器，选择和shellext）。 我假设我需要dwfviewer。但我不确定。
Dwfviewer.application 在声明我的变量时似乎不可用。
另外，将我的变量 WhipObj 设置为 dwfviewer 文档似乎也不可用。
我错过了什么吗？
我是否还需要 AutoCAD 参照？
哦，对于所有 3 dwf 引用，库都是 1.0。 不确定这是否是最新的。 它会有所作为吗？
提前感谢您的帮助...
我从未尝试过从Access打印，但这就是我从AutoCAD
Public Sub StandardsPDF()
Dim Layout As AcadLayout, strfile As String
strfile = ThisDrawing.Path & "\" & (Left(ThisDrawing.Name, (Len(ThisDrawing.Name)) - 4)) & ".pdf"
Set Layout = ThisDrawing.ActiveLayout
Layout.RefreshPlotDeviceInfo
Layout.ConfigName = "HPDSH"
Layout.PLOTTYPE = acExtents
Layout.PlotRotation = ac0degrees 'Rotate to 90 for long sheets
Layout.StyleSheet = "STANDARDS.ctb"
'Layout.CanonicalMediaName = "Tabloid"
Layout.CanonicalMediaName = "Letter"
Layout.PaperUnits = acInches
Layout.StandardScale = ac1_1
'Layout.StandardScale = acScaleToFit
Layout.ShowPlotStyles = False
ThisDrawing.Plot.NumberOfCopies = 1
Layout.CenterPlot = True
Layout.RefreshPlotDeviceInfo
ThisDrawing.Plot.PlotToDevice
'ThisDrawing.Plot.PlotToFile strfile
Set Layout = Nothing
ThisDrawing.Close (True)
End Sub
打印的方式 我可能是错的，但看起来好像你真的在创造DWF氏症。
我想打印已经创建并保存到网络位置的DWF文件。
我几乎遇到了阻碍。
adesk论坛上出现了一线希望，但是我需要加载的frm是VB6 frm，显然我无法将它加载到VBA编辑器中。不知道这是否会有所帮助，但这似乎是我目前解决这个问题的最好办法....
我会继续寻找。
我很感激你们能提供的任何帮助...
尝试在记事本中打开VB表单。您应该能够阅读代码并从那里剪切并粘贴到vba中。 Kevin-
请参阅附加的屏幕截图。您需要所有这些参考来访问DWF API。
页:
[1]
2