On Tue, 2011-07-19 at 15:40 +0200, Benoît Minisini wrote: > > Benoit, > > > > Paint.scale work good if there is not text ..; but if there is ... > > then text font size is increased by the scale too > > > > This is normal. This it the goal of that matrix: everything is scaled. I > added > a remark about that on the "How to print" wiki page.
> Regards, > At "How to print" page says: Consequently, if a 10 points font is a good size for drawing text on the screen, it may be too big for the paper: as the printer resolution is far greater than the screen resolution, you usually print things smaller. We know that Desktop.Resolution uses 12 points Font, for example Also we know Printer.Resolution, so X points Font should be on printer. I made an example --------- ' Gambas class file Public Sub Button1_Click() If Not Printer1.Configure() Then Printer1.Count = 1 Printer1.FullPage = True Printer1.Print Endif End Public Sub Printer1_Draw() Dim X As Float Dim Y As Float Dim W As Float Dim H As Float Dim hFactor As Float Dim wFactor As Float hFactor = Paint.Height / Printer1.PaperHeight wFactor = Paint.Width / Printer1.PaperWidth Paint.Scale(wFactor, hFactor) 'Set brush Paint.Brush = Paint.Color(Color.RGB(255, 0, 0, 0)) Paint.LineWidth = 0.45 'Set origin 0,0 X = 0 Y = 0 'Set width, height of printing area W = Printer1.PaperWidth - Paint.LineWidth H = Printer1.PaperHeight - Paint.LineWidth 'Draw printing area with red rectangle Paint.Rectangle(X, Y, W, H) Paint.Stroke 'Draw font Paint.MoveTo(10, 10 + Paint.TextExtents("toto").Height) Paint.Font.Name = "Times New Roman" Paint.Font.Size = 12 * (Desktop.Resolution / Printer1.Resolution) Paint.Text("toto") Paint.Fill End ------------- You know allreay the code but check out the line Paint.Font.Size = 12 * (Desktop.Resolution / Printer1.Resolution) i think this line prints a good 12 points font on a pdf as i see. Compare the result with an OpenOffice pdf. It has good success. i attach the project. -- Regards, Demosthenes
PrintFonts.tar.bz2
Description: application/bzip-compressed-tar
------------------------------------------------------------------------------ Magic Quadrant for Content-Aware Data Loss Prevention Research study explores the data loss prevention market. Includes in-depth analysis on the changes within the DLP market, and the criteria used to evaluate the strengths and weaknesses of these DLP solutions. http://www.accelacomm.com/jaw/sfnl/114/51385063/
_______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user