[kevcronin]

Hi:

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?

Thanks
Kev

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
DoEvents
Loop
For Each rcell In ProviderList.Cells
rcell.Copy Sheets(“Database”).Range(“N3”)
Sheets(“Database”).Select
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
DoEvents
Loop
End With
Next rcell
Set objWinFaxSend = Nothing
Application.ScreenUpdating = True

[Author]

Posts