Aslında bir dikdörtgen eklemeye gerek yoktu, benimki formlardaki Koşullandırılmış Biçim olayından kalma bir alışkanlık
Aynı işlem bu şekilde de olur.
Kod:
Private Sub GrupAltbilgisi1_Print(Cancel As Integer, PrintCount As Integer)
If (Me.SiraNo Mod 2) = 1 Then Me.GrupAltbilgisi1.BackColor = 16777215 Else Me.GrupAltbilgisi1.BackColor = 12632256
End Sub