Libre office マクロ 連番印刷

質問

質問します。libre office で連番印刷したいです。エクセルは表を複数印刷　教えて。で調べてできました。libre office はエラーがでました。
Libre officeマクロ に詳しい方、
表を複数枚印刷できるLibre office マクロコードを教えて下さい。
宜しくお願いします。

回答No.2

ushi2015

こんにちは
aPrintOption(1).Value = "1"
を、ページ3～6なら
aPrintOption(1).Value = "3-6"
のように変更して下さい。

補足

伝票を連番印刷したいのです。セルのD4 　M、 E4　　 1として、セルのE4のすうじを増やして印刷したいのです。
M1 M2 M3～M1000
今のやり方はM1がずっとページごと印刷になります。
もしわかられるならお手数ですが宜しくお願いします

回答No.1

ushi2015

こんにちは
印刷範囲の設定したシートをアクティブにして、
Sub print_test
　　Dim oDoc As Object
　　Dim aPrintOption(1) As New com.sun.star.beans.PropertyValue
　　oDoc = ThisComponent
　　aPrintOption(0).Name = "CopyCount"
　　aPrintOption(0).Value = 2
　　aPrintOption(1).Name = "Pages"
　　aPrintOption(1).Value = "1"
　　oDoc.print(aPrintOption())
End Sub
とかでは？

補足

ありがとうございます。
印刷はできました。
が、sheet 1 ページ数も印刷させてしまいます。
それと、出来たら、印刷開始ページ、印刷終了ページ

が表示されるとたすかります