From 526e755e0ed7871177781bfbf87b702ab7a8d87c Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@lazarus-ide.org>
Date: Mon, 23 Jul 2018 00:34:07 +0000
Subject: [PATCH] LazReport: do not try to set printer paper info when an
 exception occurs in ChangePaper

git-svn-id: trunk@58598 -
---
 components/lazreport/source/lr_class.pas | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/components/lazreport/source/lr_class.pas b/components/lazreport/source/lr_class.pas
index 41c0432534..ba3e718ec6 100644
--- a/components/lazreport/source/lr_class.pas
+++ b/components/lazreport/source/lr_class.pas
@@ -7470,10 +7470,8 @@ begin
     on E:exception do
     begin
       {$ifdef DbgPrinter}
-      Debugln(['Exception: selecting custom paper ']);
+      Debugln('Exception: %s', [E.Message]);
       {$endif}
-      Prn.SetPrinterInfo($100, AWidth, AHeight, AOr);
-      Prn.FillPrnInfo(PrnInfo);
     end;
   end;
   pgSize := Prn.PaperSize;