diff --git a/components/lazreport/source/lr_class.pas b/components/lazreport/source/lr_class.pas
index 94ab16ef65..6a696f13e7 100644
--- a/components/lazreport/source/lr_class.pas
+++ b/components/lazreport/source/lr_class.pas
@@ -10356,6 +10356,8 @@ begin
   DebugLnEnter('TfrReport.DoPrintReport: INIT ',[]);
   DebugPrnInfo('=== INIT');
   {$endif}
+  if Prn.UseVirtualPrinter then
+    ChangePrinter(Prn.PrinterIndex, Printer.PrinterIndex);
   Prn.Printer := Printer;
   pgList := TStringList.Create;