مشكلة وانحلت...تقارير اكسس

اردت طباعة العلاقات في اكسس....واجهتنى مشكلة اللون الاسود في الطابعة...لا يوجد لون اسود!!!

الحل في تحويل الالوان..

حاولت تغيير الالوان، ولكن ذلك صعب جدا حيث لدي 180 كائن من خط الى صورة الى ....

حاولت في الكود ولن ذلك يجعل الجهاز يتوقف عن الاستجابة..كل مرة اقوم باغلاق اكسس عن طريق alt+ctrl+del.

ما الحل؟؟

الحل هو الانتظار خمس دقائق نعم 5 دقائق!!!!!

الكود:

Private Sub Report_Open(Cancel As Integer)
  Dim ctl As Control
    Const conlistBackColor = 12615808
    Const conListBorderColor = 65280
    Const conImageBackColor = 16711680
    Const conLineBorderColor = 4210816

    For Each ctl In Me.Controls
           With ctl
                  Select Case .ControlType
                    Case acImage
                        .BackColor = conImageBackColor

                    Case acListBox
                        .ForeColor = conlistBackColor
                        .BorderColor = conListBorderColor


                    Case acLine
                        .BorderWidth = 4
                        .BorderColor = conLineBorderColor
                    End Select
           End With
    Next ctl

End Sub