VBAで印刷時各シートをページに変換

質問

VBA初心者です。よろしくお願いします。
エクセルのVBAでやりたいことは下記事項です。
(1)ｃｓｖファイルを読み込みシート１に展開する。
(2)シート１のデータをシート２に埋め込みグラフを作成する。
(3)シート３にシート２の部分的に拡大した埋め込みグラフを作成する。
(4)シート４に運転時の各設定値を表作成する。
(5)シート２から４までを選択したプリンタで印刷する。印刷はプリンタのプロパティ切り替えで両面印刷もできる。
ざっと、上記のことをやりたいのですが、なんとかインターネット等で調べて(1)から(4)までは動作するプログラムができましたが(5)のシート２から４までを選択したプリンタで印刷することは１ページに１シート片面印刷はできるのですが両面印刷でシート２から４までを印刷する部分が分かりません。
シート２，３はグラフなので用紙いっぱいに印刷したい。

どうすればよいか皆様ご教授よろしくお願いします。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　以上

回答No.2

end-u · ベストアンサー

>Windowsメニューから...の説明がよくわかりません。
基本的な設定自体は【手作業】でやってください、という事です。

プリンタの両面印刷はプリンタに依存する機能です。
ExcelのBookやSheetに対して設定を変更したりするものではありません。
ExcelVBAだけではできません。
>できれば、そのVBAリストを載せてもらえばありがたいのですが。
http://support.microsoft.com/kb/828638/ja
こちらの記事内容が理解できれば、かつ、プリンタが対応できれば
Sub test()
　　Const PRT = "LP-M5500" 'プリンタのDeviceIDがこれだと仮定して
　　SetPrinterDuplex PRT, 2
　　Sheets(Array("Sheet1", "Sheet2")).PrintOut ActivePrinter:=PRT
End Sub
こんな感じで可能ですが。

難しければ、事前準備として【手作業】で
Windowsスタートメニューからの[設定]-[コントロールパネル]-[プリンタとFAX]。
WindowsOS自体のプリンタ設定を行います。
例えば"LP-M5500"というプリンタで印刷したいとして、
この"LP-M5500"をもう１つ別名で追加登録して、両面印刷をデフォルトに設定します。
これを"LP-M5500両面"という名前で登録したとしたら、
印刷時のVBAは
Sheets(Array("Sheet1", "Sheet2")).PrintOut ActivePrinter:="LP-M5500両面"
これで両面印刷できます。

お礼

早速のご回答すみません。
なにせ、vba等のプログラムはあまりくわしくなくて...
とりあえず、明日会社で手作業の手順で試してみます。
結果はおってご報告します。
ありがとう御座いました。
　　以上

回答No.1

end-u

Excelの印刷メニューではなく、Windowsメニューから
両面印刷したいプリンタのプロパティを開き、両面印刷の設定をしてください。
（プリンタのデフォルト設定にする）
その後、Excel側で一旦別のプリンタに切り替えた後、
再度、両面印刷設定したプリンタを選択して印刷すれば、できると思います。

必要であれば、そのプリンタを別名で追加登録して、
デフォルト設定を片面｜両面の２通りに分ける事で
片面｜両面印刷に関するVBAでの切替が比較的簡単にできます。

>シート２，３はグラフなので用紙いっぱいに印刷したい。
こちらは印刷時の用紙の大きさ以上にワークシート上に拡大配置するようにして、
[ページ設定]で「..ページ数に合わせて印刷」設定を選ぶと良いです。

お礼

ご回答ありがとうございます。
Windowsメニューから...の説明がよくわかりません。
できれば、そのVBAリストを載せてもらえばありがたいのですが。
よろしくお願いします。