From 7ef182f43df8147c0f9756c92643091fa3098a84 Mon Sep 17 00:00:00 2001
From: gambas <g4mba5@gmail.com>
Date: Thu, 11 Jun 2020 11:25:42 +0200
Subject: [PATCH] Font size is now the same whatever the printer resolution.

[GB.REPORT2]
* BUG: Font size is now the same whatever the printer resolution.
---
 comp/src/gb.report2/.src/Viewer/FPreview.class | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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