<code>Public Declare Function MulDiv Lib "kernel32" Alias "MulDiv" (ByVal _
  nNumber As Long, _
  ByVal nNumerator As Long, ByVal nDenominator As Long) As Long
Public Declare Function GetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" (ByVal _
  hdc As Long, _
  ByVal nIndex As Long) As Long
 
Public Const LOGPIXELSY = 90
 
Function pt2Pix(ByVal hdc As Long, ByVal pt As Long) As Long
  Function = -MulDiv(pt, GetDeviceCaps(hdc, %LOGPIXELSY), 72)
End Function</code>

<code>.lfHeight = pt2Pix(hPrinterDC, Grösse)</code>