ＶＢＡを使ってエクセルシートをＦＡＸで送信したい。

質問

最近仕事用のパソコンはＦＡＸ付きコピー機で印刷できるようになりました。
そこでエクセルの印刷設定の中でプリンターを（ＦＡＸ）に変更して、ＦＡＸ先電話番号を指定し送信ボタンを押せばプレビューしているシートをＦＡＸで送信してくれるようにもなりました。

そこで、毎回プリンターを変更して、電話番号を指定するのは大変なのでマクロを作ろうと思ったのですがマクロではＦＡＸ送信が記録されませんでした。
なのでＶＢＡで作るしかないと思ったのですがＶＢＡ素人の私には作ることができません。

どなたかご教授をお願いいたします。

ＯＳ：Ｗｉｎ７
オフィス：エクセル２０１０
プリンタ：DocuCentre-IV C4470(FAX)
電話番号：短縮0006
送信するシート：アクティブシート

回答No.1

kiki_s · ベストアンサー

複合機の機種名が分かっても、
中身までは使っていないユーザには分からないでしょうね。

>マクロではＦＡＸ送信が記録されませんでした。

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="プリンタ名"
上記の様なコードでプリンタを指定して印刷する事は可能です。

ＦＡＸの場合、送信先の番号が複数あるはずなので、
そのあたりがプリンタドライバにＶＢＡで渡せるかどうかにもよります。
しかし、プリンタのプロパティなどを表示させたりは可能ですが、
プリンタの設定まではＶＢＡではどうする事もできなかったはずです。

お礼

いろいろやってみましたが、電話番号の入力ができませんでした。
また研究してみたいと思います。