Posted: Tue Oct 05, 2010 6:03 am
Only by custom drawing events
(for RVPrint - OnPagePrepaint)
(for RVPrint - OnPagePrepaint)
Code: Select all
procedure TForm3.RVPrint1PagePrepaint(Sender: TRVPrint; PageNo: Integer;
Canvas: TCanvas; Preview: Boolean; PageRect, PrintAreaRect: TRect);
begin
if PageNo mod 2 = 0 then begin
Canvas.Brush.Style := bsSolid;
Canvas.Brush.Color := clYellow;
Canvas.FillRect(PrintAreaRect); // or PageRect to color the full page
Canvas.Brush.Style := bsClear;
end;
end;