[[20200907132055]]　『セルの値の分だけ印刷したい』（きな子）　ページの最後に飛ぶ

『セルの値の分だけ印刷したい』（きな子）

Sheet1のG3セルの値の分だけ印刷したいです。
印刷するのはSheet2で、Sheet2のF1セルに数字を入れて
印刷したいです。

例えばSheet1のG3の値が184だとしたら、
Sheet2を184枚印刷したいのですが、
Sheet2のF1セルに1から184まで順番に入力してから印刷
としたいです。
1枚目はF1セルに1と入力してから印刷
2枚目はF1セルに2と入力してから印刷
この作業を184枚目までしたです。

よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

 エクセル 差し込み印刷
 エクセル 差し込み印刷　VBA
 で過去ログ検索してみてください。
（OK） 2020/09/07(月) 13:30

すいません。

マクロはマクロの記録しかやった事がないもので全然わかりません。

宜しくお願い致します。
（きな子） 2020/09/07(月) 14:21

 Wordの差し込み印刷は試しましたか？
（OK） 2020/09/07(月) 14:28

すいません。

Wordは使っていません。

エクセルのみで行いたいです。

宜しくお願い致します。
（きな子） 2020/09/07(月) 14:48

 マクロではこんな感じです。意味やマクロの設定は調べてみてください。

Sub test()

 Dim i As Integer
 Dim maxnum As Integer
  maxnum = Worksheets("Sheet1").Range("G3").Value '最大値取得
  For i = 1 To maxnum 'ループ
   Worksheets("Sheet2").Range("F1").Value = i '数値をセルに入力
   Calculate '再計算
   Worksheets("Sheet2").PrintOut 'シートプリントアウト
  Next i
End Sub
（OK） 2020/09/07(月) 14:52

 アクティブプリンターが指定のプリンターでない場合は、
 事前ににアクティブプリンターを変えるか、マクロで
 アクティブプリンターを変える、あるいは、プリントアウト
 の際にプリンターを指定してやる必要があります。

 Application.Activeprinter

 で調べてみてください。
（OK） 2020/09/07(月) 15:25

コメント返信：

[ 一覧(最新更新順) ]

[[20200907132055]] 『セルの値の分だけ印刷したい』（きな子） ページの最後に飛ぶ

[[20200907132055]]　『セルの値の分だけ印刷したい』（きな子）　ページの最後に飛ぶ