Hi! 各位大大,       目前因公司需要, 我寫了一支呼叫WinFax做傳真的程式. 於討論區中亦拜讀過相關文章, 但還是有些問題產生, 請各位大大幫忙. 環境: Windows 2000 or XP + Delphi 7 + WinFax9.0.2 + DdeWinFaxConv元件(由站上download) 目前的問題 : 我是將QR報表輸出至WinFax. 首筆是ok的, 但輸出至第2筆時, 則WinFax會show出WinFax PRO 傳送設定畫面要讓我鍵入收件者相關資訊等. 不知該如何排解 ? 我的程式大至如下 : procedure TExportFaxForm.SpeedButton6Click(Sender: TObject); // var EndTick: LongInt; begin   inherited;   if adotActionD.RecordCount>0 then      begin       if CheckBox2.Checked then        begin          ChangePrinter( FNewPrinter );          if not DdeWinFaxConv1.SetWinFaxLink then           begin             MessageDlg('無法與WinFax PRO連線.'#10#13+'請檢查是否有啟動WinFax PRO軟體.',mtError,[mbOk],0);             Abort;           end;          adotActionD.DisableControls;          adotActionD.First;          While not adotActionD.Eof do          begin           if not adotActionD.FieldByName('OFax').IsNull then            begin             // Add recipient to WinFax             with DdeWinFaxConv1 do begin              if MainDataModule.adotSysRef.FieldByName('DialAsEntered').Value='True' then                 DialAsEntered := False              else                 DialAsEntered := True;              DialPrefix := MainDataModule.adotSysRef.FieldByName('DialPrefix').Value;              LongDistancePrefix := MainDataModule.adotSysRef.FieldByName('LongDistance').Value;              if MainDataModule.adotSysRef.FieldByName('RemoveLAC').Value='False' then                 RemoveLocalAreaCode := False              else                 RemoveLocalAreaCode := True;              LocalAreaCode := MainDataModule.adotSysRef.FieldByName('LocalAreaCode').Value;              if MainDataModule.adotSysRef.FieldByName('IncludeDate').Value='False' then               IncludeSendDateTime := False              else               IncludeSendDateTime := True;             end;             // SendFaxParams             with DdeWinfaxConv1.SendFaxParams do begin              PhoneNumber := adotActionD.FieldByName('OFax').AsString;              SendDateTime := Now; //             RecipientName := ToolsForm.P_sUserName; //             RecipientCompany := MainDataModule.adotSysRef.FieldByName('CompName').Value;              RecipientName:=adotActionD.FieldByName('ActName').Value;              RecipientCompany:=adotActionD.FieldByName('SuppName').Value;              Subject := adotActionM.FieldByName('ActTitle').AsString;              Keywords := '';              BillingCode := '';              BftFax := 'Fax';             end;             DdeWinFaxConv1.Execute;             adoqActionD1.Close;             adoqActionD1.Parameters[0].Value:=adotActionD.FieldByName('ProjectNo').Value;             adoqActionD1.Parameters[1].Value:=adotActionD.FieldByName('SuppNo').Value;             adoqActionD1.Open;             TCG3500fax.Print;             // EndTick:=GetTickCount+1000;             // WHILE GetTickCount

建議使用NNWFAX搭配WinFaxPro
不錯用
===================引 用 longsanglin 文 章===================
Hi! 各位大大, 有誰能幫我解惑? 已困擾兩週了. help me

------
What do we live for if not to make life less difficult for each other?