Reduce Line Spacing (further) for Report created with RTF2

[Raj]

What I am trying to do: I need to print a compact access report (font 6 size)
created using RTF2 program developed by Stephen Lebans to generate a TIF
image of custom size (5.5 in x 2.0 in)

Problem Recreation : Download attached RAR file
(http://download.yousendit.com/627919383AFAA7E3 )

Steps 1) Install RTF2 program created by Lebans
2) Install ZAN Image Printer (Virtual Printer)
3) Create Custom Paper Size ---- On your computer Go to “Printers
and Fax†and Click on File and Server properties. Check box for “Create New
Form†with following dimensions create custom page size and name it as
“CUSTOMTIFâ€
Width : 5.50 inch
Height: 2.00 inch
Rest all Zero inch

4) Open report called “RptBOMTIF†in design view – go to Page and change
SIZE to “CUSTOMTIF†. Change Margins to ZERO , In Columns put “Number of
Columns†as 2 , row spacing and column spacing to ZERO. Column size width :
2.725†and Height : 0.0083"

5) Open form “FrmTIFGeneration†and run report


Problem/What has to be achieved : I need to reduce the line spacing between
lines . If I zoom the report 1000% , I can see that it might be possible to
reduce this line spacing further.

If I change the Detail_Format code (see below) for report and substract 35
from height , I can see the linespace is reducing but it cuts letters like
“g†, “y†, “p†etc from bottom.

Is there a way to reduce this line spacing further ?

Please let me know

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim Height As Integer
' Max height to allow for multiple RTF2 controls
Dim MaxHeight As Integer
' Init MaxHeight
MaxHeight = 0
Height = Me.ActiveXCtl41.Object.RTFheight
If Height > 0 Then
If Height < 32000 Then
Me.ActiveXCtl41.Height = Height -35
Me.Dash.Height = Height -35
Me.Section(acDetail).Height = Me.ActiveXCtl41.Height
If MaxHeight > Me.ActiveXCtl41.Height Then MaxHeight =
Me.ActiveXCtl41.Height - 35
End If
End If
End Sub


Thanks
Raj