Forskellige Farver i rapport udskrift ?

Der ligger nogle foskellige funktion til at lave fordskellige baggrunde med på min hjemmeside http://users.cybercity.dk/~cfs3519/

Men de laver foreksempel hver anden linje grå.
Hvis der noget med at du vil farve brug ud fra hvilke data der er i en bestemt felt, kan du når ikke bruge det. Hvis du vil må du godt prøve sende database til mig. Access@edb.dk

Når du har selve rapporten, kan du for detail-delen vælge egenskaben Events/Format.
Der kan du skrive den funktion du vil have udført INDEN resultatet for netop den næste record bliver anbragt i rapporten. Derfor kan du her formattere farver og forme udfra indholdet af de enkelte felter.

Hej Fimo,

I din rapport kan du indsætte nedenstående kode (aktiver menu\'en Vis->Programkode og indsæt alt koden)

\'**** Kode start ****
\'Bemærk, at denne kode skifter mellem hvid,
\'lysgrå og mørkgrå.
\'Det er ikke muligt at skravere linierne.
Option Compare Database
Option Explicit

Dim Farve As Byte

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
    Call SkiftFarve
End Sub

Private Sub Report_Open(Cancel As Integer)
    Farve = 1
End Sub

Private Sub SkiftFarve()
   
    Const cLysGrå = 12632256
    Const cMørkGrå = 8421504
    Const cHvid = &HFFFFFF
    Me.Section(0).BackColor = Choose(Farve, cHvid, cLysGrå, cMørkGrå)
   
    Farve = Farve + 1
    If Farve > 3 Then Farve = 1
End Sub
\'**** Kode slut ****

Hej Thomas,
Den kode du sendte mig, virker !!!
MEN
Jeg har behov for at kunne vælge/fravælge felter
som jeg ikke ønsker at få farvet grå, feks vil
jeg kun have alle dem med feks \"1\" \"3\" til at være
grå IKKE dem der hedder feks \"2\"
Kan det lade sig gøre ?
Hilsen
Fimo :-)

Har du prøvet den database jeg sendte til dig?

Hej igen Fimo,

Nu ved jeg ikke præcist hvad det er for felter/værdier, som kan være 1, 2 eller 3, men i proceduren Detaljesektion_Format skulle du kunne spørge på værdien. Noget i retning af nedenstående:

\'**** Kode start ****
Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
    If Felt = 1 Or Felt = 3 then
      Me.Section(0).BackColor = 12632256 
    Else
      Me.Section(0).BackColor = &HFFFFFF
    End If
End Sub
\'**** Kode slut ****

\'Felt\' skal så erstattes med det objekt som kan have værdien 1, 2 eller 3.

Hvis dette virker, kan du slette alt andet end denne ene procedure.

Jeg er dog ikke helt sikker på, at jeg har forstået dit problem korrekt. Du kan måske specificere hvilke værdier, du ønsker at checke på?

Hejsa,

Jeg har ikke modtaget nogen mail/fil fra dig ?
Kan du sende den igen ?