diff --git a/components/printers/qt/qtprinters.inc b/components/printers/qt/qtprinters.inc
index 9a31935c0c..7a5263c6ad 100644
--- a/components/printers/qt/qtprinters.inc
+++ b/components/printers/qt/qtprinters.inc
@@ -214,6 +214,7 @@ begin
   {$IFDEF VERBOSE_QT_PRINTING}
   DebugLn('TQtPrinters.DoBeginDoc()');
   {$ENDIF}
+  QtDefaultPrinter.DocName := Title;
   BeginPage;
 end;