[EventSubscriber(ObjectType::Table, Database::"Report Selections", 'OnBeforeSaveReportAsPDF', '', false, false)]
local procedure OnBeforeSaveReportAsPDF(var ReportID: Integer; RecordVariant: Variant; var LayoutCode: Code[20]; var IsHandled: Boolean; FilePath: Text[250]; ReportUsage: Enum "Report Selection Usage"; SaveToBlob: Boolean; var TempBlob: Codeunit "Temp Blob"; var ReportSelections: Record "Report Selections")
var
ReportLayoutSelectionLocal: Record "Report Layout Selection";
CustomLayoutReporting: Codeunit "Custom Layout Reporting";
CustomerStatementSub: codeunit "Customer Statement Subscr";
LastUsedParameters: Text;
OutStream: OutStream;
begin
if ReportID = 78301 then begin
TempBlob.CreateOutStream(OutStream);
LastUsedParameters := CustomLayoutReporting.GetReportRequestPageParameters(ReportID);
Report.SaveAs(ReportID, LastUsedParameters, ReportFormat::Word, OutStream, GetRecRef(RecordVariant));
IsHandled := true;
end;
end;