Hi
strange problem which is driving me nuts again.
i have this code running in the 'on print event' of a report which basically checks to see what the biggest text box border is and then makes all the text boxes on the report the same size and draws borders around them
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim intMaxHeight As Integer
Dim ctl As Control
'Find highest control in Detail section _
that has a tag property of "Border"
For Each ctl In Me.Section(0).Controls
If ctl.Tag = "Border" Then
If ctl.Height > intMaxHeight Then
intMaxHeight = ctl.Height
End If
End If
Next
'Draw a box around each control in Detail _
that has a tag property of "Border"
For Each ctl In Me.Section(0).Controls
If ctl.Tag = "Border" Then
Me.Line (ctl.Left, ctl.Top)- _
Step(ctl.Width, intMaxHeight), vbBlack, B
End If
Next
End Sub
ok - no problem. the problem occurs because i have conditional formatting on some fields and if the conditional formatting is 'true' this conditional formatting is in front of the textbox border - i cannot see part of the border which means some of my data looks quite messy when printed; the text box borders are not complete and do not look 'box' shaped (usually the top line of the border is missing.
is there anyway to send the conditional formatting to the back OR to bring the borders to the front??
any help appreciated
thanks
strange problem which is driving me nuts again.
i have this code running in the 'on print event' of a report which basically checks to see what the biggest text box border is and then makes all the text boxes on the report the same size and draws borders around them
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim intMaxHeight As Integer
Dim ctl As Control
'Find highest control in Detail section _
that has a tag property of "Border"
For Each ctl In Me.Section(0).Controls
If ctl.Tag = "Border" Then
If ctl.Height > intMaxHeight Then
intMaxHeight = ctl.Height
End If
End If
Next
'Draw a box around each control in Detail _
that has a tag property of "Border"
For Each ctl In Me.Section(0).Controls
If ctl.Tag = "Border" Then
Me.Line (ctl.Left, ctl.Top)- _
Step(ctl.Width, intMaxHeight), vbBlack, B
End If
Next
End Sub
ok - no problem. the problem occurs because i have conditional formatting on some fields and if the conditional formatting is 'true' this conditional formatting is in front of the textbox border - i cannot see part of the border which means some of my data looks quite messy when printed; the text box borders are not complete and do not look 'box' shaped (usually the top line of the border is missing.
is there anyway to send the conditional formatting to the back OR to bring the borders to the front??
any help appreciated
thanks