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