---

hejsa

er der nogen der har en kode til en fin udskrivning fra en listview. ?

---

Hej Jan
hvad er en fin udskrivning......er det, eller er det noget "fansi" du er ude
efter?

dim X as long
Printer.ScaleMode = 7
Printer.Orientation = 1
Printer.FontSize = 12

For X = 1 To lstW.ListItems.Count
Printer.Print ; Tab(15); lstW.ListItems(X); 'feks. navn
Printer.Print ; Tab(50); lstW.ListItems(X).SubItems(1) 'feks. cpr nr
Next
Printer.EndDoc

mvh Dan

"Jan Damkjær Dahl" <jpd@post12.tele.dk> skrev i en meddelelse
news:95pnpv$i1h$1@news.inet.tele.dk...
> hejsa
>
> er der nogen der har en kode til en fin udskrivning fra en listview. ?
>
>
>
>

---

Jo tak men jeg har nu fundet ud af det.
Så kan man jo begynde at lege lidt med længden på teksten og variablerne
kol1- kol2 osv

Private Sub Print_Click()

Dim kol1, kol2, kol3, kol4 As String
kol1 = 2 'afstand i cm fra venstre side af Papiret
kol2 = 4
kol3 = 7
kol4 = 17
Printer.CurrentY = 2 'afstand i cm fra toppen af Papiret
Printer.FontSize = 12
Printer.ScaleMode = vbCentimeters
Dim count As Integer
For count = 1 To ListView1.ListItems.count
ListView1.ListItems(count).Selected = True
Printer.CurrentX = kol1
Printer.Print ListView1.SelectedItem; 'navn
Printer.CurrentX = kol2
Printer.Print ListView1.SelectedItem.SubItems(1); 'Adresse
Printer.CurrentX = kol3
Printer.Print ListView1.SelectedItem.SubItems(2); 'Posrnr
Printer.CurrentX = kol4
Printer.Print ListView1.SelectedItem.SubItems(3) 'bynavn
Next
Printer.EndDoc


End Sub
"d@n" <dan@hilding.dk> skrev i en meddelelse
news:95urd3$1iqq$2@news.cybercity.dk...
> Hej Jan
> hvad er en fin udskrivning......er det, eller er det noget "fansi" du er
ude
> efter?
>
> dim X as long
> Printer.ScaleMode = 7
> Printer.Orientation = 1
> Printer.FontSize = 12
>
> For X = 1 To lstW.ListItems.Count
> Printer.Print ; Tab(15); lstW.ListItems(X); 'feks. navn
> Printer.Print ; Tab(50); lstW.ListItems(X).SubItems(1) 'feks. cpr nr
> Next
> Printer.EndDoc
>
> mvh Dan
>
> "Jan Damkjær Dahl" <jpd@post12.tele.dk> skrev i en meddelelse
> news:95pnpv$i1h$1@news.inet.tele.dk...
> > hejsa
> >
> > er der nogen der har en kode til en fin udskrivning fra en listview. ?
> >
> >
> >
> >
>
>