Top > OOobbs > 77
** [[OOobbs/77]] [#i23a67be]
-''サマリ'': タイトル列をつけて印刷したい
-''環境'': Calc
-''状態'': 解決
-''投稿者'': [[sato]]
-''投稿日'': 2005-10-11 (火) 12:39:45

*** 質問 [#t1feb2ce]
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
よろしくお願いします
*** 回答 [#t9b4804d]
-えっと,&ref(OOobbs77-1.ods);


 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)  



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

#comment

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