diff --git a/comp/src/gb.report2/.src/Viewer/FPreview.class b/comp/src/gb.report2/.src/Viewer/FPreview.class
index b422247a7..431a2017a 100644
--- a/comp/src/gb.report2/.src/Viewer/FPreview.class
+++ b/comp/src/gb.report2/.src/Viewer/FPreview.class
@@ -341,6 +341,8 @@ Public Sub Printer_Begin()
   ProgressBar1.Pulse = True
   lblPrint.Text = ("Layout...")
   
+  Paint.FontScale = 25.4 / 72 * Paint.W / $hPrinter.PaperWidth * 72 / 96 * 96 / $hPrinter.Resolution
+  
 End
 
 Public Sub Printer_Paginate()
@@ -358,7 +360,7 @@ Public Sub Printer_Paginate()
 End
 
 Public Sub Printer_Draw()
-  
+
   If View.RangePages.Count = 0 Then 
     View.Report.Paint($hPrinter.Page)
   Else