lparameters tlPreview local lcHeader, ; lcCompany, ; llReturn with This lcHeader = .cHeader lcCompany = oApp.GetCurrentCompany() .cHeader = lcCompany + chr(13) + .cHeader llReturn = dodefault(tlPreview) store lcHeader to .cHeader, .oReportEngine.cHeader, ; .oReportEngine.oReport.cHeader if llReturn .oReportEngine.SaveReportProperties() endif llReturn endwith return llReturnDoug