[VB.Net]Excel両面印刷

質問

Excelブック内にある、すべてのシートを両面印刷するプログラムを書きたいです。

Dim objExcel As Excel.Application = Nothing
Dim objWorkBook As Excel.Workbook = Nothing
Dim objSheet As Excel.Worksheet = Nothing

'～省略～

objWorkBook.Sheets.Select()　'全てのシート選択

PrintDialog1.PrinterSettings.PrinterName = "プリントアウトするプリンタの名前"
PrintDialog1.PrinterSettings.Duplex = Duplex.Horizontal　'両面印刷設定（水平方向）
objWorkBook.Sheets.PrintOut(ActivePrinter:=PrintDialog1.PrinterSettings.PrinterName)　'印刷実行

これですべてのシートが印刷されましたが、片面印刷です。
PrintDIalog1で設定したものをExcelに反映できれば両面印刷できると思いますが、
方法がわかりません。
どうすれば設定できますか？

--------------------------------
OS：WindowsXP SP3
言語：VB.Net
開発環境：VisualStudio2010
.NetFramework4.0
MicrosoftOfficeExcel2003
プリンタ：両面印刷対応
--------------------------------

回答No.1

imogasi · ベストアンサー

別途、エクセル単独で両面印刷が出来ますか。今指定しているプリンタの機能と係わってくると思います。
ＶＢ．ＮＥＴからエクセルを実行するのだと思いますが、エクセルで出来る以上の機能はＶＢ．ＮＥＴからも実行できないと思います。
Duplex.Horizontal　は解説本（まあ初等が多いが）がなどで見たことも無いですが（ＧｇｏｏｇｌｅでもＶＢＡの記事としてはでない）、エクセルＶＢＡで実行できるかどうか。
マクロの記録で、両面印刷の部分はどうなりますか。私のはちゃちなプリンターで、両面印刷は手動で、チェックを入れて、マクロの記録を採ると、collate:=True と記録されるが、この意味は「印刷部数を2以上に指定した場合は引数collateを使用して印刷順序を指定する事が出来ます。」のことらしい。

補足

ご回答ありがとうございます。

Excelマクロの記録で両面印刷をして、VBAを読んでみてもコードにあらわれません。
他の操作(印刷実行、部数設定等)ならコードになっていますが。
これが出ないということはVB.netからも出来ないのでしょうか？

手動で行うと複数シートの両面印刷はできます。