OpenOfficeのマクロから印刷で、前回やったより簡単な方法

　前に、OpenOffice Base（データベース）でマクロから印刷でやった、印刷のやりかた、そこでもいい方法かどうかはわかりませんって書きましたけど、もっといいやり方があったので、それを載せて置きます。

---

■仕様
C:￥temp￥テスト.ods（￥は、本当は半角）にあるOpenOffice Calc（表計算）のシートを１部印刷します（一番上にあるシートを印刷します）

■ソース

こんなかんじです。

sub Main
 	'**** スプレッドシートを開く
   sURL = ConvertToURL("C:￥temp￥テスト.ods") 
   oDoc = starDesktop.loadComponentFromURL(sURL,"_default",0,Array()) 

  '**** 印刷
   mPrintopts = oDoc.getPrinter() 
   mPrintopts(0).Name = "CopyCount"
   mPrintopts(0).Value = 1	'１個出力
   oDoc.Print(mPrintopts())
end sub

（￥は、本当は半角）

　　'**** 印刷　から下の４行が、印刷のためのコードです。

＜＜参考にしたサイト＞＞
http://api.openoffice.org/servlets/ReadMsg?list=dev&msgNo=3516