diff --git a/lcl/interfaces/qt/qtobjects.pas b/lcl/interfaces/qt/qtobjects.pas
index b1362f680c..d4891cf647 100644
--- a/lcl/interfaces/qt/qtobjects.pas
+++ b/lcl/interfaces/qt/qtobjects.pas
@@ -4435,7 +4435,8 @@ var
   Str: WideString;
 begin
   Str := AValue;
-  QPrinter_setPrinterName(FHandle, @Str);
+  if getPrinterName <> AValue then
+    QPrinter_setPrinterName(FHandle, @Str);
 end;
 
 function TQtPrinter.getPrinterName: WideString;
diff --git a/lcl/interfaces/qt5/qtobjects.pas b/lcl/interfaces/qt5/qtobjects.pas
index a7d1bc0269..cf6403f2e1 100644
--- a/lcl/interfaces/qt5/qtobjects.pas
+++ b/lcl/interfaces/qt5/qtobjects.pas
@@ -4441,7 +4441,8 @@ var
   Str: WideString;
 begin
   Str := GetUtf8String(AValue);
-  QPrinter_setPrinterName(FHandle, @Str);
+  if getPrinterName <> Str then
+    QPrinter_setPrinterName(FHandle, @Str);
 end;
 
 function TQtPrinter.getPrinterName: WideString;