2011年06月15日
カテゴリ： エクセル
印刷範囲を最終行から設定して
改ページを54行毎に行うマクロです。
Sub 改ページ()
Sheets("領収書").Select
gyou = Cells(Rows.Count, 11).End(xlUp).Row ’最終行を求める
ActiveSheet.ResetAllPageBreaks ’改ページのリセット
i = 55
j = 1
gyou = gyou + 1 ’最終行を設定
para = "$A$1:$O$" & gyou
ActiveSheet.PageSetup.PrintArea = para ’印刷範囲の設定
Do Until j > k
Set ActiveSheet.HPageBreaks(j).Location = Cells(i, 1)'改ページの追加
i = i + 54
j = j + 1
Loop
Range("a1").Select
End Sub
改ページを54行毎に行うマクロです。
Sub 改ページ()
Sheets("領収書").Select
gyou = Cells(Rows.Count, 11).End(xlUp).Row ’最終行を求める
ActiveSheet.ResetAllPageBreaks ’改ページのリセット
i = 55
j = 1
gyou = gyou + 1 ’最終行を設定
para = "$A$1:$O$" & gyou
ActiveSheet.PageSetup.PrintArea = para ’印刷範囲の設定
Do Until j > k
Set ActiveSheet.HPageBreaks(j).Location = Cells(i, 1)'改ページの追加
i = i + 54
j = j + 1
Loop
Range("a1").Select
End Sub
お気に入りの記事を「いいね！」で応援しよう
[エクセル] カテゴリの最新記事
-
農林業センサス フローチャート 2015年01月15日 コメント(1)
-
エクセル 文字列の分割 2013年07月26日
-
農薬及び肥料の計算 2012年07月24日
【毎日開催】
15記事にいいね！で1ポイント
PR
キーワードサーチ
▼キーワード検索
カレンダー
nobu5267
センサー使って農業用機械の自動化を作っています。ほかにも溶接機を使っていろいろと道具を作ります。
フリーページ
コメント新着
© Rakuten Group, Inc.
