打印 PDF 或 DWF 文件

Kheilmann · 发表于 2006-7-27 15:09:57

我只想打印。问题是我需要先用合适的应用程序打开文件吗？我用excel设置了变量...
将Xobj标注为Excel。application
Set Xobj = Createobject(" Excel。应用程序”)
等。等等。
我可以对DWF和/或PDF文件进行同样的操作吗？
另外，我需要推荐信吗？两者我都见过几个，但是我不确定要加载哪一个...
目前我所有的Cad文件都保存为dwf供外部使用，所以我上面的问题更多的是那个方向；然而，如果我需要，我会开始将它们导出为PDF格式，而不是dwf格式。
预先感谢您的帮助....

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Dnereb · 发表于 2006-7-27 15:52:28

一些最新版本的PDF打印机支持VB（A）曝光。
几周前我在工作中帮助了某人解决了这个问题。
对我来说幸运的是，而不是对你来说，我在接下来的2,5周休假，所以我不能给你示例代码。
我似乎记得它是PDFcreator或Cutepdf（不这么认为）
如果您安装它并查看参考列表，您可以通过一些有根据的猜测找到它。
要查找字符串，我会选择“pdfcreator.application”或参考列表中描述的方式
另一方面，您需要延迟绑定吗？
您可以在后台设置默认目录等静默运行它。

Kheilmann · 发表于 2006-7-27 15:56:57

不确定PDF文件，因为我还没有尝试为它们自动打印，但是，如果您添加适当的引用，您可以自动打印DWF文件。您可以从欧特克下载DWF查看器的API帮助。这将让您从一些示例开始。

Kheilmann · 发表于 2006-7-27 16:33:50

是否希望代码从autocad打印dwf和/或pdf？我两样都有

Kheilmann · 发表于 2006-7-27 18:23:57

我实际上是在Access上运行我的代码。我知道可能会有一些不同，希望不会太难
我想有一些引用需要加载，之后我想应该没什么大不了的
我无法想象代码只剩下几行
我将下载Dave R推荐的API帮助，看看我能想出什么…
如果我有任何问题，我知道在哪里可以找到你。
感谢您的帮助。。。

quicksilver · 发表于 2006-7-31 17:23:56

好的，我为DWF加载了3个引用（查看器，选择和shellext）。我假设我需要dwfviewer。但我不确定。
Dwfviewer.application 在声明我的变量时似乎不可用。
另外，将我的变量 WhipObj 设置为 dwfviewer 文档似乎也不可用。
我错过了什么吗？
我是否还需要 AutoCAD 参照？
哦，对于所有 3 dwf 引用，库都是 1.0。不确定这是否是最新的。它会有所作为吗？
提前感谢您的帮助...

Kheilmann · 发表于 2006-7-31 17:59:48

我从未尝试过从Access打印，但这就是我从AutoCAD

copy

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

打印的方式

Kheilmann · 发表于 2006-7-31 18:56:49

我可能是错的，但看起来好像你真的在创造DWF氏症。
我想打印已经创建并保存到网络位置的DWF文件。
我几乎遇到了阻碍。
adesk论坛上出现了一线希望，但是我需要加载的frm是VB6 frm，显然我无法将它加载到VBA编辑器中。不知道这是否会有所帮助，但这似乎是我目前解决这个问题的最好办法....
我会继续寻找。
我很感激你们能提供的任何帮助...

Kheilmann · 发表于 2006-8-1 08:09:56

尝试在记事本中打开VB表单。您应该能够阅读代码并从那里剪切并粘贴到vba中。

quicksilver · 发表于 2006-8-1 08:27:52

Kevin-
请参阅附加的屏幕截图。您需要所有这些参考来访问DWF API。

打印 PDF 或 DWF 文件

发表回复

精选推荐