締切済み

エクセル　印刷　行数で

2014/08/20 19:17

Excelについて。印刷をする場合、印刷プレビューやページ設定で拡大縮小印刷など便利な機能・設定がありますが、エクセルの行数を指定して印刷はできないのでしょうか？例えば、２５行ずつ紙１枚に印刷したい。印刷したいエクセルの行数が７０行であれば、紙３枚になります。改ページプレビューで手動で行うのは、スマートではない気がしますし、非常に長い行数の場合に困ります。お手数ですが、よろしくお願いします。エクセル２０１０以上

2deaeaa22731ded
お礼率24% (8/33)

Excel（エクセル）
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

みんなの回答

mar00
ベストアンサー率36% (158/430)

2014/08/20 20:08 回答No.1

１行目が項目、２行目からデータが入力されているとして VBAiにしてみました。 Sub Macro1() Dim myRow As Integer S_Row = 2 'データの最初の行 P_Row = 25 '印刷する行数 myRow = Cells(Rows.Count, "A").End(xlUp).Row '印刷する範囲はA列の最終行まで Range(Rows(2), Rows(myRow)).EntireRow.Hidden = True For i = 2 To myRow Step P_Row Range(Rows(i), Rows(i + P_Row - 1)).EntireRow.Hidden = False ActiveSheet.PrintOut Range(Rows(i), Rows(i + P_Row - 1)).EntireRow.Hidden = True Next i Range(Rows(2), Rows(myRow)).EntireRow.Hidden = False End Sub ご希望通りの動作をすればよいのですが。

ログインすると、全ての回答が全文表示されます。