asked on

Expanding all fields using can grow when printing

Three Fields. Question #; Question ID and Question.

The Question can grow = Yes. How can I have the other 2 fields expand when the Question Field expands. Right now I am getting gaps in the print alignment, The height of the question is larger than the other 2 fields. Thank you.

jerryb30

Can you post a screen shot? Maybe of what you are getting, and what you would like to get.

Helen Feddema

You can get the height of the expanded control in the Detail_Print event, and make the other controls the same height. Here is some code that makes a green line the same height as an expanded control:

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

   Dim sngTop As Single
   Dim sngLeft As Single
   Dim sngHeight As Single
   Dim sngBottom As Single

   sngTop = Me![txtNotes].Top
   sngHeight = Me![txtNotes].Height
   sngLeft = 2300
   sngBottom = sngTop + Me![txtNotes].Height

   Me.DrawStyle = 6
   Me.DrawWidth = 12
   Me.Line (sngLeft, sngTop)-(sngLeft, _
      sngBottom), RGB(0, 255, 0)

End Sub

Open in new window

ANTHONY CHRISTI

ASKER

I have attached a sample report. I want all fields to be the same Height as the Question

jerryb30

Missed attachment

ANTHONY CHRISTI

ASKER

I am attaching a file for review
Test.pdf

ANTHONY CHRISTI

ASKER

Did anyone get a chance to review and solve my problem?