Newsgroup: it.comp.lang.visual-basic
Titolo: Excel, Fax

Anyone know how to read data from Excel file, compile the data, and fax it
out?
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp
   Create Your Own Free Member Forum

Hello Alex,
Yes. If you can print it to your printer, you can print it to
ElectraSoft’s [Convert to Fax] and fax it.
While in a program that has printing capabilities,such as Excel,
MS-Word, etc; select ElectraSoft’s [Convert to Fax] as your printer,
and print to it.  The [Send Fax] box will appear, allowing you to fax
it wherever you want to.
All the Fax Machines in the world are your printers with ElectraSoft’s
fax software.
If you want to Scan and fax, load your [scanner copy to printer]
utility and select our Convert to Fax as your printer.


         Kind Regards, 
         Jon Krahmer, ElectraSoft
 Get newest version of [FaxMail for Windows], [FaxMail Network for Windows]
 or [32bit Fax], free trial: 
http://www.ElectraSoft.com/
 To read what users are saying about ElectraSoft's fax software, go to 
 
http://www.ElectraSoft.com/10GoodReasons/


To: "'Fax...@ElectraSoft.com'" <Fax...@ElectraSoft.com>
Subject: VB Code to batch send faxes
Date: Fri, 13 Feb 1998 12:58:06 -0600
Thanks for your help. I hope this will be of interest to you or your
customers.
Michael Walter
mwa...@luminet.net
(507) 454-3830
"Nenio superas similia troajxo"
 
 Case "Newfax"
        'Send Faxes to Customers
        'Assumes that 32BF Convert to Fax is already selected
        'as the default printer
        frmProduction.lblmessage.Caption = "Converting and sending Fax
Files..."
        frmProduction.lblmessage.Refresh
        Dim myfile As String
        Dim printline As String
        Dim SRCFILE As String
        Dim DESFILE As String
        Dim MYCHAR As String * 1
        For x = 1 To 50
            SRCFILE = "Z:\FAXES\FAX" & x & ".TMP"
            myfile = Dir(SRCFILE)
            If myfile <> "" Then
                'found a fax so copy correct DEL file
                FileCopy "Z:\BatchFiles\FaxBatch" & x & ".txt",
"C:\32BITFAX\SEND2FAX.DEL"
                'NOW CONVERT TO FAX FORMAT
                Open SRCFILE For Input As #1
                Do While Not EOF(1)
                    MYCHAR = Input(1, #1)
                    If MYCHAR <> Chr(13) And MYCHAR <> Chr(10) Then
                        printline = printline & MYCHAR
                    Else
                        If printline <> "" Then 'because of chr(13)
and chr(10)
                                                'code above, we will
be printing
                                                'a blank line. In
effect double spacing.
                                                'This will prevent
that.
                            Printer.Print printline
                        End If
                        printline = ""
                    End If
                Loop
                Close #1
                Printer.EndDoc
                Do
                DESFILE = Dir("C:\32BITFAX\SEND2FAX.DEL")
                '    'MUST KEEP LOOPING UNTIL THE SENDFAX
                '    'FILE HAS BEEN DELETED
                   If DESFILE <> "" Then
                    Else
                        Exit Do
                    End If
                Loop
            End If
        Next x
        frmProduction.lblmessage.Caption = ""
        frmProduction.lblmessage.Refresh
=======================
