http://www.lebans.com/PrintLines.htm
--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.
"Patricia" <Patr...@discussions.microsoft.com> wrote in message
news:B7E6CB5A-E9ED-4F02...@microsoft.com...
You need to set the size (height) of your lines in the print event:
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim ctl As Access.Control
For Each ctl In Me.Controls
If TypeOf ctl Is Line Then
Me.Line (ctl.Left, 0)-(ctl.Left, 10000), 0
End If
Next ctl
End Sub
I have only vertical lines, so this works for me.
mfG
--> stefan <--