固定タイトルと内容を１行ずつ印刷するには？？

質問

Excelのシートにある内容を
管理番号　　名前　　　　　出版社名　　売上額
A001　　　　村上春樹　　○○出版　　１０００万円
B002　　　　湊かなえ　　□□出版　　５００万円
・
・
・

をタイトルは固定で内容は１行ずつ表示して
固定タイトルと内容を１行ずつ印刷するにはどうすればいいでしょうか？

ファイルの印刷からページ指定で１ページ目、２ページ目と選択するたびに
固定タイトルと列内容が１行ずつ表示されるようにするにはどうすればいいでしょうか？

今日、会社で渡されたファイルがそのように設定されていたので作業していました。

別の似たようなファイルで同じようにやろうとしたらやりかたが分かりませんでした。

ファイルを渡してくれた社員の人聞いてもやり方を忘れてしまったと言われてしまい。

やり方が分かりません。（＞＜）

アドバイスよろしくお願いします。

回答No.2

imogasi · ベストアンサー

＞固定タイトルと内容を１行ずつ印刷するには
タイトルを第I行目に、と各行１行を上下に組み合わせて印刷する、と取ってよいかな？
質問にデータ例でも挙げると、はっきりするのだ。
ーー
Excel関数では印刷指示は出せない。
手作業なら簡単だが、多数行あるとしんどい。そこでVBAの出番。
VBAだが、簡単なので何をやっているか、自分の本番の場合はどう改めればよいか判るだろう。
ーー
例データ　A1:C6
aa bb cc
a1 b1 c1
a2 b2 c2
a3 b3 c3
a4 b4 c4
a5 b5 c5
標準モジュールに
Sub test01()
For i = 2 To 3
ActiveSheet.Range("a1:H1").Copy Worksheets("Sheet2").Range("a1")
ActiveSheet.Range("A" & i & ":H" & i).Copy Worksheets("Sheet2").Range("a2")
Worksheets("Sheet2").PrintOut
Next i
End Sub
１行目は項目名見出し、テスト的に２，３行をやってみた。
aa bb cc
a1 b1 c1
の１枚と
aa bb cc
a2 b2 c2
の１枚と印刷された。
(注意）
・白紙のシートを１枚用意する。上記ではSheet2
・For i = 2 To 3の(3)は実際は目視で最終行に修正のこと。
VBAで簡単に割り出せるが、VBAをやったことがないかもしれないので。
・列数が多いと２ページ目に繰り越してしまい、様子が変わり難しくなる。
・見出し行は元データにあるひつようはないが。Sheet1の１行目に作って
使いまわしても良い。
　プログラムの中の、文字定数の定義では見出しは実現できない。シート面を借りなければならない。PrintOutメソッドはRangeに対するものだから。
ーー
セル範囲についての統合Unionでやってみたが、見出しと本文は、別ページになってしまうようで、これを除くのは高等課題と思う。これができれば、作業用の
シートが要らなくなるのだが。

お礼

回答ありがとうございます。参考にさせていただきます。

結局、レイアウト余白の下余白の設定を変えるというアナログな方法で解決しました。
(・´з`・)

VBAやマクロもこれから勉強して習得したいと思います。(・´з`・)
参考にさせて頂きます。ありがとうございました。

回答No.3

SI299792

どこからデータが入っているか判らないので、１行目から入っていて、１行目がタイトルとします。
A2:D列の最後を洗濯。印刷範囲、印刷範囲の設定。
印刷タイトル、シートタブ、タイトル行に$1:$1 を入力。
印刷プレビュー、右下の、余白に合わせるボタンを押すと、青い線が出てくる。
これを上へドラックして、タイトルとデータ１行だけ出るように調整する。

https://support.office.com/ja-jp/article/%E4%B8%80%E7%95%AA%E4%B8%8A%E3%81%AE%E8%A1%8C%E3%82%92%E5%90%84%E3%83%9A%E3%83%BC%E3%82%B8%E3%81%AB%E5%8D%B0%E5%88%B7%E3%81%99%E3%82%8B-3e4f2a66-7350-4042-9639-418da7ab5b37
https://www.crie.co.jp/chokotech/detail/246/

お礼

回答ありがとうございます。参考にさせていただきます。
会社でやらなければならなかった作業が、
セルのデーターを固定のタイトル行と個別の社員ごとのデーターを一枚ずつ
印刷するようにいわれました。

結局、レイアウト余白の下余白の設定を変えるというアナログな方法で解決しました。
(・´з`・)

回答No.1

kkkkkm

https://support.office.com/ja-jp/article/%E5%85%A8%E3%83%9A%E3%83%BC%E3%82%B8%E3%81%AE%E5%85%88%E9%A0%AD%E3%81%AE%E5%88%97%E8%A6%8B%E5%87%BA%E3%81%97%E3%81%A8%E3%81%A8%E3%82%82%E3%81%AB%E8%A1%8C%E3%82%92%E5%8D%B0%E5%88%B7%E3%81%99%E3%82%8B-d3550133-f6a1-4c72-ad70-5309a2e8fe8c

これを設定して、一行ごとに改ページを入れたらどうでしょう。

お礼

回答ありがとうございます。参考にさせていただきます。
改ページを入れる方法は

２行目に改ページを入れた後に
３行目から一行ずつCtrlキーとYキーを押して
入れていくしかないでしょうか？

それ以外だとVBAかマクロでやるしかないでしょうか？('ω')ノ