different column widths (1 Viewer)

[shafh]

I have a report with labels on the left margin. Details on how to create the report are on the website :
http://support.microsoft.com/default.aspx?scid=kb;en-us;210044
However, unlike the example, I want to have my labels to have a 2" width while my controls to be 1" wide. This difference in width, unlike the equal width Microsoft example, is to be controlled by the OnFormat property of the Detail section. So far I have the following code but something to allow seperate label and control width is missing. Please help!
Dim i As Integer
If Me.Left < Me.Width Then
Me.NextRecord = False
For i = 1 To 21
Me("txt" & i).Visible = False
Me("lbl" & i).Visible = True
Next i
Else
For i = 1 To 21
Me("txt" & i).Visible = True
Me("lbl" & i).Visible = False
Next i
End If
Thanks,
Sam