環境:
Windows2000 SP4
VB6.0 (SPはあたっていません)
Microsoft Word 2000
VBからWindowsのファックス送信機能を利用して
ファックス送信プログラムを作成しております。
Fax送信を行った際に、実際に送信しようとするドキュメントのページ数は
1ページであるにも関わらず、送信されたファックスの内容は
2ページとなってしまいます。
(送信するドキュメントの内容はワードで1行書いただけのもの)
1ページ目のヘッダには
・送信日時
・送信者名
・受信者(電話番号)
・ページ
が自動で出力されています。
2ページ目のヘッダ(?)には
「つづき 001.001」
と出力されてしまいます。
何とか余分な2ページ目の出力を止める方法は
無いものでしょうか?
ソース抜粋
-----------------------------------
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