1ページ目は普通に印刷して、2ページ目以降の行タイトルを3行目にもって行きたいのですが、どの様にしたらいいか教えて下さい。
宜しくお願いします。
With Worksheets("Sheet1")
.PageSetup.PrintTileRows = "$A3:$P3"
.PageSetup.Orientation = xlLandscape
.PageSetup.PrintArea = Range("A1",Range("P65536").End(xlUp)).Address
.PrintPreview
End With
No.1ベストアンサー
- 回答日時:
(1)エクセルの仕組みとしてそのようなものはない。
(2)印刷が始まって、各ページの印刷に入る前に介入させてくれるイベントなどは無いので出来ない
と思う。
ーー
基本的には無理ということ。
唯一思い付いたのが、、プログラムの手が込むが、1ページ目の終わる行をHPageBreaksででも割り出して,タイトル+1ページデータを別セル範囲にでも作成して、そのセル範囲を1ページに収まるように(普通に印刷すると2ページになってしまうから)印刷することを、最終ページまで繰返すコードを作成するほか無いでしょう。
参考
ファイルー印刷プレビューして、プレビュー画面を閉じて下記を実行してみてください(ただし質問の直接の回答ではない)
Sub test01()
i = 3
MsgBox "第" & i & "ページ目は"
MsgBox ActiveSheet.HPageBreaks(i - 1).Location.Row & "行-" _
& ActiveSheet.HPageBreaks(i).Location.Row - 1 & "行まで"
End Sub
imogasi 様
ご教授有難うございます。
返信が遅れましてすみません。参考で教えて頂いた内容でいろいろ考えながらやった
結果、無事解決出来ました。本当に有難うございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
- Excel(エクセル) VBAのoffsetの動き方について教えてください 3 2022/11/25 23:36
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Visual Basic(VBA) worksheets & rows メソッドは失敗しました。のエラー回避のやり方 1 2022/06/07 13:58
- Visual Basic(VBA) 【至急】Excel 同一人物の情報を一行にまとめる(複数行) 6 2022/05/24 17:58
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのグレーの部分を戻したい
-
ページが増える
-
YMM4 で MOV ファイルが読み込...
-
エクセルの縦の幅だけ拡大したい。
-
エクセルでA4 2枚をA3 1枚で印...
-
EXCEL改ページプレビューのペー...
-
エクセル上に貼り付けた画像が...
-
改ページの2ページ目の作り方
-
エクセルで空白ページが印刷さ...
-
Excel ~プリンターがない時で...
-
EXCELで1行の内容を1枚の紙に印...
-
Excelで縦を拡大、横を縮小する...
-
エクセルでページのど真ん中に...
-
Excelで改ページのラインが解除...
-
エクセルで、大きく灰色に書か...
-
excel2010改ページプレビュー時...
-
エクセルでの印刷時に変な線や...
-
印刷範囲がこまぎれになる
-
ExcelVBA 改ページの横破線を消...
-
ベータ版とプレビュー版
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのグレーの部分を戻したい
-
ページが増える
-
エクセルの縦の幅だけ拡大したい。
-
エクセルでA4 2枚をA3 1枚で印...
-
EXCEL改ページプレビューのペー...
-
改ページの2ページ目の作り方
-
エクセルのA3横一枚のデータをA...
-
YMM4 で MOV ファイルが読み込...
-
エクセル上に貼り付けた画像が...
-
EXCELで1行の内容を1枚の紙に印...
-
エクセルでページのど真ん中に...
-
印刷範囲がこまぎれになる
-
エクセルのマクロで印刷プレビ...
-
エクセルで点線を引き、印刷す...
-
Excelで縦を拡大、横を縮小する...
-
Excelの改ページ印刷についての...
-
エクセルで、大きく灰色に書か...
-
Excelで特定の文字・記号のとこ...
-
EXCEL-VBAで印刷時のページ番号...
-
プリンターが突然1部しか印刷...
おすすめ情報