Newsgroup: it.comp.lang.visual-basic
Titolo: Fax driver

Hi,
I need some way to create a fax driver in VB so that when a user selects it
from the Print Setup of any application, data is sent to this driver where I
will create a TIFF it for faxing.  Can anyone point me in the right direction
as to where should I start?  Does anyone have any examples?
Any help regarding this will be deeply appreciated.  Please e-mail me at
Muhamma...@USA.NET
 with any answers/comments.
Thank you.
Muhammad Haroon.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp
   Create Your Own Free Member Forum


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
=======================
         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/