471,852 Members | 1,109 Online
Bytes | Software Development & Data Engineering Community
Post +

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 471,852 software developers and data experts.

Reduce Line Spacing (further) for Report created with RTF2

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

Oct 15 '07 #1
1 3136
3,080 Expert 2GB
I would expect the fontsize to be related with the height of the line.
Why not use font 5 ?

Oct 15 '07 #2

Post your reply

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

Similar topics

1 post views Thread by tkpmep | last post: by
5 posts views Thread by Andrew Poulos | last post: by
4 posts views Thread by fleemo17 | last post: by
reply views Thread by jith87 | last post: by
reply views Thread by YellowAndGreen | last post: by
reply views Thread by aboka | last post: by

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.