regels rood en dan printen

[Doofenshmirt]

Met deze code maak ik regels rood met een datum ouder als 30 dagen

Try
            For Each NRow In Me.Tabel1DataGridView.Rows
                Dim date1, date2
                date1 = CType(NRow.Cells(1).Value(), String) 'dit is de datum in je datagrid
                date2 = Label1.Text 'Dit is de datum vandaag 
                If NRow.Cells(1).Value IsNot DBNull.Value Then
                    If DateDiff(DateInterval.Day, date1, date2) + 1 >= 30 Then 'dit maakt hem rood als de datum 7 dagen oud is.
                        NRow.DefaultCellStyle.ForeColor = Color.Red
                        Tabel1DataGridView.Rows(1).Visible = False

                    Else
                        NRow.DefaultCellStyle.ForeColor = Color.Black
                        Tabel1DataGridView.Rows(1).Visible = True
                    End If
                Else
                End If
            Next
        Catch ex As Exception

        End Try
    End Sub

Deze gegevens wil ik printen , met de headers erbij.

Maar dan alleen de rode regels , iemand een idee ?

 

[JoZ1]

Even met een loop alle rode regels in een array zetten, en die uitprinten.
Wat lukt er niet?

 

[Doofenshmirt]

Hallo JoZ1,

Nou alles wat je nu zegt denk ik .

Ben niet zo bekent met datagridview , ik was aan het proberen met PrintOut()

Maar dat gaat niet werken geloof ik.

 

[JoZ1]

Kijk hier voor het printen: http://www.dreamincode.net/forums/topic/44150-printing-in-vbnet/
Het is een aardig lange code, omdat je marges etc. ook moet aangeven.

 

[old Hippy]

HI als je een zoek query maakt.
Van alle data ouder dan 30 dagen kan je de grid toch gewoon uitprinten???

 

[Doofenshmirt]

Hoi old hippy,

Hoe bedoel je een zoek query maken ?

Geen idee hoe ik dit zou moeten doen.

 

[old Hippy]

Hoe vul je de datagrid heb je een database???

 

[JoZ1]

@Doofenschmirz: *Ik heb niets gezegd!*
@old Hippy: Heb je niet een manier om te filteren?
Bijvoorbeeld een extra column met de aanmaakdatum ofzo toevoegen.

 

[old Hippy]

Sorry Joz1 ik word te oud voor dit soort dingen.
ik dacht dat dit een topic van @Doofenschmirz:was.
of zit ik er helemaal naast??????

als hij een database heeft kan je gewoon filteren op data1

 

[Doofenshmirt]

Ik vul de database via een access bestand.

De datagridview heb ik gemaakt via de wizard.

 

[old Hippy]

Sorry daar kan ik niet zo veel mee
ik kan je wel aan een datagrid printer helpen.
mischien kan JoZ1 je helpen met een loop voor alle rode regels hier een link voor de datagrit printer.

http://www.mediafire.com/?w5kfu5a6g0ggc66

 

[JoZ1]

Sorry, sorry, sorry, sorry

Dit is inderdaad het topic van Doofenshmirt!!
Ik herkende jou niet als helper, old Hippy.

Nogmaals het spijt me!


@Doofenscmirz: Heb je nog gekeken naar mijn link? Wat lukt er niet/is het probleem?

 

[old Hippy]

Geeft niets JoZ1 als je zo veel behulpzaam bent mag je veel fouten maken.

 

[JoZ1]

@old Hippy: Da's heel aardig. Thanks! :thumb:

 

[Doofenshmirt]

Hoi old Hippy,

Ben er even tussen uit geweest voor mijn werk.

Ik heb die code gedownload voor het printen en ziet er goed uit , maar als ik deze in mijn project zet krijg ik een fout melding.

Private MyDataGridViewPrinter As DataGridViewPrinter
dit moet er staan en dit is de foutmelding.

Error	4	Type 'DataGridViewPrinter' is not defined.

Mijn blad heet anders , namelijk gewoon Form9.vb en die van jou heet DataGridViewPrinter.

Kan eigenlijk niet zomaar een andere naam geven , zit met meer verwijzingen.

Draai op Visual studio 2010

 

[old Hippy]

Hi de class heet DataGridViewPrinter.
Heb je deze ook naar je app gezet????
het form heet ook gewoon form1

 

[Doofenshmirt]

Heb het gezien bedankt, het printen werkt goed.

Het printen is opgelost , ik ben nu aan het proberen met NRow.Visible = False
ivm het filteren .

Zal even proberen of ik hier mee uit de voeten kan .
Als de NRow verborgen is wordt hij ook niet geprint , en dat is wel gunstig.

Heb nu dit , ga het even verder uitwerken.

    Try
            For Each NRow In Me.Tabel1DataGridView.Rows
                Dim date1, date2
                date1 = CType(NRow.Cells(1).Value(), String) 'dit is de datum in je datagrid
                date2 = Label1.Text 'Dit is de datum vandaag 
                If NRow.Cells(1).Value IsNot DBNull.Value Then
                    If DateDiff(DateInterval.Day, date1, date2) + 1 >= 30 Then  
                        NRow.DefaultCellStyle.ForeColor = Color.Red
                    Else
                        NRow.Visible = False
                    End If
                Else
                End If
            Next
        Catch ex As Exception

        End Try

 

[old Hippy]

Als je de forecolor het zelfde als de backcolor zie je hem ook niet met printen

 

[Doofenshmirt]

Ja dat zou ook kunnen , maar dit werkt goed.

Dit is opgelost, bedankt mannen.