質問: range("使用品番号") + 1 loop msgbox "商品表印刷が終わりました。" end sub
回答: 一番簡単にやろうと思うと、 pdfファイルに書き出し、改めて2in1印刷 でしょうか。 または、エクセルだけで完結するなら 印刷フォーマットに落としたものを、シート3に蓄積して シート3をまとめて2in1印刷 と言う手も考えられなくはないです。