表引きの一括両面印刷マクロ

質問

こんにちは　いつもお世話になっています
（ＸＰ、エクセル2003）

エクセルに「個人票」シートがあります。
表引きして、特定のレンジで印刷するための下記のマクロを使っています。

Sub 個人票印刷()
Range("個人番号") = Range("自")
Do While Range("個人番号") <= Range("至")
Sheets("個人票").PrintOut
Range("個人番号") = Range("個人番号") + 1
Loop
End Sub

例えば、セル名の”自”、”至”にそれぞれ、1、50と入力すれば個人番号の1-50が印刷されます。
また、「個人票裏」というシートにも

Sub 個人票裏印刷()
Range("個人番号イ") = Range("自イ")
Do While Range("個人番号イ") <= Range("至イ")
Sheets("個人票裏").PrintOut
Range("個人番号イ") = Range("個人番号イ") + 1
Loop
End Sub

というマクロがあり「個人票」を印刷してから、裏面に「個人票裏」を印刷している状態です。
今回教えていただきたいのは「個人票」と「個人票裏」を両面印刷するマクロです。
上記マクロを使わずに「個人番号」「個人番号イ」に同じ番号を手動で入力して両シートを選択して両面印刷はできています。
関連情報でも構いません。よろしくお願いします。

回答No.1

hige_082 · ベストアンサー

＞上記マクロを使わずに「個人番号」「個人番号イ」に同じ番号を手動で入力して両シートを選択して両面印刷はできています。
で、出来るのなら、これをマクロの記録で記録し
コードをアレンジすればよろしいのでは？

'試してませんが、こんな感じになるのでは？と思います
Sub 票印刷()
Sheets("個人票").Range("個人番号") = Sheets("個人票").Range("自")
Sheets("個人票裏").Range("個人番号イ") = Sheets("個人票裏").Range("自イ")
Do While Sheets("個人票").Range("個人番号") <= Sheets("個人票").Range("至")
Sheets(Array("個人票", "個人票裏")).PrintOut
Sheets("個人票").Range("個人番号") = Sheets("個人票").Range("個人番号") + 1
Sheets("個人票裏").Range("個人番号イ") = Sheets("個人票裏").Range("個人番号イ") + 1
Loop
End Sub

当方、両面印刷できる環境が無いので、あくまでサンプルです

お礼

hige_082 様　ありがとうございました。
お陰さまで成功しました。
SheetsとかArrayとか勉強になりました。
簡単で恐縮ですが、お礼申し上げます。

関連で特定の個人番号を印刷しないためのコマンドを質問させていただきます。機会があればまたご教授ください。