关于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