> Dear developers,
>
> is there any way I can calculate the height in millimeters of a font
> at a certain size?
>
> Thank you in advance.
>

>         Dim canvas As Graphics
>         Dim result As SizeF
>         Dim stdHeight As Single
>         Dim mmHeight As Single
>         Dim inHeight As Single
>
>         canvas = Me.CreateGraphics()
>
>         ' ----- Get the height in default measurements.
>         result = canvas.MeasureString("Ag", Me.Font)
>         stdHeight = result.Height
>
>         ' ----- Get the height in millimeters.
>         canvas.PageUnit = GraphicsUnit.Millimeter
>         result = canvas.MeasureString("Ag", Me.Font)
>         mmHeight = result.Height
>         canvas.ResetTransform()
>
>         ' ----- Get the height in inches.
>         canvas.PageUnit = GraphicsUnit.Inch
>         result = canvas.MeasureString("Ag", Me.Font)
>         inHeight = result.Height
>         canvas.ResetTransform()
>
>         canvas.Dispose()
>
>         MsgBox("Standard: " & stdHeight & vbCrLf & _
>             "Millimeters: " & mmHeight & vbCrLf & _
>             "Inches: " & inHeight)
>

>> Dim canvas As Graphics
>> Dim result As SizeF
>> Dim stdHeight As Single
>> Dim mmHeight As Single
>> Dim inHeight As Single
>> canvas = Me.CreateGraphics()
>>
>> ' ----- Get the height in default measurements.
>> result = canvas.MeasureString("Ag", Me.Font)
>> stdHeight = result.Height
>> ' ----- Get the height in millimeters.
>> canvas.PageUnit = GraphicsUnit.Millimeter
>> result = canvas.MeasureString("Ag", Me.Font)
>> mmHeight = result.Height
>> canvas.ResetTransform()
>> ' ----- Get the height in inches.
>> canvas.PageUnit = GraphicsUnit.Inch
>> result = canvas.MeasureString("Ag", Me.Font)
>> inHeight = result.Height
>> canvas.ResetTransform()
>> canvas.Dispose()
>>
>> MsgBox("Standard: " & stdHeight & vbCrLf & _
>> "Millimeters: " & mmHeight & vbCrLf & _
>> "Inches: " & inHeight)
> Thank you a lot.
>
> But there's still a problem. I'm using this code to calculate what
> would be the height of a line on a MSWord document before actually
> writing it. The problem is that the height returned by that lines of
> code is different than the actual height of the line in Word. I'm not
> making confusion with zoom, pixels, etc... We're talking of
> millimeters. There's a fixed coefficient, which (I calculated it) is
> about 0.88
>
>> ' ----- Get the height in millimeters.
>> canvas.PageUnit = GraphicsUnit.Millimeter
>> result = canvas.MeasureString("Ag", Me.Font)
>> mmHeight = result.Height * 0.88 ' This is a consistent result!
>> canvas.ResetTransform()
> Quite strange, isn't it?
>

>> The FontFamily font member provides access to a lot of the original
>> metrics
>> in the font. If you have an intance named myFont, check the
>> myFont.FontFamily
>> members, such as myFont.FontFamily.GetLineSpacing(). Remember that
>> Word does
>> a lot of extra typographical analysis and modification of the text
>> that goes
>> beyond the definition of the font. You would probably need to deal
>> with things
>> like kearning and leading on your own.
> Thank you for your reply.
>
> But I'm not able to interpret the result I get with GetLineSpacing()
> method. I get a 4-digits integer: what is that?
>