OOoBasic/Calc/pagesettings

ページ設定

Calc シートのページ設定を変更します。

Calc シートのページ設定は，ページスタイルと関与しています。ページスタイルを使用していないと思っていてもメニューからページ設定を変更すると "Default" のスタイルが変更されます。

Calc でのページ設定にはスタイルを使用します。

ページスタイル

今にシートで使用しているページスタイルは，シートオブジェクトの PageStyle プロパティーで知ることができます。

Sub pagestyle_1
Dim oDoc As Object, oSheet As Object

  oDoc = ThisComponent
  oSheet = oDoc.getSheets().getByIndex( 0 )
  MsgBox oSheet.getPropertyValue( "PageStyle" )
End Sub

何も変更していないドキュメントのシートなら "Default" のページスタイルが使用されています。テンプレートなどから作成した場合には別のスタイルが使用されているかもしれません。

ページスタイルにアクセスするには，スタイルファーミリーコンテナからスタイルファーミリーを取得して，さらにスタイルを取得します。何のことやら分からないので次のコードをみてください。

Sub pagestyle_2
Dim oStyleFamilies As Object, oPageStyles As Object
Dim oPageStyle As Object
Dim oDoc As Object, oSheet As Object
Dim sStyles() As String

  oDoc = ThisComponent
  oSheet = oDoc.getSheets().getByIndex( 0 )
  oStyleFamilies = oDoc.getStyleFamilies() ' --1
  oPageStyles = oStyleFamilies.getByName( "PageStyles" ) ' --2
  sStyles() = oPageStyles.getElementNames()
  For i% = 0 To UBound( sStyles() )
    MsgBox sStyles(i)
  Next i
  If oPageStyles.hasByName( "Default" ) Then
    oPageStyle = oPageStyles.getByName( "Default" ) ' --3
    Globalscope.BasicLibraries.LoadLibrary( "mytools" )
  End If
End Sub

最初はドキュメントの持つページスタイルは "Default" と "Report" の二つだけです。 "1" の行はスタイルを使用するときにいつも使用します。StyleFamilies container とよばれるようです。"2" の行は oStyleFamilies のなかから "PageStyles" スタイルファミリーを取得しています。 spreadsheet ドキュメントでは "CellStyles" と "PageStyles" の二つがあります。"3" の行では "Default" のスタイル名を持つスタイルオブジェクトを取得しています。

変更

ただページの設定を変更するだけで新しいページスタイルを作成しなければ簡単です。

"Default" のページスタイルオブジェクトのプロパティーを変更するだけでページ設定が変更されます。この "Default" ページスタイルは割り当てているページスタイルを変更していなければ標準のページスタイルです。

"Default" のスタイルは，言語が日本語になっていると "標準" と表示されているものです。

Sub pagestyle_3
Dim oStyleFamilies As Object, oPageStyles As Object
Dim oPageStyle As Object
Dim oDoc As Object, oSheet As Object

  oDoc = ThisComponent
  oSheet = oDoc.getSheets().getByIndex( 0 )
  oStyleFamilies = oDoc.getStyleFamilies()
  oPageStyles = oStyleFamilies.getByName( "PageStyles" )
  If oPageStyles.hasByName( "Default" ) Then
    oPageStyle = oPageStyles.getByName( "Default" )
    With oPageStyle
      'MsgBox oPageStyle.DisplayName
      .BackColor = "&HDDEEFF"
      .HeaderOn = false
      .FooterOn = false
      .PrintCharts = true
    End With
  End If
End Sub

背景色を変更したり，ヘッダとフッタを印刷しない設定にしています。 ページスタイルの設定項目は多すぎてとても紹介しきれません。ページスタイルのプロパティーをみてください。

用紙サイズと余白

ページの用紙サイズ設定と余白設定を行ってみます。

上記の表のプロパティーはすべて 1/100 mm 単位で設定します。

その他のプロパティ

そのほかのページスタイルのプロパティ一覧は ./Properties 参照。

下記はページスタイル編集ダイアログのタブごとに分類したもの。

管理

ページ

外枠

背景

ヘッダー

フッター

シート