Reduce Line Spacing (further) for Report created with RTF2

[replyrpatil]

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