/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
listview og udskrivning
Fra : Jan Damkjær Dahl


Dato : 06-02-01 21:46

hejsa

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





 
 
d@n (08-02-2001)
Kommentar
Fra : d@n


Dato : 08-02-01 20:23

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. ?
>
>
>
>



Jan Damkjær Dahl (08-02-2001)
Kommentar
Fra : Jan Damkjær Dahl


Dato : 08-02-01 23:56

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. ?
> >
> >
> >
> >
>
>



Søg
Reklame
Statistik
Spørgsmål : 177560
Tips : 31968
Nyheder : 719565
Indlæg : 6408943
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste