By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,660 Members | 1,082 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,660 IT Pros & Developers. It's quick & easy.

Reduce Line Spacing (further) for Report created with RTF2

P: 1
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
Oct 15 '07 #1
Share this Question
Share on Google+
1 Reply


nico5038
Expert 2.5K+
P: 3,072
I would expect the fontsize to be related with the height of the line.
Why not use font 5 ?

Nic;o)
Oct 15 '07 #2

Post your reply

Sign in to post your reply or Sign up for a free account.