Fax Software

Community Forums

  • This topic is empty.
Viewing 1 post (of 1 total)
  • Author
  • #2552


    I started out with this project on XP & WinFax 10.02. This forum helped me understand why my project wouldn’t work. Now I’m using win98 & 10.02. In my macro, an excel sheet loops through a list and produces a report which is (hopefully) faxed to the intended recipient.

    The macro does produce all the reports-it is the fax part that’s stumping me. I can get the 1st report to fax, then what happens is the remaining reports are attached to a single recipient and the address data (recipient & fax # isn’t captured correctly). I’d appreciate comments on the code.

    Final thought, will I need to uninstall the Winfax macro for excel?


    Application.ScreenUpdating = False
    Dim objWinFaxSend As Object
    Set objWinFaxSend = CreateObject(“winfax.sdksend8.0”)
    objWinFaxSend.SetClientID (“Client Name”)
    Dim RetCode
    Dim strRecipient, strFaxNumber As String
    strRecipient = Worksheets(“database”).Range(“N3”)
    strFaxNumber = Worksheets(“database”).Range(“O7”)
    RetCode = objWinFaxSend.SetTo(strRecipient)
    RetCode = objWinFaxSend.SetNumber(strFaxNumber)
    RetCode = objWinFaxSend.SetQuickCover(1)
    RetCode = objWinFaxSend.setSubject(“FastCall Report”)
    RetCode = objWinFaxSend.SetCoverText(“FastCall Action Required”)
    RetCode = objWinFaxSend.AddRecipient()
    RetCode = objWinFaxSend.setPrintFromApp(1)
    RetCode = objWinFaxSend.showsendScreen(1)
    RetCode = objWinFaxSend.Send(1)
    Application.ActivePrinter = “WinFax on LPT1:”
    Dim copycell, printercopycell As String
    copycell = Worksheets(“reference”).Range(“F1”)
    printercopycell = Worksheets(“reference”).Range(“F2”)
    Dim rcell As Range, ProviderList As Range
    Set ProviderList = Worksheets(“Reference”).Range(“A5: ” & copycell)
    Do While objWinFaxSend.isreadytoprint = 0
    For Each rcell In ProviderList.Cells
    rcell.Copy Sheets(“Database”).Range(“N3”)
    Range(“A8:J5000”).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range(“DoctorCrit”), Unique:=False
    With ActiveSheet.PageSetup
    .PrintTitleRows = “$1:$8”
    .PrintTitleColumns = “”
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Do While objWinFaxSend.IsEntryIDReady(0) <> 1
    End With
    Next rcell
    Set objWinFaxSend = Nothing
    Application.ScreenUpdating = True

Viewing 1 post (of 1 total)
  • You must be logged in to reply to this topic.