「Web出版サイト」ベータ公開

Q&A集[?]

当サイトでのご質問の受付は終了しました

すべてのコンテンツを読み込み専用としたため、回答欄からも投稿できません

Apache OpenOffice/LibreOfficeのご質問はそれぞれのフォーラムへご投稿ください

質問コーナー

サイト内検索

分類メニュー

関連サイト


本日:1
昨日:0
総数:1636
現在:3


マクロで用紙サイズを指定

ページOpenOffice.org FAQの登録ページ
投稿者もとたか
分類
edit/refer
優先順位
edit/refer
状態
edit/refer
カテゴリー
edit/refer
投稿日2008-06-07 04:37:20 (土)
OSVista
依存するページ
バージョン
edit/refer

メッセージ

回答ページでは行末に「~」を付加する必要はありません

Calcのマクロで、B4(JIS)を指定したいんですが、
どうにもなりません。

mPrintopts1(4).Name = "PaperFormat"
mPrintopts1(4).Value = com.sun.star.view.PaperFormat.A4
でやれば、A4の指定はできます。

mPrintopts1(4).Name = "PaperFormat"
mPrintopts1(4).Value = com.sun.star.view.PaperFormat.B4
でやると、B4(ISO)の指定になります。

B4(JIS)の指定をするには、どうすればいいのでしょうか?

宜しくお願いします。


無題

(2008-06-07 04:39:15 (土))

みずらくて、すいません。

mPrintopts1(4).Name = "PaperFormat"
mPrintopts1(4).Value = com.sun.star.view.PaperFormat.A4

でやれば、A4の指定はできます。


mPrintopts1(4).Name = "PaperFormat"
mPrintopts1(4).Value = com.sun.star.view.PaperFormat.B4

でやると、B4(ISO)の指定になります。


です。

ユーザー設定

はにゃ? (2008-06-07 13:04:09 (土))

フォーマットに無いものはユーザー設定として用紙サイズを指定すればいいようです。

Dim aSize As New com.sun.star.awt.Size
aSize.Width = 25700
aSize.Height = 36400

mPrintopts1(4).Name = "PaperFormat"
mPrintopts1(4).Value = com.sun.star.view.PaperFormat.USER
mPrintopts1(5).Name = "PaperSize"
mPrintopts1(5).Value = aSize

用紙の向きが変わるとまた変更しないといけない気がしますが。

成功しました!

もとたか (2008-06-07 14:18:47 (土))

はにゃ?さん、

ありがとうごいます。
うまくいきました。


	Dim aSize As New com.sun.star.awt.Size
	aSize.Width = 25700
	aSize.Height = 36400
 '*********************************** 
 'Do you want to choose a certain printer 
  Dim mPrinter(6) As New com.sun.star.beans.PropertyValue 
   
	mPrinter(0).Name = "Name" 
	mPrinter(0).Value = "Default" 
	mPrinter(1).Name= "PaperOrientation"
	mPrinter(1).Value= com.sun.star.view.PaperOrientation.LANDSCAPE 
	mPrinter(2).Name = "ParaLeftMargin" 
	mPrinter(2).Value = 0
	mPrinter(3).Name = "ParaTopMargin" 
	mPrinter(3).Value = 0
	mPrinter(4).Name = "ParaBottomMargin" 
	mPrinter(4).Value = 0
'' 以下をすることで、プリンター側の用紙指定がB4になる。
	mPrinter(5).Name = "PaperFormat"
	mPrinter(5).Value = com.sun.star.view.PaperFormat.USER
	mPrinter(6).Name = "PaperSize"
	mPrinter(6).Value = aSize

 '*********************************** 
 'To simply print the document do the following: 
  Dim mPrintopts1(5) As New com.sun.star.beans.PropertyValue

	mPrintopts1(0).Name="Pages"
	mPrintopts1(0).Value="1;"
	mPrintopts1(1).Name = "CopyCount" 
	mPrintopts1(1).Value = 1  '何枚プリントするか 枚数
	mPrintopts1(2).Name = "Selection" 
	mPrintopts1(2).Value = true 
	mPrintopts1(3).Name = "Collate" 
	mPrintopts1(3).Value = true

完了

M.Kamataki (2008-06-08 07:41:20 (日))

ありがとうございます。ページを編集して見やすくしました。

お名前:
題名: