lcOrigPrinter = set("Printer", 2) loWinFax1 = .Null. loWinFax1 = CREATEOBJECT("WinFax.SDKSend") SET PRINTER TO NAME "WinFax" IF !ISNULL(loWinFax1) WITH loWinFax1 .ResetGeneralSettings() .SetTo("Friend") .setcountrycode(" ") .setareacode(" ") .SetNumber(1234567) .SetResolution(0) .SetPrintFromApp(1) .SetUseCover(0) .ShowSendScreen(0) .ShowCallProgress(0) .SetSubject("") .AddRecipient() .Send(0) REPORT FORM MyFax TO PRINTER NOEJECT NOCONSOLE .Done() .LeaveRunning() ENDWITH RELEASE loWinFax1 loWinFax1 = .Null. set printer to name "&lcOrigPrinter" ENDIF