|
こんにちは、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
|
|