/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
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
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177551
Tips :
31968
Nyheder :
719565
Indlæg :
6408825
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.