Top > OOobbs > 77

OOobbs/77 Edit

  • サマリ: タイトル列をつけて印刷したい
  • 環境: Calc
  • 状態: 解決
  • 投稿者: sato?
  • 投稿日: 2005-10-11 (火) 12:39:45

質問 Edit

OOoにはまり始めた佐藤です。よろしくお願いします。 印刷をマクロでやりたいのですが、タイトル列(行)をつけて印刷するのはどうすればよいか教えてください。 ちなみに以下のように書いてみましたが動きませんでした。

sub print_area
dim odoc as object
dim osheet as object
dim arange as new com.sun.star.table.CellRangeAddress
dim atitlecol as new com.sun.star.table.CellRangeAddress
dim aprintop(0) as new com.sun.star.beans.PropertyValue
  odoc = thiscomponent
  osheet = odoc.sheets(1)
  with arange
      .sheet = 2
      .startcolumn = 3
      .startrow = 2
      .endcolumn = 18
      .endrow = 61
  end with
  atitlecol = 2
  osheet.settitlecolumus(array(atitlecol))   
  osheet.setprintareas(array(arange))
  odoc.print(aoprintop())
end sub

よろしくお願いします

回答 Edit

sub print_area
dim odoc as object
dim osheet as object
dim arange as new com.sun.star.table.CellRangeAddress
dim atitlecol as new com.sun.star.table.CellRangeAddress
dim aprintop(0) as new com.sun.star.beans.PropertyValue
  odoc = thiscomponent
  osheet = odoc.sheets(1)
  with atitlecol
    .Sheet = 2
    .StartColumn = 0
    .StartRow = 0
    .EndColumn = 0
    .EndRow = 56
  end with
  with arange
    .Sheet = 1
    .StartColumn = 0
    .StartRow = 1
    .EndColumn = 22
    .EndRow = 56
  end with
  'atitlecol = 2
  osheet.settitlecolumns(atitlecol) 
  osheet.setprinttitlecolumns(true)  
  osheet.setprintareas(array(arange))
  aprintop(0).Name = "Name"
  aprintop(0).Value ="いきなりPDF" ' プリンター名
  odoc.print(aprintop()) ' <----
end sub
 osheet.settitlecolumns(atitlecol) 

ここの部分では,指定する .table.CellRangeAddress はシークエンスではないので,配列にする必要はありません。印刷範囲の場合には,複数指定が可能なのでシークエンスとして指定します。OOoBasic/Calc/printarea

次のようにしてタイトル行を使用するように設定します。OOoBasic/Calc/printarea

 osheet.setprinttitlecolumns(true)  
  • はにゃ?? 2005-10-12 (水) 17:07:01
  • 動きました、ありがとうございました。私の場合マクロのほとんどが印刷のために作っています。今度は、セルの値によって印刷するかしないかの判断させるマクロに挑戦します。 -- sato? 2005-10-13 (木) 13:10:41


Attach file: fileOOobbs77-1.ods 1134 download [Information]

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