エクセルVBAで、プリンタ名とプロパティを指定したい

質問

Excel97を使用しています。

用紙サイズ：A4縦の書類を2ページ作成しました。書類は縦並びになっています。
これをエクセルVBAを使って、A4の用紙に両面印刷するか、A3横の用紙に割付印刷したいのですが方法はありますでしょうか？

エクセルのページ設定でA3横にして横並びで作成しようとしたのですが、行の高さがページ毎で異なっていますので、横並びでは作成できませんでした。

ワークシート上にボタンを作成しましたので、それをクリックするだけで、特定のプリンタ名を指定し、そのプリンタのプロパティで両面もしくは割付印刷を設定して印刷させたいのです。

ご存知の方、どうぞよろしくお願いいたします。

回答No.1

imogasi

（１）特定のプリンタ名を指定し、
http://www.asahi-net.or.jp/~ZN3Y-NGI/YNxv261.html#5
に、ピッタリの解説があります。
（２）用紙サイズ：A4縦の書類
With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
.Orientation = xlPortrait
End With
他の設定項目はわざと省略。
Ａ３の用紙ではあるが、印刷内容がＡ４なので、Ａ４で印刷を指定で良いと思うが、自信なし。
（３）A3横にして横並びで
下記で、Ｚ型の印刷順序しませんか。（普通はＮ型）
上左部－－＞上右部
改ページ
下左部－－＞下右部（４ページの場合）
と印刷すると思いますが、Ａ３プリンタ使ったことなく
自信なし。
With ActiveSheet.PageSetup
で
.Order = xlOverThenDown
Ｂ４、Ａ３プリンタでテスト出来る環境でないので、済みません。

お礼

ご回答どうもありがとうございます。
プリンタ名を指定するところまではできたのですが、
肝心のプリンタプロパティはどうもAPIなどを使わないと無理なようでした。
他に方法を考えてみることにしました。
またわからないことがありましたらよろしくお願いします。