From f9d0cabc30d5db572c1f04516d09227420e696b7 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Fri, 14 May 2021 17:46:10 +0000
Subject: [PATCH] Qt: fixed compilation - regression from r65113 #80d2cfa567 by
 Jesus

git-svn-id: trunk@65116 -
---
 components/printers/qt/qtprinters.inc | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/components/printers/qt/qtprinters.inc b/components/printers/qt/qtprinters.inc
index 7b4bd87e5b..f64db7a1af 100644
--- a/components/printers/qt/qtprinters.inc
+++ b/components/printers/qt/qtprinters.inc
@@ -198,17 +198,19 @@ var
   procedure AddAll;
   var
     i: Integer;
-    oldPageSize: QPagedPaintDevicePageSize;
-  begin
-    oldPageSize := QtDefaultPrinter.PageSize;
     {$IFDEF LCLQt5}
+    oldPageSize: QPagedPaintDevicePageSize;
+    {$ENDIF}
+  begin
+    {$IFDEF LCLQt5}
+    oldPageSize := QtDefaultPrinter.PageSize;
     for i:=QPagedPaintDeviceA4 to QPagedPaintDeviceCustom do
       Add(ArrPapers[i], i);
+    QtDefaultPrinter.PageSize := oldPageSize;
     {$ELSE}
     for i:=QPrinterA4 to QPrinterCustom do
       Add(ArrPapers[i], i);
     {$ENDIF}
-    QtDefaultPrinter.PageSize := oldPageSize;
   end;
 
 begin