luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Font size is now the same whatever the printer resolution.

Browse source 
[GB.REPORT2]
* BUG: Font size is now the same whatever the printer resolution.
This commit is contained in:
gambas 2020-06-11 11:25:42 +02:00
parent e2db8864bc
commit 7ef182f43d
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
comp/src/gb.report2/.src/Viewer/FPreview.class
View file

@ -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