[identsoft]

Yo lo he resuelto de la siguiente forma (no se si es la mejor):
1.- defino un rectangulo en la linea.
2.- en el evento rectangle1.OnBeforePrint

Código Delphi [-]
      begin
         if self.Fillcolor = clWhite then
            Self.Fillcolor = clSilver;
        else
             Self.Fillcolor := clWhite;
      end;

Creo que es facil de entender.
naturalmente, el rectangulo lo tengo definido sin bordes