[VB]lijst uit listview afdrukken

[rambo-2001]

ik heb nu voor mekaar dat ik kan afdrukken en printen.
alles wat in de listview staat komt uit een access database en moet worden afgedrukt alleen wil dit niet lukken iemand een idee ?

stukje source voor afdrukken

Private Sub afdrukken_Click()
CommonDialog1.PrinterDefault = True
CommonDialog1.ShowPrinter
Printer.Print "testje"
Printer.EndDoc
End Sub

stukje source voor listview (in report vorm)

Private Sub Command1_Click()
ListView1.ListItems.Clear
ListView1.FullRowSelect = True
a = 1
Dim DB As Database
Dim RS As Recordset
Set DB = OpenDatabase(App.Path + "\tijd.mdb")
Set RS = DB.OpenRecordset("Tijd")
Do Until RS.EOF
ListView1.ListItems.Add , , RS!Datum
ListView1.ListItems(a).ListSubItems.Add , , RS!Begintijd
ListView1.ListItems(a).ListSubItems.Add , , RS!Eindtijd
ListView1.ListItems(a).ListSubItems.Add , , RS!Totaaluren
ListView1.ListItems(a).ListSubItems.Add , , RS!WerknemerID
ListView1.ListItems(a).ListSubItems.Add , , RS!Klachtopgelost
ListView1.ListItems(a).ListSubItems.Add , , RS!Opmerking
RS.MoveNext
a = a + 1
Loop
RS.Close
DB.Close
End Sub

[Apen-nootjes]

Moet de hele listview afgedrukt worden?? Alleen de Subitems?? Alleen de hoofditmens??

[rambo-2001]

Op woensdag 08 mei 2002 12:46 schreef apen-nootjes het volgende:
Moet de hele listview afgedrukt worden?? Alleen de Subitems?? Alleen de hoofditmens??

de hele listview

[Verwijderd]

Als Printer.Print "Testje" werkt, waarom zet je daar dan niet een loopje met je recordset?

[Apen-nootjes]

Da denk ik ook,

Do
Printer.print ListView1.ListItems(a)
a = a + 1
Loop Until laatstelistviewitem
Printer.EndDoc


Tevens kan je beter afdrukken doormiddel van een OCX'je ik weet niet precies meer welke zoek ik maandag ff voor je op...

[Verwijderd]

private sub doeiets()
dim lCnt as long

for lCnt = 1 to listview1.listitems.count
printer.print listview1.listitems(lCnt).value

next lCnt
end sub

volgens mij moet dit wel werken . .. (uit m'n hoofd gedaan. . niet getest)

ps : die 'a=a+1' kun je dus vervangen door 'listview1.listitems.count'

[rambo-2001]

Op woensdag 08 mei 2002 13:02 schreef Skizmo het volgende:
private sub doeiets()
dim lCnt as long

for lCnt = 1 to listview1.listitems.count
printer.print listview1.listitems(lCnt).value

next lCnt
end sub

volgens mij moet dit wel werken . .. (uit m'n hoofd gedaan. . niet getest)

ps : die 'a=a+1' kun je dus vervangen door 'listview1.listitems.count'

dit stukje werkt mooi alleen nu heb ik in mijn listview
dus de volgende kolomen :
datum,van,tot,totaal enz. hoe druk ik deze dan af naast de bestaande eerste kolom ?

[Crazy D]

Op woensdag 08 mei 2002 13:59 schreef rambo-2001 het volgende:
dit stukje werkt mooi alleen nu heb ik in mijn listview
dus de volgende kolomen :
datum,van,tot,totaal enz. hoe druk ik deze dan af naast de bestaande eerste kolom ?

Leer de objecten die je gebruikt kennen.Een ListItem object heeft een SubItems collectie.

En voor het printen, beetje spelen met wat tabjes, of de currentx property van het printerobject, daar moet wel wat mee te doen zijn

[rambo-2001]

Op woensdag 08 mei 2002 14:01 schreef Crazy_D het volgende:

[..]

Leer de objecten die je gebruikt kennen.Een ListItem object heeft een SubItems collectie.

En voor het printen, beetje spelen met wat tabjes, of de currentx property van het printerobject, daar moet wel wat mee te doen zijn

ik had de lijst al gevult met de volgende code

zie bovenaan 2de blok

ListView1.ListItems.Add , , RS!Datum
ListView1.ListItems(a).ListSubItems.Add , , RS!Begintijd
ListView1.ListItems(a).ListSubItems.Add , , RS!Eindtijd

nu lukt het mij om de hoofdkolom en subkolom af te drukken
maar nu is er naar de sub geen mogelijkheid volgens mij meer om een sub sub te maken of ik zie iets over het hoofd.

Printer.Print ListView1.ListItems(lCnt).Text
Printer.Print ListView1.ListItems(lCnt).ListSubItems(a).Text

[Crazy D]

Op woensdag 08 mei 2002 14:52 schreef rambo-2001 het volgende:
nu lukt het mij om de hoofdkolom en subkolom af te drukken
maar nu is er naar de sub geen mogelijkheid volgens mij meer om een sub sub te maken of ik zie iets over het hoofd.

Uhh ik snap geloof ik niet helemaal wat je bedoelt

Maar code a la dit werkt bij mij altijd prima om wat uit te lezen:

code:

eersteitem = lv.ListItems(i).Text
subitem1 = lv.ListItems(i).SubItems(1)
subitem2 = lv.ListItems(i).SubItems(2)

[rambo-2001]

Op woensdag 08 mei 2002 15:45 schreef Crazy_D het volgende:

[..]

Uhh ik snap geloof ik niet helemaal wat je bedoelt

Maar code a la dit werkt bij mij altijd prima om wat uit te lezen:

code:

eersteitem = lv.ListItems(i).Text
subitem1 = lv.ListItems(i).SubItems(1)
subitem2 = lv.ListItems(i).SubItems(2)

dat was wat ik bedoelde had alleen (1) en (2) een (a) staan en dan drukt hij telkens dezelfde sub af maar nu werkt het iedereen bedankt