エクセルVBAにて ｎアップ印刷と部数を指定する 方法をお教えください

質問

エクセルＶＢＡにて下記の操作をしたいのですが、うまくできません。
何卒ご教授ください。

(1)　印刷のプロパティにてｎアップ（４アップ）を指定する
(2)　印刷部数を指定する

いつも的確なご返答助かっております。今回もなにとぞよろしくお願いします。

回答No.2

imogasi · ベストアンサー

ページ設定操作をして、マクロの記録を採ればどういうコードなのか判るのでは。
VBAレベルでは印刷プリンターの制御は限定的のように（経験上）思うが。
（１）は関連記事では
http://q.hatena.ne.jp/1159512581
http://blog.blueblack.net/item_53
この用語はやや業界用語かな？
（１）はPageSetupの.FitToPagesWide =や .FitToPagesTall で出来ないかな、出来なければVBAでは制御できないということになるのでは
ないかな。(制御するにはプリンターに特別な信号を送る高等な知識スキルが要るのでは）。
http://www.moug.net/tech/exvba/0070009.htm
（２）はPrintOut　のCopiesで（印刷部数の指定）
http://www.moug.net/tech/exvba/0050119.htm
ーー
これらの設定画面は、プリンタのドライバー（機種ごと？）を導入するときに作られるようで（Excel側ばかりではない）、メーカー機種によって違うようだ。機能によっては備えてないプリンターもあると思う。（２）は必ずあり、（１）が上記ならば、普通はあると思うが。

補足

丁寧なご返答ありがとうございます。
マクロの記録ではコードは現れませんでした。
プリンターの制御はやはり難しいことなんですね。

回答No.1

hana-hana3

１．ｎアップはプリンタの機能なので制御できません。
２．Copies:=　に部数を数値指定
ActiveWindow.SelectedSheets.PrintOut Copies:=10, Collate:=True