Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


66776 / 76738 ←次へ | 前へ→

【14521】各ページに見出しを付けて印刷
質問  NAO  - 04/5/31(月) 19:17 -

引用なし
パスワード
   こんにちは、NAOです。

印刷について分からないことがあり、お世話になりたいと思いますのでよろしくお願いします。

"Sheet1" にデータが1,000行位、記入されています。
1行から8行は、見出し行です。

データは、9行から23行までが1ブロックとなっており、
次のブロックは24行から38行までと、15行毎のデータが入っています。

列の方は、A列からH列までの8列を使用。
行間隔は15ピクセル。

印刷用紙サイズは、A4サイズ横。
印刷のページ設定の余白は、上2.0,下0.5,左0.5,右0,ヘッダー1.3,フッター1.3 。

各ページに見出し行と2ブロック分を印刷したいのですが、以下のコードでプリントすると、1ページ目はうまく収まりますが、2ページ目以降はうまくいきません。

よろしくお願いします。
 なお、余白の左右以外と行間隔の変更は差し障りありません。

Sub print()
  Worksheets("Sheet1").Activate
   With ActiveSheet.PageSetup
     .PrintTitleRows = "$1:$8"
     .PrintTitleColumns =""
   End With
  ActiveSheet.PrintOut
End Sub

0 hits

【14521】各ページに見出しを付けて印刷 NAO 04/5/31(月) 19:17 質問
【14523】Re:各ページに見出しを付けて印刷 Asaki 04/5/31(月) 20:02 回答
【14530】Re:各ページに見出しを付けて印刷 NAO 04/5/31(月) 21:41 お礼

66776 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free