印刷マクロについて質問があります。 sheet1 A2=1と入力します(開始数字) B2=30と入力

印刷マクロについて質問があります。
sheet1
A2=1と入力します(開始数字)
B2=30と入力します(終了数字)
sheet2
H6=1“I6=2”J6=3”K6=4”L6=5”M6=6”N6=7”O6=8”
P6=9”Q6=10
印刷1枚目→1〜10(H6=1〜Q6=10)
印刷2枚目→11〜20(H6=11〜Q6=20)
印刷3枚目→21〜30(H6=21〜Ｑ6=30)
sheet1に数字を入力するだけで自動印刷する事は可能でしょうか？お力を貸して下さい

質問者からの補足コメント

• 例です

  
    補足日時：2020/05/19 15:44

• 例です

  
    補足日時：2020/05/19 15:44

• 写真を送らせていただきます。

  
    補足日時：2020/05/19 15:45

• 間違えて3回も送信してしまいました。
  毎日、何度も行う作業で困っています。

    補足日時：2020/05/19 17:17

No.4 ベストアンサー 回答者： Qchan1962 回答日時： 2020/05/19 18:51

印刷はせずにプレビューで止めています。

プレビューから印刷も出来ます。
＞数値はPrint Out Copies です。これ部数になりますが、何枚？

印刷範囲、サイズは、あらかじめシートで設定しておいてください。
VBAで都度変更する必要があるなら、詳細を検討し考えますが。。

1～3０　ご質問のケースです。10つづでプリントとされます。

Sub Sample()
Dim s As Long, e As Long, i As Long, n As Long
s = Sheets("Sheet1").Range("A2")
e = Sheets("Sheet1").Range("B2")
For i = s To e
n = n + 1
Sheets("Sheet2").Cells(6, 7 + n) = i
If n = 10 Then
' Worksheets("Sheet2").PrintOut　’プリントする場合コメントを外してください。
Worksheets("Sheet2").PrintPreview　’プリントする場合、削除または、コメントに
n = 0
End If
Next
End Sub

この回答へのお礼

先程やってみたのですが上手くいきました。
明日から使っていきたいと思います。
本当に有難うございました

お礼日時：2020/05/19 22:01

No.3 回答者： Qchan1962 回答日時： 2020/05/19 17:21

画像見ましたが、さっぱりわかりません。

何がしたい事でしょうか？
黄色う部分の数値が変わっているようですが、
1～30　これ1～100とかもあるのですか？逆に1～3とか？
＞H6=1“I6=2”J6=3”K6=4”L6=5”M6=6”N6=7”O6=8”

単に対象のセルに数値を連番で入れて印刷すれば良いだけ？

数値のご説明をお願いします。

＞印刷マクロについて質問があります。
数値を入れたら印刷されると言う事ですよね。

数値は印刷設定などには関係ないのですか？
関係するなら
示されている数値は、パラメーターのどこに当てはまりますか？
ActiveSheet.PrintOut (From、 To、Copies、 Preview、 activeprinter、 PrintToFile、 Collate、 prtofilename、 ignoreprintareas)

ページの設定でしょうか？
数値は、どのプロパティに該当しますか？
https://docs.microsoft.com/ja-jp/office/vba/api/ …

ご自分で投稿写真をご覧になり見えますか？
1回目2回目3回目分けて1つずつ表示すれば良かったのでは？私の老眼には見えませんよ。

勝手な想像で書いても良いですが、、実行してみます？
ボタンがあるようですが、数値を入力した時に3回印刷して良いのでしょうか？

補足をお願いします

この回答へのお礼

説明が下手ですみません。
単に対象のセルに数値を連番で印刷するだけです。
数値はPrint Out Copies です。
sheet2をA4サイズで印刷です。
sheet1に開始数字を1と入力。終了数字を30と入力。印刷ボタンを1回押せばsheet2が　　　　3回印刷出来たら有り難いです。
何度もすみませんが宜しくお願いします

お礼日時：2020/05/19 18:29

No.2 回答者： Qchan1962 回答日時： 2020/05/19 01:34

＃１のお礼について、

＞作成していただけないでしょうか。
私は、かまいませんが、一応　依頼の場では無いと言う事は、認識されてください。
つまり、コードの1行も理解しようとせず（元々知る気もない）目的を処理できるプログラムが欲しいだけの場合
これは、教えてではなく作ってgooになりますから、、
また、作った物はあくまでサンプルです。そのあたりも認識してください。実行については、自己責任でお願いします。
マクロと言うキーワードを書かれているので少なからずや興味を持って自己学習する事もお願いします。

＞マクロの知識がないので
基礎知識がないのなら、諦めた方が良いかも知れません、
マクロは、構成や条件が変わった場合、正しく処理されないと思いますので、改修のスキルも必要になります。
ウイルスのようなハッキングプログラムを書いて渡しても自身で分からないのであれば、問題では W
毎日、何度も行う処理なら必要と考えますが、違うのであれば手動で十分です。
また、自動記録で作り欲張らず、ボタンから実行などでも良いかも知れませんね。
以上の事から、簡単に　「マクロの知識がないので作成していただけないでしょうか。」は使わない方が良いですよ。
すべては、あなた次第だと思いますが。

では本題、
作成には、ずばり一度で実行プログラムを書く事も出来ますし、確認しながら進める方法もあります。
どちらにするかは、仕様の説明次第と思います。

ご質問の意味が現時点で分かっているのは、
＞sheet1に数字を入力するだけで自動印刷する事は可能でしょうか
だけです。（これもどこに、”数字を入力する”か分かりません）分かりますか？これだけで、、
他の部分は、説明不足で意味不明です。。

A2=1と入力します(開始数字)　なんの開始数字ですか？ページ数？行番号？列番号？シート番号？、、、同じく　(終了数字)

＞H6=1“I6=2”J6=3”K6=4”L6=5”M6=6”N6=7”O6=8”P6=9”Q6=10
何の数値ですか？

＞印刷1枚目→1〜10(H6=1〜Q6=10)
＞印刷2枚目→11〜20(H6=11〜Q6=20)
＞印刷3枚目→21〜30(H6=21〜Ｑ6=30)
全く意味不明

多分、これを読んで回答できる人はいないと思いますので

詳細を説明してください。出来れば、実行前、実行後の正しい結果を画像などで添付してください。

No.1 回答者： Qchan1962 回答日時： 2020/05/18 19:16

各数値が何を意味しているか解りませんが、

＞sheet1に数字を入力するだけで自動印刷する事は可能でしょうか？
可能と思います。
sheet1のWorksheet_Change(ByVal Target As Range)イベントを使われてはいかがでしょう。

この回答へのお礼

返信ありがとうございます。
マクロの知識がないので時間がある時でよろしいので作成していただけないでしょうか。
無理を言ってすみません。よろしくお願いします

お礼日時：2020/05/18 23:35