印刷設定

マクロで設定出来れば教えて頂けると幸いです。

シート1のK1のセルにボタン
A1～A4 に1の数字
A13～A16に2
A25～A28 3
A37～A40 4
A49～A52 5
G1～Ｇ4　6
G13～G16 7
G25～G28 8
G37～G40 9
G49～G52 10

シート1のＫ1に数字を入力
シート1に作成した印刷ボタンを押すと入力した数字を部分までのシートが印刷
シート1　1～10
シート2　11～20
シート3　21～30
…
シート20　191～200
K1に数字を入力例えば200と入力した場合
200の数字があるシート20
までを印刷
K1に21と入力したらシート3までを印刷
をさせたいのですが複数印刷の勉強してみましたがよく分からなく
教えて頂けると幸いです。

よろしくお願いいたします

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2020/09/18 16:54

こんにちは、

シート1のＫ1に数字を入力
シート1に作成した印刷ボタンを押すと入力した数字を部分までのシートが印刷
シート1　1～10
シート2　11～20
シート3　21～30
…
シート20　191～200
K1に数字を入力例えば200と入力した場合
200の数字があるシート20
までを印刷
K1に21と入力したらシート3までを印刷

この関係性でプリントすれば良いのであれば、
印刷範囲は考慮していません。

Sub print_Sample()
Dim i As Integer, n As Integer
n = Application.RoundUp(Sheets("シート1").Range("K1"), -1) / 10
For i = 1 To n
Worksheets("シート" & i).PrintPreview
' Worksheets("シート" & i).PrintOut
Next
End Sub
こんな感じで、プレビューにしています。
シート名の数字は半角です。
仕様に合わせて変更する必要があるかも知れません。

この回答へのお礼

丁寧に教えて頂いてありがとうございます。

ごめんなさい。

今回はじめて印刷設定のマクロをやらせていただきます。

素人発言で大変申し訳ございません。print_Sample()
こちらはボタンを印刷の名前にするときは
印刷と入れるで大丈夫でしょうか？

またこちらのコード　シート"1"のシートのコードをいれるで大丈夫しょうか？

聞いてばかりで申し訳ございません。

お礼日時：2020/09/18 17:59

No.2 回答者： Qchan1962 回答日時： 2020/09/18 18:21

＞print_Sample()

こちらはボタンを印刷の名前にするときは、印刷と入れるで大丈夫でしょうか？
重複していなければ、プロシージャ名なので印刷でも大丈夫です。
このまま、ボタンに登録しても大丈夫かと思います。

＞またこちらのコード　シート"1"のシートのコードをいれるで大丈夫しょうか？
ボタンを作成しコードを選択したモジュールと言う事でしょうか、
標準モジュールからでもドキュメントモジュールからでも大丈夫だと思います。

ただ、添付図にあるようなシート名の場合、
Worksheets("シート" & i).PrintPreview
' Worksheets("シート" & i).PrintOut
は、Worksheets(i).PrintPreviewではだめです。
これはシートインデックスになってしまいます。

Worksheets(CStr(i)).PrintPreview
こんな書き方で対応します。

取敢えず、PrintPreviewで止まり、印刷されませんので
検証してみてください。

この回答へのお礼

なりほどありがとうございます。

シート名を変更したら出来ました。

詳しく教えて頂きありがとうございます。


勉強不足で申し訳ございません
とても分かりやすかったです。

ありがとうございました。

お礼日時：2020/09/18 18:32