/ 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
Ud skrivning af access database
Fra : Heino Randa


Dato : 31-01-01 23:54

Jeg har en access database med følgene felter

Navn = txtnavn.text
tlf = txtflt.text
email = txtemail.text

hvordan kan jeg udskrive det sådan at det står lige under hinanden jeg kan
ikke bruge tab; da det kommer an på længden på text feltet.
skulle se sådan ud:_

jesper 88888888 jesper@mail.dk
frode 77777777 frode@mail.dk
ib 66666666 ib@mail.dk


når jeg udskrive det se det sådan ud



jesper 88888888 jesper@mail.dk
frode 77777777 frode@mail.dk
ib 66666666 ib@mail.dk

er der nogle der kan hjælpe mig skrive til mig på heino.randa@mail.tele.dk
eller i NG

Håber på hjælp



 
 
Jojje (01-02-2001)
Kommentar
Fra : Jojje


Dato : 01-02-01 15:01

Bruk en "Mono" tekstfont.
Hilsen Jojje


"Heino Randa" <heino.randa@mail.tele.dk> skrev i melding
news:95a52t$kes$1@news.inet.tele.dk...
> Jeg har en access database med følgene felter
>
> Navn = txtnavn.text
> tlf = txtflt.text
> email = txtemail.text
>
> hvordan kan jeg udskrive det sådan at det står lige under hinanden jeg kan
> ikke bruge tab; da det kommer an på længden på text feltet.
> skulle se sådan ud:_
>
> jesper 88888888 jesper@mail.dk
> frode 77777777 frode@mail.dk
> ib 66666666 ib@mail.dk
>
>
> når jeg udskrive det se det sådan ud
>
>
>
> jesper 88888888 jesper@mail.dk
> frode 77777777 frode@mail.dk
> ib 66666666 ib@mail.dk
>
> er der nogle der kan hjælpe mig skrive til mig på heino.randa@mail.tele.dk
> eller i NG
>
> Håber på hjælp
>
>



Jens Andersen (01-02-2001)
Kommentar
Fra : Jens Andersen


Dato : 01-02-01 17:24

Hvad med

Dim navn As String
navn = Left$(Text1.Text & Space(30), 30)

Så bliver alle strenge 30 tegn lange også en med kun ét tegn.

Men det fylder selvfølgelig med alle de blanktegn !!!


Roser sendes til
til@infojens.dk




Helge Bjørkhaug (02-02-2001)
Kommentar
Fra : Helge Bjørkhaug


Dato : 02-02-01 11:05

"Jens Andersen" <til@infojens.dk> skrev i melding news:95c2gj$24e$1@news.inet.tele.dk...
> Hvad med
>
> Dim navn As String
> navn = Left$(Text1.Text & Space(30), 30)
>
> Så bliver alle strenge 30 tegn lange også en med kun ét tegn.
>
> Men det fylder selvfølgelig med alle de blanktegn !!!
>

ja, eller bruke Printer.CurrentX property'en.

Printer.ScaleMode = vbCentimeters
Printer.Print Navn;
Printer.CurrentX = 5
Printer.Print Tlf;
Printer.CurrentX = 10
Printer.Print Email
Printer.EndDoc

Bemerk "semikolon" på de to første print-linjene for å forhindre "linjeskift".

Snutten



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


Dato : 07-02-01 20:19

lige hvad jeg kunne bruge, jeg udskriver fra en listviev

jeg sætter nogle variabler med verdier for, hvor kollonnerne skal begynde,
så kan man ydereligerer måle på antal af karekter og sætte variablerne der
efter.

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
Dim count As Integer
For count = 1 To ListView1.ListItems.count
ListView1.ListItems(count).Selected = True
Printer.FontSize = 12
Printer.ScaleMode = vbCentimeters
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); 'PostNummer
Printer.CurrentX = kol4
Printer.Print ListView1.SelectedItem.SubItems(2); 'Bynavn
Next
Printer.EndDoc
End Sub

"Helge Bjørkhaug" <snutten@techie.online.no> skrev i en meddelelse
news:1Dve6.962$XUf.180328448@news.telia.no...
> "Jens Andersen" <til@infojens.dk> skrev i melding
news:95c2gj$24e$1@news.inet.tele.dk...
> > Hvad med
> >
> > Dim navn As String
> > navn = Left$(Text1.Text & Space(30), 30)
> >
> > Så bliver alle strenge 30 tegn lange også en med kun ét tegn.
> >
> > Men det fylder selvfølgelig med alle de blanktegn !!!
> >
>
> ja, eller bruke Printer.CurrentX property'en.
>
> Printer.ScaleMode = vbCentimeters
> Printer.Print Navn;
> Printer.CurrentX = 5
> Printer.Print Tlf;
> Printer.CurrentX = 10
> Printer.Print Email
> Printer.EndDoc
>
> Bemerk "semikolon" på de to første print-linjene for å forhindre
"linjeskift".
>
> Snutten
>
>



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

Månedens bedste
Årets bedste
Sidste års bedste