Her er et eksempel til
Dim i As Integer ' counter
Dim Col1, Col2, Col3 As Integer 'setter venstre egenskapen til kolonnene av
3 stk
Dim Avstand As Integer 'avstand mellom linjer
Col1 = ListView1.ColumnHeaders(1).Left + 400
Col2 = ListView1.ColumnHeaders(2).Left + 400
Col3 = ListView1.ColumnHeaders(3).Left + 400
Avstand = 800
'setter header på utskrift
Printer.Font = "Times New Roman"
Printer.FontSize = 14
Printer.FontBold = True
Printer.CurrentX = Col1 'Venstre
Printer.CurrentY = Avstand 'Top
Printer.Print ListView1.ColumnHeaders(1).Text
'head 2
Printer.CurrentX = Col2 'venstre
Printer.CurrentY = Avstand 'Top
Printer.Print ListView1.ColumnHeaders(2).Text
'head 3
Printer.CurrentX = Col3 'venstre-+
Printer.CurrentY = Avstand 'Top
Printer.Print ListView1.ColumnHeaders(3).Text
'Setter skrift til normal og size 12
Printer.FontBold = False
Printer.FontSize = 12
Avstand = Avstand + 300 'avstand til neste linje
'skriver ut det som er i ListView1
For i = 1 To ListView1.ListItems.Count
'kolonne1
Printer.CurrentY = Avstand
Printer.CurrentX = Col1
Printer.Print ListView1.ListItems(i).Text
'kolonne 2
Printer.CurrentY = Avstand
Printer.CurrentX = Col2
Printer.Print ListView1.ListItems(i).SubItems(1)
'kolonne 3
Printer.CurrentY = Avstand
Printer.CurrentX = Col3
Printer.Print ListView1.ListItems(i).SubItems(2)
Avstand = Avstand + 250
Next i
Printer.EndDoc
det finnes sikkert en kortversjon men den fungerer
MVH Knut Nordal
"Neo.dk" <neo___dk@hotmail.com> skrev i melding
news:3ca83175$0$39526$edfadb0f@dspool01.news.tele.dk...
> Hej alle !
>
> Jeg har lavet et lille beregningsprogram som beregner nogle data ud fra
> nogle statistiske oplysninger om gennemsnits temperaturer for forskellige
> lande.
>
> Alle data er proppet i en listview, og står fint og nydeligt på skærmen.
>
> Men ... hvordan får jeg nu lige dataerne ud på papir, så de står ligeså
pænt
> som på skærmen ? ..... (det der med printscreen holder ikke i længden)
>
> Min listview består af 10 rækker og 14 kolonner
>
> er der nogen der har et løsningsforslag ? ... de vil blive modtaget med
> kyshånd
>
> Et kodeeksempel er meget velkommen, - gerne med common dialog
>
> Med venlig hilsen
>
> Neo.dk
>
>