エクセルのマクロの連続印刷で困っています。
初心者です。
エクセルのマクロで通知書を指定した番号~番号までを連続印刷
させたいのですが、印刷をすると、印刷結果が最初の番号は指定した
番号まで印刷されて良かったのですが、次から最後までの番号の
印刷が同じものが印刷されていき、どんどん増えていってしまって
いて困っています。
いろいろとやり方を変えてみたりしたのですが、どこが間違えて
いるのかが結局分からず、どなたか詳しい方、教えていただけます
ようでしょうか?><
よろしくお願いします。
----
失敗経緯は↓の感じです
・ただ連続印刷させたらシート1まで印刷したのでシート2を
セレクトさせるようにした
・連続印刷させるように指示した番号が繰り返し印刷される
のでプレビューさせて、プレビューされた1枚だけが印刷
させるようにプレビューを追加した
にもかかわらず、プレビューでは1枚だけがプレビューされ
るのに印刷結果はプレビュー以外の番号のものまで印刷されて
しまいます。しかも、既に印刷がされているものまでもです。
シート2は、VLOOKUPで読み込ませているものは1人分だけの
情報のはずなのに、何故、それ以外の人の分まで印刷して
しまうのでしょうか><
エクセルの構成は、
・シート1 通知書に印刷させる用でID管理用の一覧になっています。
このシートにシート2で印刷させたいNoを入力・印刷指示
をさせています。
・シート2 シート1で指定されたNoをVLOOKUPで読み込ませて表示させて
います。(1人分で1枚のみ)
・セルには名前をつけています
Sub 通知書を連続印刷する()
myMsg = MsgBox(Range("通知書連続始め").Value & " 番から " &
Range("通知書連続終わり").Value & " 番まで一括印刷しますか?" &
Chr(10) & Chr(10) & "現在の使用プリンタは " & Application.ActivePrinter
& " になっています。", vbOKCancel)
If myMsg = vbOK Then
For i = Range("通知書連続始め") To Range("通知書連続終わり")
Range("連続印刷するNO").Value = i
Worksheets("シート2").Select
Worksheets("シート2").PrintPreview (False)
Worksheets("シート2").PrintOut
Next
Else
MsgBox (" 一括印刷を中止しました ")
End If
End Sub
お礼
お礼遅くなって申し訳ありません。 なるほど、差し込み印刷機能ですね。見方を変えれば、こんな風にも使えるんですね。 結局の所は、Schemeを勉強し、Script-fuを書きました。 ありがとうございました!