![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
エクセルにデータを表示させて印刷するときに、
一続きのデータがページをまたいでしまうのですが、
またいだ時にページの一番はじめに、データの項目を表示させたいと思っています。
PrintTitleRowsを使用しようと思いましたが、
データの項目→データ、データの項目→データというようにエクセルシートに表示されているため、もし、丁度ページが変わったときにうまくデータの項目が次のページの1列目にくるとデータの項目がダブってしまい、使用することができません。
他の方法を考えてみたのですが、その方法では現在のページ番号を取得する方法か現在のページの最終行(データが最終行に入力されていない場合も含む)を取得する方法を知らなくては実現することができません。
いろいろ調べたのですが、見つからず、このような方法がないのかもしれません。
うまく状況が説明できずすみません。
もしご存知の方がお見えになりましたら教えてください。
また、何か他によい方法をご存知の方がお見えになりましたら教えてください。
No.2ベストアンサー
- 回答日時:
ページの先頭に表題や項目(列)見出しを入れる場合
(1)エクセルのPrintTitleRowsを使う
この場合は最初以外は項目見だしをいれないのが普通でしょう。質問のケースはこれを入れていると言うことですか。
そのため邪魔になると言うことでしょうか。
であれば削除するか、非表示にするのが手でしょう。
項目見出しを何かの文言・印でプログラムで割り出せるなら、その行をプログラムで非表示にすることも出来るでしょう。
(2)PageBreakで改ページし、改ページ後に
項目見出しを(手動でということになる)いれる。
と言うか項目見出しの行の前で改ページを入れる。
紙は多少無駄が起こるかもしれない。
(3)VBAでPrintAreaを別途編集し直し
項目見出しを最上部にセットする。
すると普通は毎ページ「一定行数」+見だし行数となろう。その場合も中間の項目見だしは邪魔になる。
(4)(2)の場合PageBreakの位置をVBAで
取得し、その後に項目見だしを印刷し、明細行を打てばよいが、Printoutでは、改ページしてしまうので不可能。行印刷して改ページしないメソッドが判れば可能。
>現在のページの最終行(データが最終行に入力されていない場合も含む)を取得する方法
これはプリンタの動作の最終行と言う情報をシステムに送らせないといけないが、VBAレベルでは多分不可能でしょう。APIでも難しいのでは。プリント動作はプリンタドライバに任せているのだと思う。
様々な方法を教えてくださり、ありがとうございます。
項目の上に表示データごとにことなるもう一つの見出しがつくため項目を非表示にすることは難しいと思いますが、それぞれ教えてくださった方法を試して見たいと思います。
ありがとうございました。
No.1
- 回答日時:
私なら印刷を以下のようにマクロ化します。
1)2番目以降のデータ項目の行を非表示にする
2)1番目のデータ項目をタイトル行にして印刷する
3)非表示にした行を表示に戻す。
現在のページ番号を直接知るのは、無理かもしれませんが、間接的にRangeオブジェクトのPageBreakプロパティかHPageBreak オブジェクト(VPageBreakも必要かもしれません)の位置の記録と集計を使えば可能じゃないかとは思います。
お答えいただき、ありがとうございます。
やはり現在のページ番号を直接知るのは無理なんですね。
この方法を試して見ます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
字面がカッコいい英単語
あなたが思う「字面がカッコいい英単語」を教えてください。
-
EXCEL-VBAで印刷時のページ番号を取得したい
Excel(エクセル)
-
EXCEL、マクロ-改ページ行番号の取得方法を教えてください
Visual Basic(VBA)
-
Excelのマクロについて
Visual Basic(VBA)
-
-
4
VBAで印刷ページ最終行にページ計表示印刷したい
Visual Basic(VBA)
-
5
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
6
A1セルにアクティブセルのページ数を入力したい
Excel(エクセル)
-
7
画像を削除したい(VBA)
Word(ワード)
-
8
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
9
Excel 改ページのVBAうまくいかないです
Excel(エクセル)
-
10
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
11
エクセルで、分かれた行を印刷タイトルに設定したいです。
Windows 7
-
12
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
GridViewにバインドせずにデー...
-
【Excel VBA】先頭の「0」飛び...
-
MSFlexGridのデータ表示位置の設定
-
Listviewのデータを上から順番...
-
GridViewを自動的にスクロール...
-
ListViewで条件によって表示を...
-
GASでスプレッドシートの一番上...
-
DataGrdViewに関連付けたデータ...
-
ASP.NET DataGridの項目数(列...
-
VB DataRepeaterにて条件で表示
-
VB.net CrystalReportでプロジ...
-
C# データ配列から画像を作成す...
-
DataGridViewで表示に制限をつ...
-
ACCESSのVBAで[Split]について
-
VB.NETで DataRow()を利用して...
-
i=cells(Rows.Count, 1)とi=cel...
-
エクセルで、絶対値の平均を算...
-
ExcelVBAを使って、値...
-
Excelのセルの色指定をVBAから...
-
特定のセルが空白だったら、そ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【Excel VBA】先頭の「0」飛び...
-
DataGrdViewに関連付けたデータ...
-
Listviewのデータを上から順番...
-
GASでスプレッドシートの一番上...
-
.NET SqlDataReader のレコー...
-
GridViewにバインドせずにデー...
-
VBAでページ番号、ページ最終行...
-
MSFlexGridのデータ表示位置の設定
-
DataGridViewで表示に制限をつ...
-
【ASP.NET MVC】一覧編集画面
-
VBA ピボットテーブル自動更新
-
ListViewで条件によって表示を...
-
ACCESSのVBAで[Split]について
-
スプレッドシート 一括でQRコー...
-
エクセルマクロ小数点桁数
-
コンボボックス
-
C# データ配列から画像を作成す...
-
コンパイルエラーSubまたは...
-
EXCEL2000のマクロ(ADO)にてCSV...
-
VBAの問題がわからないのでどな...
おすすめ情報