Top > OOobbs > 78

OOobbs/78 Edit

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

質問 Edit

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

回答 Edit

  • これは,普通に動きました (なんかおんなじです)
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


Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes