[chatty]

Hi John, thanks for the response.
What do you mean by “you could find a specific fax number at a cell location. Loop through the pages/sheets, send the recipient data to winfax for each page,” Are you saying that the user needs to do a few manual steps for each page? Remember I am trying to make this a totally automated process for the user.

[chatty]

Hi John
I see what you mean, but while I’m recording the macro where would I tell winfax to look for the recipient details ? IE: do you mean I must ditch the idea of using embedded names (like wfxFaxNUM) and refer winfax to a list on that page?

[chatty]

@Moderator wrote:

Glad it worked out! This is one area where WinFax can really out perform other fax programs out there, many of them don’t have this ability to allow for automation with other software.

Hi again
I have been busy developing other parts of my spread sheet.
One of the problems I have is that I have to re-create and rename the winfax macro for every page to be faxed sequentially, and I have over 70 pages, one for each supplier that needs to be faxed with a daily order.
So for example, sheet 1 is linked to winfaxmacro1, sheet 2 is linked to winfaxmacro 2.
So I have to create 70 macros by modifying the text in the original macro: wfxFaxNum is changed to wfxFaxNumA, wfxRecipient is changed to wfxFaxRecipientA etc.
Excel doesn’t allow me to copy the defined names wfxFaxNum; wfxFaxRecipient; wfxShowSendScreen; wfxSetHold across multiple pages, so in each worksheet I have to define 4 names: wfxFaxNumA; wfxFaxRecipientA wfxShowSendScreenA; wfxSetHoldA etc, using insert name>define.
I am try to find a way so that I don’t have to create 70 individual macros, but to just use the main winfax pro macro “locally” on each sheet. Any ideas?

[chatty]

Hi Moderator
Thanks for the reply
I had already managed to get it all to work!

I inserted the following few lines into the macro just before the end:

If Range(“C65:C65”) > “0” Then
ActiveSheet.PrintOut
End If
In the spreadsheet all I did was add a SUM formula in cell C65 at the end of the column of data. If there is no data, then the total at cell C65 =0
This will prevent the page from faxing

With regard to making the macro work for multiple pages:
On the first page of my spreadsheet I inserted
wfxFaxNum, wfxRecipient, wfxShowSendScreen (= 0) wfxSetHold (=1) (I want all the faxes to sit in the outbox before I send them)
Each page has to fax to a different supplier, so I then created wfxFaxNumA, WfxRecipientA etc on the next page, wfxFaxNumB on the third page and so on for all the pages.
I then copied my modified winfax macro and then imported it into a new module, one for each supplier.

I then modified each copied macro by
1) renaming it to WinfaxMacroA, WinFaxMacroB etc
2) searched and replaced wfxFaxNum with wfxFaxNumA, wfxRecipient with wfxRecipientA etc

I tested each page by running the specific macro for each page, then I recorded a macro that starts at page one, runs the WinfaxMacro, goes to the next page , runs the WinFaxMacroA , next page etc. Then added a custom “Fax All” button to the toolbar linked to this new macro.
All the user has to do is click on the button. It all works very smoothly with no problems

[chatty]

Thanks John
I bought v10.0 off E-bay and upgraded to 10.01. Everything is working well, except I want to add a few lines to my macro to prevent blank pages (ie pages with no data from faxing)
I got this macro below from an Excel forum but the Winfax macro is so long I wouldn’t know where to insert it

Sub EmailWorkbook()
Dim ws As Worksheet
For Each ws In Worksheets
If Not IsEmpty(ws.Range(“A3:IV65536”)) Then ‘header in first two rows
ws.PrintOut ActivePrinter:=”Winfax?”
End If
Next ws
End Sub

[chatty]

Thanks John
I’ll try V9.02

[chatty]

Thanks for that, I’ll give it try

[chatty]

Thanks John
any ideas where I can get an upgrade to 10.03?

[chatty]

Hi John
Thankyou for the quick response
I am using WIN XP SP3, Winfax pro10.02

[Author]

Posts