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
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