OpenOffice "印刷"終了時のマクロエラー

Question

オープンオフィスでは、文書を印刷するためのマクロを作成しました。それは時々ライン「Doc.Close（真）」になると、マクロエラーがプログラムされるまで、コンピュータをロックアップが

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＃のプログラム、マクロ起動し、文書を印刷からこのマクロを呼び出しますタスクマネージャによって終了します。私は別のことをしなければならないことがありますか？追加情報が必要な場合はお知らせください。 -Thanksここ

Answer 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