---

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 = 8
Printer.ScaleMode = vbCentimeters
Printer.CurrentX = kol1
Printer.Print "nr."
Printer.CurrentX = kol2
Printer.Print "Navn"
Printer.CurrentX = kol3
Printer.Print "adresse"
Printer.CurrentX = kol4
Printer.Print "nummer"
'*******************************************
Printer.CurrentX = kol1
Printer.Print text1.text
Printer.CurrentX = kol2
Printer.Print text2.text
Printer.CurrentX = kol3
Printer.Print Text3.text
Printer.CurrentX = kol4
Printer.Print text4.text
End Sub

det var meningen at de fire felter skulle værer på en linje hvad er der galt
med koden

de skulle udskrive i fire kononder i to linge men de blive udskreve i otte
linje og 4 kolonder

---

Hejsa

Printer.Print "et eller andet"

Indsættes der automatisk et linjeskift. brug i stedet Printer.Print "et
eller andet";

-Mads

"Expert Billund" <Billund@expert.dk> wrote in message
news:96b0cs$l4c$1@news.inet.tele.dk...
> 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 = 8
> Printer.ScaleMode = vbCentimeters
> Printer.CurrentX = kol1
> Printer.Print "nr."
> Printer.CurrentX = kol2
> Printer.Print "Navn"
> Printer.CurrentX = kol3
> Printer.Print "adresse"
> Printer.CurrentX = kol4
> Printer.Print "nummer"
> '*******************************************
> Printer.CurrentX = kol1
> Printer.Print text1.text
> Printer.CurrentX = kol2
> Printer.Print text2.text
> Printer.CurrentX = kol3
> Printer.Print Text3.text
> Printer.CurrentX = kol4
> Printer.Print text4.text
> End Sub
>
> det var meningen at de fire felter skulle værer på en linje hvad er der
galt
> med koden
>
> de skulle udskrive i fire kononder i to linge men de blive udskreve i otte
> linje og 4 kolonder
>
>

---

Du må nok sette Printer.CurrentY til samme verdi for alle linjer du vil ha
printet på samme linje

Printer.CurrentY = 2
Printer.CurrentX = kol1
Printer.Print "nr."
Printer.CurrentY = 2
Printer.CurrentX = kol2
Printer.Print "Navn"
Printer.CurrentY = 2
Printer.CurrentX = kol3
Printer.Print "adresse"
Printer.CurrentY = 2
Printer.CurrentX = kol4
Printer.Print "nummer"


"Expert Billund" <Billund@expert.dk> wrote in message
news:96b0cs$l4c$1@news.inet.tele.dk...
> 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 = 8
> Printer.ScaleMode = vbCentimeters
> Printer.CurrentX = kol1
> Printer.Print "nr."
> Printer.CurrentX = kol2
> Printer.Print "Navn"
> Printer.CurrentX = kol3
> Printer.Print "adresse"
> Printer.CurrentX = kol4
> Printer.Print "nummer"
> '*******************************************
> Printer.CurrentX = kol1
> Printer.Print text1.text
> Printer.CurrentX = kol2
> Printer.Print text2.text
> Printer.CurrentX = kol3
> Printer.Print Text3.text
> Printer.CurrentX = kol4
> Printer.Print text4.text
> End Sub
>
> det var meningen at de fire felter skulle værer på en linje hvad er der
galt
> med koden
>
> de skulle udskrive i fire kononder i to linge men de blive udskreve i otte
> linje og 4 kolonder
>
>