Fax via modem

[kuzure]

Dear friends,

I’m doing an assignment that need to fax a document. I a newbie and know some basic coding. After did tons of research, I able to write something at last. But there are some problems, the coding below not allow me to fax. Can anyone help me to check my code?

‘Setting mscomm and dial
Private Sub cmdDial_Click()

Dim results As String
Dim num_tries As Long

DoEvents
On Error GoTo Oops <----------my friend suggested me to add in, whats for?

' Try to give MSComm1 time to close.
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
DoEvents

' Set the comm port number, actually I can assume it is always Port 1
MSComm1.CommPort = CInt(cboCommPort.Text)

' Read the entire buffer when Input is used.
MSComm1.InputLen = 0

' 9600 baud, no parity, 8 data bits, 1 stop bit. Is it a default setting?
MSComm1.Settings = "9600,N,8,1"

' Open the comm port.
MSComm1.PortOpen = True

' Dial the phone number.
MSComm1.Output = "ATDT " & CleanPhoneNumber(txtPhoneNumber.Text) & vbCr

' Ask the user to wait until the phone rings.
MsgBox "Connecting…", vbOKOnly, "Please Wait"

‘Print document, If I choose a printing device as a modem, it might able to print by fax machine.
Print form

' Close the serial port.
MSComm1.PortOpen = False
Exit Sub


Appreciate to any reply.Thank you.

[kuzure]

Dear friends,

Sorry, I had miss post something, and cannot be edited, so I post this again, this is my coding, which might wrong.

I’m doing an assignment that need to fax a document. I a newbie and know some basic coding. After did tons of research, I found out a way to fax. But there is some problem, the coding below not allow me to fax. Can anyone help me to check my code?

‘Setting mscomm and dial
Private Sub cmdDial_Click()

Open “C:\VB6\testing.doc” For Input As #1

DoEvents
On Error GoTo Oops

' Try to give MSComm1 time to close.
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
DoEvents

' Set the comm port number.
MSComm1.CommPort = CInt(cboCommPort.Text)

' Read the entire buffer when Input is used.
MSComm1.InputLen = 0

' 9600 baud, no parity, 8 data bits, 1 stop bit.
MSComm1.Settings = "9600,N,8,1"

' Open the comm port.
MSComm1.PortOpen = True

' Dial the phone number.
MSComm1.Output = "ATDT " & CleanPhoneNumber(txtPhoneNumber.Text) & vbCr

' Ask the user to wait until the phone rings.
MsgBox "Connecting…", vbOKOnly, "Please Wait"

‘Print document
Print form

' Close the serial port.
MSComm1.PortOpen = False
Exit Sub

Appreciate to any reply. Thank you.