FaxServerを用いたFax送信について (ID:83506)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 環境： Windows2000 SP4 VB6.0 （SPはあたっていません） Microsoft Word 2000 ＶＢからWindowsのファックス送信機能を利用して ファックス送信プログラムを作成しております。 Fax送信を行った際に、実際に送信しようとするドキュメントのページ数は １ページであるにも関わらず、送信されたファックスの内容は ２ページとなってしまいます。 （送信するドキュメントの内容はワードで１行書いただけのもの） １ページ目のヘッダには ・送信日時 ・送信者名 ・受信者（電話番号） ・ページ が自動で出力されています。 ２ページ目のヘッダ（？）には 「つづき 001.001」 と出力されてしまいます。 何とか余分な２ページ目の出力を止める方法は 無いものでしょうか？ ソース抜粋 ----------------------------------- Option Explicit Public pFaxSrv As FAXCOMLib.FaxServer Public pFaxDoc As FAXCOMLib.FaxDoc Public Function FaxSendEx() As Long On Error Resume Next Set pFaxSrv = Nothing On Error GoTo 0 Set pFaxSrv = New FAXCOMLib.FaxServer Call pFaxSrv.Connect("\\実際にはサーバ名") ' FAX ドキュメント生成 Set pFaxDoc = pFaxSrv.CreateDocument(App.Path & "\Test.doc") With pFaxDoc .FileName = App.Path & "\Test.doc" .FaxNumber = "***********" '送信先電話番号 .Send End With Set pFaxDoc = Nothing Set pFaxSrv = Nothing End Function