VB.NetにおけるOpenOfficeをPDF化にて最終ページしか作成されない

Question

VB.Netを利用してOpenOfficeにデータの書き込みを行い、PDF化したいと思っております。

PDF化は無事にできたのですが、複数ページ作成する際に最終ページしかPDFが作成されず困っております。

       Dim A As String = objSheet1.getName
       Dim B As String = wkSheetIdx & "ページ"
       Dim C As Integer = objSheets.getCount()
       'ガラコピー
       objSheets.copyByName(A, B, C - 1)
       'ガラ選択
       objSheet1 = objSheets.getByIndex(objSheets.getCount() - 1)


       'PDFの作成
       args(0) = New Object
       args(0) = objServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
       args(0).Name = "FilterName"
       args(0).Value = "writer_pdf_Export"
       objNewDocument = objDocument.storeToURL("file:///" & CopyFile, args)

       'PDFオープン
        System.Diagnostics.Process.Start(CopyFile)

上記のようにコピーをしておりますが、誤りがあるでしょうか。
追記：PDFの作成ロジックを追加いたしました。

尚、コピーをせずにPDF化を行った場合は最初のページのみPDFが作成される状態です。

すみませんが、情報についてご教授願います。

Comments

[YAmaGNZ]

PDF化の部分はどうなっているのでしょうか？

[mdj]

最終ページしかできないということは、1ページずつ生成したデータを上書きしているような気がします。

Answer 1

検証してみました。解決には至っていません。

        Dim objServiceManager As Object
        Dim objDesktop As Object
        Dim objDocument As Object
        Dim objNewDocument As Object

        objServiceManager = CreateObject("com.sun.star.ServiceManager")
        objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
        Dim args(0)
        args(0) = objServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
        args(0).Name = "Hidden"
        args(0).Value = True
        objDocument = objDesktop.loadComponentFromURL("file:///C:/work/test1.ods", "_blank", 0, args)
        objSheets = objDocument.getSheets()
        objSheet1 = objSheets.getByIndex(0)

        Dim A As String = objSheet1.getName
        Dim B As String = "3ページ"
        Dim C As Integer = objSheets.getCount()
        'ガラコピー
        objSheets.copyByName(A, B, C - 1)
        'ガラ選択
        objSheet1 = objSheets.getByIndex(objSheets.getCount() - 1)

        args(0) = New Object
        args(0) = objServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
        args(0).Name = "FilterName"
        args(0).Value = "writer_pdf_Export"
        objNewDocument = objDocument.storeToURL("file:///C:/work/test.pdf", args)

このコードで、複数シートのものをPDF化してみましたが、複数ページの出力がされています。

OpenOfficeの「PDFのオプション」のデフォルト値を変更できるのか当方は分かりませんが、「一般」の「範囲」が「選択した部分」になっていたら、今回の現象がありえるのかと思いました。

Comments

[aallaall88]

回答頂きありがとうございます。
こちらでも確認してみましたが、別のファイルは複数頁出力できることを確認しました。
Excelからコピーした場合に、上記の現象が生じるようです。
Excelぁらコピーせず新規に同じレイアウトを作成してみたところ正常に動作することを確認することができました。
ご検証頂き、ありがとうございました。