[求助]：关于VBA打印DWF的怪问题！

evaporated

用下面的程序来打印DWF文件。发现多数时候不行。命令行提示

**打印区域截短到打印机的最大值**
有效打印区域:  0.00 宽 X 0.00 高


然后生成4K大小的空白DWF文件。请教各位是怎么一回事啊！百思不得其解。

Sub test
t = MakeDwf("c:\test.dwf")
End Sub
Public function MakeDwf(ByVal FN As String) As String
'按当前ActiveLayout打印DWF文件 FN为文件名
Dim result As Boolean
ThisDrawing.Application.ZoomExtents
result = ThisDrawing.Plot.PlotToFile(FN,""DWF6 ePlot.pc3"")

If result = True Then MakeDwf = FN
End Function

yunzhong80

怎么我这里运行可以呢？

evaporated

我这里也是有时可以，有时不行。
让人摸不着头脑

huohewu

ThisDrawing.Plot.PlotToFile(FN,""DWF6 ePlot.pc3"")中的FN文件应为DWG格式文件,打印结果为DWF文件.