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

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

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

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


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

No.1 ベストアンサー 回答者： kiki_s 回答日時： 2013/04/14 23:45

複合機の機種名が分かっても、

中身までは使っていないユーザには分からないでしょうね。

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

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

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

この回答へのお礼

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

お礼日時：2013/07/10 14:41