OOobbs/78
質問
いつもお世話になっています。また印刷のことで質問します。 表の中にいろんなパターンの印刷したいものがあります。しかも、列タイトルを付けたり付けなかったりと、ページ指定だけではうまくいきません。それで、印刷パターンをサブルーチンで作成し、メインルーチンでまとめて印刷しようとしましたが、一番最初のサブルーチンしか印刷なりません。全部印刷したいのですがどうしたらよいのでしょうか。 具体的には、以下の内容で「print_1」しか印刷なりません。「print_2」も印刷するには? Sub Main print_1 print_2 End Sub sub print_1 dim odoc as object dim aprintoption(0) as new com.sun.star.beans.PropertyValue odoc = thiscomponent odoc.print(aprintoption()) end sub sub print_2 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 = "2" odoc.print(aprintoption()) end sub 回答
Sub Main print_1 print_2 End Sub sub print_1 dim odoc as object dim aprintoption(0) as new com.sun.star.beans.PropertyValue dim aop(0) As New com.sun.star.beans.PropertyValue odoc = thiscomponent aprintoption(0).Name = "Name" aprintoption(0).Value = "いきなりPDF" odoc.setPrinter(aprintoption()) odoc.print(aop()) end sub sub print_2 dim odoc as object dim aprintoption(0) as new com.sun.star.beans.PropertyValue dim aop(1) As New com.sun.star.beans.PropertyValue odoc = thiscomponent aop(0).name = "CopyCount" aop(0).value = 2 aop(1).name = "Pages" aop(1).value = "1" aprintoption(0).Name = "Name" aprintoption(0).Value = "いきなりPDF" odoc.setPrinter(aprintoption()) odoc.print(aop()) end sub
|