| |
こんにちは、ＮＡＯです。
印刷について分からないことがあり、お世話になりたいと思いますのでよろしくお願いします。
"Sheet1" にデータが1,000行位、記入されています。
１行から８行は、見出し行です。
データは、９行から２３行までが１ブロックとなっており、
次のブロックは２４行から３８行までと、１５行毎のデータが入っています。
列の方は、Ａ列からＨ列までの８列を使用。
行間隔は15ピクセル。
印刷用紙サイズは、Ａ４サイズ横。
印刷のページ設定の余白は、上2.0,下0.5,左0.5,右0,ヘッダー1.3,フッター1.3 。
各ページに見出し行と２ブロック分を印刷したいのですが、以下のコードでプリントすると、１ページ目はうまく収まりますが、２ページ目以降はうまくいきません。
よろしくお願いします。
なお、余白の左右以外と行間隔の変更は差し障りありません。
Sub print()
Worksheets("Sheet1").Activate
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$8"
.PrintTitleColumns =""
End With
ActiveSheet.PrintOut
End Sub
|
|
NAO
- 04/5/31(月) 19:17 -
