i'm writing vb project. On Click button i need to fax text from the text box.
Who is Participating?
Barry CunneyConnect With a Mentor Commented:
Barry CunneyCommented:
You could use the WriteProfileString API call and rewrite the [WINDOWS], DEVICE entry in the WIN.INI file to change printer to a FAX printer set up. VB will instantly use the new printer, when the next Printer.Print command is next issued
try this code:
Dim num As Integer

Private Sub cmdClose_Click()
End Sub

Private Sub Form_Load()
    cmbAttach.Enabled = False
    cmbFaxaddress.Enabled = False
    cmdCancel.Enabled = False
    cmdSend.Enabled = False
    Option1.Enabled = False
    Option2.Enabled = False
    Text1.Enabled = False
End Sub

Private Sub mnu_Connect_Click()
    If MSComm1.PortOpen = False Then
        MSComm1.PortOpen = True
        cmbAttach.Enabled = True
        cmbFaxaddress.Enabled = True
        cmdCancel.Enabled = True
        cmdSend.Enabled = True
        Option1.Enabled = True
        Option2.Enabled = True
        Text1.Enabled = True
        MsgBox "Port opened"
        MsgBox "Port already opened"
    End If
End Sub

Private Sub MSComm1_OnComm()

End Sub

Hi Sychev1,
It appears that you have forgotten this question. I will ask Community Support to close it unless you finalize it within 7 days. I will ask a Community Support Moderator to:

    Accept BCUNNEY's comment(s) as an answer.

Sychev1, if you think your question was not answered at all or if you need help, just post a new comment here; Community Support will help you.  DO NOT accept this comment as an answer.

EXPERTS: If you disagree with that recommendation, please post an explanatory comment.
DanRollins -- EE database cleanup volunteer
per recommendation

Community Support Moderator @Experts Exchange
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.