[Tasos]

Στα πεδία που σε ενδιαφέρουν άλλαξε την ιδιότητα Στυλ Περιγράμματος σε Διαφανές.
Κατόπιν στην ετικέτα των πεδίων (Tag) πληκτρολόγησε ένα "x" και χρησιμοποίησε τον παρακάτω
κώδικα (Τμήμα του προέρχεται από τη βοήθεια της Microsoft):

Option Compare Database
Option Explicit

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    Dim H As Integer, ctl As Control
    H = Me.Pedio1.Height    'Το πεδίο με το μεγαλύτερο ύψος
    For Each ctl In Me.Section(0).Controls
        If ctl.Tag = "x" Then
            Me.Line (ctl.Left, ctl.Top)-Step(ctl.Width, H), 12835293, B ' 12835293 = το χρώμα
        End If
    Next
End Sub

Τα λέμε...

Τάσος