用下面的程序来打印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