VBAを使った印刷を教えてください

質問

複数のシートがあります。シート2:A2に挿入したデータを元にシート2フォーム全体を印刷したいです。シート２フォーム全体がA1:O41で1シートとなっており、データ入力領域がB17:N36で縦20個単位になっています、A2に20を入れた場合1シートが、40を入れた場合2シートが・・・印刷できるようにしたいです。

回答No.1

imogasi

質問の内容と意味がわからない。
＞複数のシートがあります
名前ぐらい書くこと。
シート2というのは１つのシート名ですね。あとシート３、シート４・・とあるとする。
＞シート2:A2に挿入したデータを元に
挿入とは大げさ。「入力したデータ」ぐらいか。数字を入れるの？
文字列？何を表すデータ？
最後のほうの記述から、２０や４０を言っているから、行数を表すの。
＞フォーム全体を印刷したいです
フォームとはシートの一部にある表のことらしい？
フォームというのは多義的であいまい。
１シートに２つ以上の部分に分かれた票があるのかな？
＞シート２フォーム全体がA1:O41で1シートとなっており
シート２では領域A1:O41が１表ということですね？
シート３は？シート４の表の領域は変わるの？
＞データ入力領域がB17:N36で縦20個単位になっています
縦20個単位とは２０列、縦なら列かな。B-N列まで２０列無いね？
行だと３６－１７＋１＝２０で会いそうだが。
入力領域だけを印刷するのではないでしょう。なぜこの説明を入れるの？
＞A2に20を入れた場合1シートが、40を入れた場合2シートが・・・印刷できるようにしたいです。
２シートといっても２０行しかないなら、２部同じものを印刷するの？それとも上下に２表、３表連なっている場合があるのかな。
それなら最下行から、票数は割り出せないの？
＝＝
VBAをやっているのでしょうから、印刷は
（Range）.Printoutで印刷できることをご存知でしょう。
後はRangeをVBAコードでどう整える、そして繰り返しに持ち込むかだけです。
その辺に絞って、何が未経験事項なのか補足に書いてください。