Top > OOobbs > 34

OOobbs/34 Edit

  • サマリ: 拡大縮小印刷の倍率を指定する方法
  • 環境: Calc
  • 状態: 解決
  • 投稿者: suou?
  • 投稿日: 2004-10-26 (火) 19:35:12

質問 Edit

大変御無沙汰しておりました。また、OOoBasicを学習したいと思います。ところで、OOoBasicで拡大縮小印刷の倍率を指定するにはどうしたらよいのでしょう。 ファイル→印刷プレビュー→ページ書式→表から拡大縮小印刷の倍率を指定することをマクロでできればいいなと思うのですが。

回答 Edit

  • 「ファイル→印刷プレビュー→ページ書式→表」で表示されるダイアログをよくみてみるとページスタイルの編集を行うことと同じようです。

ページスタイルの PageScale プロパティーが倍率にあたります。ページスタイルのプロパティー一覧?

Sub pagestyle_pagescale
Dim oStyleFamilies As Object, oPageStyles As Object
Dim oPageStyle As Object
Dim oDoc As Object
Dim sStyleName As String

  sStyleName = "Default"
  oDoc = ThisComponent
  oStyleFamilies = oDoc.getStyleFamilies()
  oPageStyles = oStyleFamilies.getByName( "PageStyles" )
  If oPageStyles.hasByName( sStyleName ) Then
    oPageStyle = oPageStyles.getByName( sStyleName )
    oPageStyle.PageScale = 200
  End If
End Sub

200% に拡大印刷します。

ここでは,「標準 (Default)」のページスタイルを編集して拡大率を設定しています。そのため,「標準」以外のページスタイルを使用している場合には,使用しているページスタイルを指定,変更します。

「標準」スタイルは別名として英語名での Default という名前でも呼ばれます。自分で作成したスタイルのときには,たとえば「スタイル」という名前を次のように指定します。

sStyleName = "スタイル"

一応,ページスタイルの設定 についてのページがありますがあまり詳しくありません。

  • はにゃ?? 2004-10-27 (水) 12:28:54
  • 早速ご回答頂きありがとうございました。うまくいきました。 -- suou? 2004-10-27 (水) 20:02: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