OOobbs/78

OOobbs/78

• サマリ: print()メソッドを繰り返し使うには？
• 環境: Calc
• 状態: 解決
• 投稿者: sato?
• 投稿日: 2005-10-17 (月) 12:53:18

質問

いつもお世話になっています。また印刷のことで質問します。 表の中にいろんなパターンの印刷したいものがあります。しかも、列タイトルを付けたり付けなかったりと、ページ指定だけではうまくいきません。それで、印刷パターンをサブルーチンで作成し、メインルーチンでまとめて印刷しようとしましたが、一番最初のサブルーチンしか印刷なりません。全部印刷したいのですがどうしたらよいのでしょうか。 具体的には、以下の内容で「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

• はにゃ?? 2005-10-17 (月) 14:37:27

• プリンターがビジーのときには印刷が出来ないんでしょうか？ビジーかどうかを確認しなければいけないのでしょうか？ -- はにゃ?? 2005-10-17 (月) 14:41:18
• 動きました。ありがとうございました。setprinter()を記入することによって動きました。メソッドの使い方が私にはややこしいです。これからのよろしくお願いします。 -- sato? 2005-10-17 (月) 16:04:55