| |
Fragen & Antworten rund um sev-KomponentenFrage zu DoHTMLReport | | | Autor: Axelander | Datum: 20.09.07 09:33 |
| Hallo,
kann ich für die Anzeige im Report andere Farben festlegen als im DataGrid selber? Am Bildschirm hat jede Farbe eine bestimmte Bedeutung, es können also 5 blaue Zeilen hintereinander kommen. Beim Druck müsste sich allerdings grau und weiß abwechseln. Geht das irgendwie?
Gruß
Alex | |
Re: Frage zu DoHTMLReport | | | Autor: Axelander | Datum: 20.09.07 15:07 |
| Hallo Dieter,
vielen Dank für den Tipp. Das mit den Hintergrund funktioniert so. Nur die Schriftfarben passen jetzt natürlich auch nicht mehr. Ich habe es mal mit .ForeColor versucht, allerdings hat das keine Auswirkung. Gibt es auch einen Befehl um hier die Schriftfarbe zu ändern?
Ach ja, ich verwende das Control unter MSAccess 2000.
Gruß
Alex | |
Re: Frage zu DoHTMLReport | | | Autor: Axelander | Datum: 20.09.07 15:31 |
| Hallo Dieter,
bei mir funktioniert das ganze leider nicht. Hier mal mein Code für die Liste:
Private Sub F_Eingangsliste_RowLoaded(ByVal nRow As Long, Item As Object)
With Item
' Icon einfügen
If Me.F_Eingangsliste.Recordset.Fields("PE_Mappe") <> 0 Then
.CellImage(1) = 1
End If
' Je nach Art anders
Select Case Me.F_Eingangsliste.Recordset.Fields("PE_Art")
Case conPEANormal
.ForeColor = vbBlack
.BackColor = vbWhite
Case conPEARueckruf
.ForeColor = vbWhite
.BackColor = vbGrayText
Case conPEAAenderung
.ForeColor = vbWhite
.BackColor = vbBlue
Case conPEASchaden
.ForeColor = vbBlack
.BackColor = vbRed
Case conPEAKuendigung
.ForeColor = vbBlack
.BackColor = vbGreen
Case conPEANeuanlage
.ForeColor = vbBlue
.BackColor = vbYellow
Case conPEARuecklastAntwort
.BackColor = vbCyan
.ForeColor = vbBlack
End Select
End With
End Sub Und hier für den Report:
Private Sub F_Eingangsliste_HTMLBeforeRowPrint(ByVal Page As Long, ByVal Pages _
As Long, ByVal nRow As Long, Item As Object, Skip As Boolean)
With Item
If nRow Mod 2 = 0 Then
Item.BackColor = vbWhite
Item.ForeColor = vbBlack
Else
Item.BackColor = F_Eingangsliste.ColumnHeaderBackColor
Item.ForeColor = vbWhite
End If
End With
End Sub und der Aufruf:
Private Sub btn_Liste_Druck_Click()
With Me.F_Eingangsliste
' Text, der in der Titelzeile des
' Standard-Browsers erscheinen soll
.HTMLTitle = "ASC Posteingang Liste"
' Webreport-Überschrift
.HTMLTableTitle = "offene Rückfragen"
' Anzahl max. Datenzeilen pro Seite
.HTMLTableRowsPerPage = 250
' autom. Navigationsleiste am Ende der Seite
.HTMLShowNavigation = True
' Schrift- und Farbattribute übernehmen
.HTMLUseScreenFormating = True
' Webreport erstellen:
If .DoHTMLReport(CurrentProject.Path & "\report.htm", "11,13,15") Then
' Report im Standard-Browser anzeigen
.HTMLShowReport ', True
End If
End With
End Sub Verwende ich hier .HTMLUseScreenFormating = False
habe ich gar keinen Hintergrund mehr.
Bei mir bleibt die Schriftfarbe identisch mit der am Bildschirm. Und weiße Schrift auf weißem Grund liest sich gaaaanz schlecht
Version des Datagrid ist 2.2.0.83.
Gruß
Alex | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats sevZIP40 Pro DLL
Zippen und Unzippen wie die Profis!
Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|