FaxServerを用いたFax送信について


やす  2004-05-24 16:09:12  No: 83506  IP: [192.*.*.*]

環境:
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

編集 削除