diff --git a/components/fpreport/fpreportlclexport.pas b/components/fpreport/fpreportlclexport.pas
index 57287cdb0a..4d7491138c 100644
--- a/components/fpreport/fpreportlclexport.pas
+++ b/components/fpreport/fpreportlclexport.pas
@@ -736,6 +736,10 @@ begin
   SR:=GetElementRect(BL,SL);
   { Frame must be drawn before the shape as it could have a fill color. }
   RenderFrame(AShape.Frame, SR, ABand.Frame.BackgroundColor);
+  { exit if Shape will not be visible. }
+  if (TFPReportShape(AShape).Color = fpreport.clNone)
+  or (TFPReportShape(AShape).Color = AShape.Frame.BackgroundColor) then
+    exit;
   Canvas.Pen.Color:=TFPReportShape(AShape).Color;
   Canvas.Pen.Style:=psSolid;
   Canvas.Pen.Width:=1;