关闭时出现 OpenOffice“打印”宏错误

Posted 2023-02-24

【中文标题】关闭时出现 OpenOffice“打印”宏错误

【英文标题】：OpenOffice "Print" Macro Errors on close

【发布时间】：2011-10-24 19:12:43

【问题描述】：

在 Open office 中，我创建了一个用于打印文档的宏。

sub printDoc(FileName)
Dim Url as String
Url = convertToUrl(FileName)

Dim Doc as variant
Doc = starDeskTop.loadComponentFromUrl(Url, "_hidden", 0, Array())
Doc.Print(Array())
Doc.Close(True)
End Sub

我从我的 c# 程序中调用这个宏，宏启动并且文档打印但是当它到达“Doc.Close(True)”行时宏错误并且有时会锁定计算机直到程序通过任务结束经理。有什么我应该做的不同的事情吗？如果您需要任何其他信息，请告诉我。 -谢谢

【参考方案1】：

这是有效的（我有一个打开文档功能）

sub printDoc(FileName)
   openDoc(FileName)

 Dim opts(0) As New com.sun.star.beans.PropertyValue
 opts(0).Name = "Wait"
 opts(0).Value = True
 thisComponent.Print (opts())
 If HasUnoInterfaces(ThisComponent, "com.sun.star.util.XCloseable") Then 
   ThisComponent.close(true) 
 Else 
   ThisComponent.dispose 
 End If 

End Sub

重要的部分是：

Dim opts(0) As New com.sun.star.beans.PropertyValue
opts(0).Name = "Wait"
opts(0).Value = True
thisComponent.Print (opts())

这确保我们在尝试打印时不会尝试关闭文档。

来源： http://user.services.openoffice.org/en/forum/viewtopic.php?f=5&t=40719