FUNCTION FaxIt
oFax=CreateObject('WinFax.SDKSend8.0')
oFax.LeaveRunning

oFax.SetTo(lcTo)
oFax.SetCompany(lcCompany)
oFax.SetSubject(lcSubject)
oFax.SetNumber(lcFaxNo)
oFax.AddAttachmentFile("")
oFax.SetCoverFile("C:\Program Files\Symantec\Winfax\Cover\BASIC1.CVP") oFax.SetCoverText(" ")
oFax.SetPrintFromApp(1)
oFax.AddRecipient
oFax.Send(0)


REPORT FORM mycursor TO PRINTER NOCONSOLE

oFax=.NULL.