Excelで両面印刷

質問

Excel2007を使っています。
プリンタは，両面印刷の設定をしている状態です。

マクロで印刷をかけると，あるシートは両面印刷してくれますが，
違うシートはしてくれません。

シート名が違うだけで，後は全く同じマクロなのに不思議です。
理由をご存じの方，教えてください。

Sub 縮小印刷１()
Sheets("縮小印刷１").Select

A = InputBox("どこから印刷しますか？")
B = InputBox("どこまで印刷しますか？)
For I = A To B Step 2
Range("D2").Value = I
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$16"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next I
End Sub

回答No.1

keithin · ベストアンサー

まず、確実に上手くいく手順：
１．エクセルを起動する前に、標準のプリンタのプロパティで両面印刷の設定をしておきます
２．エクセルを起動しブックを「新規作成」します
３．マクロを使って（手動でも同じですが）それぞれのシートを印刷します

上手くいかない可能性：
上述の手順１が行われていない状態で新調したブックのシートや、別のブックから持ち込んだシートなどで、標準のプリンタの動作に従わないシートが発生する可能性があります。
また個別のシートで以前印刷する際に、印刷ダイアログでプロパティからプリンタの設定を変更していた場合などにも、うまくいかない可能性があります。
こういった「変な癖」が染みついたシートでは、うまくいく手順を行っても失敗します。

前述の段取りで上手くいくブックを作成し、新たに空シートを挿入、うまくいかないシートから「すべてのセルをコピーして貼り付けて」みることで、成功させられる可能性があります。

お礼

うまくいきました。

Excelにはそんな変なクセがあるのですね。
このブックは社員で共有しているので，またお案じ現象が出るかもしれませんね。

とりあえずは，何とかなりましたので，対策はまた考えます。

ありがとうございました。

回答No.2

noname#187541

こんにちは。

＞プリンタは，両面印刷の設定をしている状態です。
と言うのが、Excelの印刷画面から設定したのであれば、そのようになるでしょう。

Excelでは、プリンタの選択は、ほかのシートにも反映されますが、プリンタの設定はシートごとになっているようです。
あらかじめ両面印刷の設定をしたプリンタを用意しておけば、プリンタを切り替えるだけでうまくいきます。

お礼

それが，あらかじめ設定したプリンタでその現象が出てしまいます。
マクロから印刷しているので，Excelから印刷画面自体を出すことがないものですから・・・。

どうもありがとうございました。