Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Column spacing isn't working correctly

Status
Not open for further replies.

Zonie32

Technical User
Jan 13, 2004
242
US
I have a report with columns (down and across). I have labels to the left that I only want to appear once. So I made the labels a subreport and created the following code. So I have 4 columns and a spacing issue. The first column is fine, the second appears fine, meaning the gap or spacing is just where it ought to be, however there is a bigger gap between column 2 and 3 and then 3 and 4. So the code seems to only be working correctly spacing wise on the first and second column. Is there something in the code I need to do to get all columns spaced the same? I tried copying a screen print of the report but don't really know how. It won't paste? Here is the code: maybe someone can help? thanks.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

If txtCounter Mod 4 = 1 Then
sub_rptLabels01.Visible = True

Carrier.Left = 1440
Benefit_Summary_Label.Left = 1440
blueBox.Left = 1440
Premium_Label.Left = 1440
Premium.Left = 2220
InNetwkDed.Left = 1500
OutOfNtwkDed.Left = 1500
Coinsurance.Left = 1500
OOPInNtwk.Left = 1500
OOPNonNtwk.Left = 1500
PhysCopay.Left = 1500
ERCopay.Left = 1500
InptConfinement.Left = 1500
OutptSurgery.Left = 1500
Wellness.Left = 1500
Rx.Left = 1500
LifeIns.Left = 1500
LifetimeMax.Left = 1500
Maternity.Left = 1500

Else
sub_rptLabels01.Visible = False
Carrier.Left = 1440 - 1350
Benefit_Summary_Label.Left = 1440 - 1350
blueBox.Left = 1440 - 1350
Premium_Label.Left = 1440 - 1350
Premium.Left = 2220 - 1350
InNetwkDed.Left = 1500 - 1350
OutOfNtwkDed.Left = 1500 - 1350
Coinsurance.Left = 1500 - 1350
OOPInNtwk.Left = 1500 - 1350
OOPNonNtwk.Left = 1500 - 1350
PhysCopay.Left = 1500 - 1350
ERCopay.Left = 1500 - 1350
InptConfinement.Left = 1500 - 1350
OutptSurgery.Left = 1500 - 1350
Wellness.Left = 1500 - 1350
Rx.Left = 1500 - 1350
LifeIns.Left = 1500 - 1350
LifetimeMax.Left = 1500 - 1350
Maternity.Left = 1500 - 1350

End If
End Sub
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top