tmpFaxFile = FULLPATH(CURDIR()) + sys(2015)+".TIF" oFax = CreateObject("FAXCOMEX.FaxServer") oFax.connect(eFaxSoftW) SET PRINTER TO NAME eFaxSoftW +"\Fax" Report Form myreport TO FILE (tmpFaxFile) Noconsole oFaxDoc = CreateObject("FAXCOMEX.FaxDocument") oFaxDoc.Body = (tmpFaxFile) oFaxDoc.DocumentName = "Our company" oFaxDoc.Recipients.Add ("818014895274") oFaxDoc.Sender.Name = gluser oFaxDoc.Sender.Email = "" oFaxDoc.Sender.FaxNumber = "" oFaxDoc.ConnectedSubmit(oFax) && Fax it out oFax.Disconnect() release oFax, oFaxDoc delete file (tmpFaxFile)