طلب كود للطباعة على الفاكس

Dim objFaxDocument As New FAXCOMEXLib.FaxDocument

Dim objFaxServer As New FAXCOMEXLib.FaxServer

Dim objSender As FaxSender

Dim JobID As Object

objFaxServer.Connect("LAB1-STU15")

objFaxDocument.Body = "c:\Test.txt"

objFaxDocument.DocumentName = "My First Fax"

objFaxDocument.Recipients.Add("94114619774", "Bud")

objFaxDocument.AttachFaxToReceipt = True

objFaxDocument.Note = "Here is the info you requested"

objFaxDocument.Subject = "Today's fax"

JobID = objFaxDocument.ConnectedSubmit(objFaxServer