Farben vor Druck per VBA ändern

[cyberchris]

Hallo,

bei einem Report sollen vor Druck 2 Bezeichnungsfelder im Seitenkopf farblich geändert werden. Bei einem (Abteilung) funktioniert das auch...aber beidem anderen (TempAusgabe) macht er das nicht, obwohl die Befehle identisch sind....bzw. er macht nur die Textfarbe weiß, sodass nichts mehr zu lesen ist.

Private Sub Report_Open(Cancel As Integer)
...
           Abteilung_Bezeichnungsfeld.BackColor = RGB(0, 0, 0)
           Abteilung_Bezeichnungsfeld.ForeColor = RGB(255, 255, 255)
           TempAusgabe_Bezeichnungsfeld(acPageHeader).BackColor = RGB(0, 0, 0)
           TempAusgabe_Bezeichnungsfeld.ForeColor = RGB(255, 255, 255)
...
End Sub

Muss man das anders ansprechen?

Danke
gruß Christoph

[DF6GL]

Hallo,

Identisch?


Was soll das "acPageHeader"   hier bedeuten?


Weiterhin solltest Du "Me!" den Steuerelementnamen voranstellen und das Format-Ereignis der jeweiligen Berichtsbereiche für solche Einstellungen verwenden.

[cyberchris]

Oh "....(acPageHeader)..." hatte ich vergessen wieder rauszulöschen. Habe halt alles möglich ausprobiert....
Probiere es aber mal im zugehörigen Format-Ereignis.

Danke
Gruß Christoph

[cyberchris]

Guten Morgen,

ich habe es jetzt wie folgt probiert:
(Anmerkungen hinter den Befehlen)

Private Sub Seitenkopfbereich_Format(Cancel As Integer, FormatCount As Integer)
    If Me.OpenArgs <> "" Then
        If Right(Me.OpenArgs, 6) = "APsort" Then
            Me!Abteilung_Bezeichnungsfeld.BackColor = RGB(0, 0, 0) -->OK
            Me!Abteilung_Bezeichnungsfeld.ForeColor = RGB(255, 255, 255) -->OK
            Me!TempAusgabe_Bezeichnungsfeld.BackColor = RGB(0, 0, 0) -->macht er nicht !!!
            Me!TempAusgabe_Bezeichnungsfeld.ForeColor = RGB(255, 255, 255) -->OK
        End If
    End If
End Sub

[cyberchris]

Ich habe den Fehler gefunden.

Bei dem Feld TempAusgabe war als Hintergrundart Transparent hinterlegt... Habe ich auf Normal geändert :-)

Gruß Christoph