印刷マクロを教えてください。

質問

マクロは初心者です。よろしくお願いいたします。
エクセルで、列ＡからＨまでにデータを入力しています。
また、Ａの1から、Ａの３までは行タイトルとしています。
列Ａ４から下の行にＮｏ１～の順番号をいれていますが、
例えばNo20からN045までのデータ分だけを印刷したい時など、指定したNoの範囲のデータだけを印刷出来るようなマクロがあれば教えてください。
印刷Noの指定は、行番号でもかまいません。
これまでの質問で印刷関係をみてみましたが、多すぎてわかりませんでした。どなたかよろしくお願いいたします。

回答No.3

suz83238 · ベストアンサー

さっきの余計なのが入ってました。

改めて

例
Sub Macro1()
s1 = InputBox("はじめの番号")
s2 = InputBox("おわりの番号")
Rows("4:" & s1 - 1).EntireRow.Hidden = True
en = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
Rows(s2 + 1 & ":" & en).EntireRow.Hidden = True
If MsgBox("印刷しますか?", vbYesNo) = vbYes Then ActiveSheet.PrintOut
Rows("4:" & en).EntireRow.Hidden = False
End Sub

お礼

早速のご教示、ありがとうございました。
マクロの作成が素人ですので、助かりました。
又、よろしくお願いいたします。

回答No.4

iekustam

ご希望の内容程度なら印刷したい行範囲を選択して、印刷範囲の設定だけでもいいのでは？

回答No.2

suz83238

一番簡単なのは、指定の行を非表示にすればいいんじゃないですか？
タイトル行の３行を除いて、4行目～はじめの指定の行の一つ前と指定の最後の行の一つ後から最終行までを非表示→印刷

例
Sub xxx()
s1 = InputBox("はじめの番号")
s2 = InputBox("おわりの番号")
Rows("4:" & s1 - 1).EntireRow.Hidden = True
en = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
Rows(s2 + 1 & ":" & en).EntireRow.Hidden = True
Rows("4:4").RowHeight = 17.25
Rows("4:5").Select
Selection.EntireRow.Hidden = True
If MsgBox("印刷しますか?", vbYesNo) = vbYes Then ActiveSheet.PrintOut
Rows("4:" & en).EntireRow.Hidden = False
End Sub

回答No.1

toshi_2000

指定は、INPUTBOX関数を使用してＮｏもしくは行番号を２回入力すると考えてよろしいですか。