[[20060220104304]]　『複数のシートの印刷タイトルの一括設定』（きみきみ）　ページの最後に飛ぶ

『複数のシートの印刷タイトルの一括設定』（きみきみ）

 各シートの$1:$1を印刷タイトルに設定したいのですが、
 複数のシートを選択して、まとめて設定することは可能でしょうか？
 ページ設定で余白などは一括設定できますが、印刷範囲と印刷タイトルは
 カーソルを合わせることが出来ず、一括設定は不可能のようです。
 諦めて1シートずつ設定するしかないのでしょうか？

 こんなのは、どうでしょう？
 1.AltとF11キーを押す。
 2.出てきた画面の左側からThisWorkbookをダブルクリック。
 3.画面右側の白い部分に、以下のPrivate SubからEnd Subまでをコピペ後、×を押して画面を閉じます。

 Private Sub WorkBook_BeforePrint(Cancel As Boolean)
  ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"
 End Sub

 印刷プレビューでご確認くださいな。 (かなれっと)　
 ☆あ　注意を…　上記はブック内の全シートに効いてしまいますので、設定しないシートや
   別な行を印刷タイトルにするシートがあるのなら、これだとダメです～＾＾；

2.出てきた画面の左側からThisWorkbookをダブルクリック。
のところでThisWorkbookが見当たりませんでした…。
その続きもちょっと私には高度でした（苦笑）。

それと、私のファイルは設定しないシートを含んでいましたので、
結局設定済みのシートをベースにしてコピペを繰り返すことで作り直しました。

コメントくださったかなれっとさん、ありがとうございました。

（きみきみ）

 マクロと聞けば自分にはできない～と思ってた、からちょっとステップアップした程度の
 スキルしかないので、画面を開けばプロジェクトエクスプローラーが開いているもんだと
 ばっかり・・・＾＾；
 いずれにしても(きみきみ)さんのケースには対応できなかったようで残念でした。

 今後検索でこのスレッドがHITするかもしれないので～ThisWorkbookが見当たらない場合を。
 Alt＋F11で開いた画面、メニューバーから　表示＞プロジェクトエクスプローラー　と選択。
 画面左側にプロジェクト－VBAProjectというウィンドウが開きます。
 VBAProject(ブック名)をクリックすると、ThisWorkbookが出てくるはず…です。
 エクセルの学校内、上にあるメニューのライブラリ内に、VBA入門などがあるので、
 そちらも是非ご覧くださるとイメージしやすいと思います～　(かなれっと)

コメント返信：

[ 一覧(最新更新順) ]

[[20060220104304]] 『複数のシートの印刷タイトルの一括設定』（きみきみ） ページの最後に飛ぶ

[[20060220104304]]　『複数のシートの印刷タイトルの一括設定』（きみきみ）　ページの最後に飛ぶ