Index: components/turbopower_ipro/iphtml.pas
===================================================================
--- components/turbopower_ipro/iphtml.pas	(revision 44779)
+++ components/turbopower_ipro/iphtml.pas	(working copy)
@@ -854,6 +854,7 @@
   TINTARRGROWFACTOR = 64;
   DEFAULT_PRINTMARGIN = 0.5; {inches}                                  {!!.10}
   FONTSIZESVALUSARRAY : array[0..6] of integer = (8,10,12,14,18,24,36);
+  PrintModus : Boolean = False;                             //Patch
 
 type
   {$IFDEF IP_LAZARUS}
@@ -10246,7 +10247,8 @@
           {$ENDIF}
             aCanvas.Brush.Style := bsClear;
           //debugln(['TIpHtmlNodeBlock.RenderQueue ',CurWord.AnsiWord]);
-          Owner.PageRectToScreen(CurWord.WordRect2, R);
+          if (not PrintModus) or (R.Bottom < Owner.PageViewRect.Bottom) then   //Patch
+            Owner.PageRectToScreen(CurWord.WordRect2, R);
           {$IFDEF IP_LAZARUS}
           if CurWord.Owner.FParentNode = CurTabFocus then
           begin
@@ -17767,6 +17769,7 @@
   if (Hyper <> nil) then begin
     BeginPrint;                                                        {!!.10}
     Printer.BeginDoc;
+    PrintModus := True;                                                //Patch
     try
       (*
       ScaleBitmaps := True;                                            {!!.02}
@@ -17791,6 +17794,7 @@
         Printer.Abort;
       {InvalidateSize;}                                                {!!.10}
       EndPrint;                                                        {!!.10}
+      PrintModus := False;                                             //Patch
     end;
   end;
 end;