Udskriv indhold af textbox

Du må skille linierne ad "manuelt", og angive CurrentX + CurrentY for hver linie.

Hej Martin.
Ja! Det er jeg klar over, men vil du ikke give et eksempel på hvordan jeg adskiller linierne? Hvordan definerer jeg den enkelte linie i tekstboksen?

split teksten på vbcrlf
udskriv hvert element fra listen.

Hej mermermer.
Kan du ikke prøve at vise eksempel på syntax til løsning af programmeringen?

Ja, prøv med :

Private Sub Command1_Click()
Dim s() As String
Dim i As Integer

i = 0
s = Split(Text1.Text, vbCrLf)
While i <= UBound(s)
MsgBox s(i)
i = i + 1
Wend
End Sub

Hej Martin.
Jeg har stadig problemer med at få det til at virke rigtigt.
Jeg kan kun styre printer.CurrentY, hvorimod CurrentX kun virker på den første linie. Min programmering ser ud som følgende:

Private Sub Command1_Click()
Dim s() As String
Dim i As Integer
i = 0
s = Split(Text1.Text, vbCrLf)
While i <= UBound(s)
Printer.CurrentX = 7036
Printer.CurrentY = 7390
Printer.Print Text1.Text
i = i + 1
Wend
Printer.EndDoc
End Sub

Hilsen Finn

Du skal ikke printe hele tekstboxen men kun s(i) ad gangen.
Og du skal skifte linie med "+ i * linjeafs"

Private Sub Command1_Click()
Dim s() As String
Dim i As Integer
Dim linjeafs As Integer
linjeafs = 450
i = 0
s = Split(Text1.Text, vbCrLf)
While i <= UBound(s)
Printer.CurrentX = 1000
Printer.CurrentY = 1000 + i * linjeafs
Printer.Print s(i)
i = i + 1
Wend
Printer.EndDoc
End Sub

Hej Martin
Det var lige jeg skal bruge. Det virker perfekt. Tak for hjælpen og god påske.
mvh
Finn

hvad med nogle point så ?

Jeg gik ud fra, at du fik point, når jeg accepterede dit svar. Jeg har aktiveret knappen. Har du stadig ikke fået point??

Har du fået dine point? Hvis ikke, så forklar mig lige hvordan jeg tildeler point!

jeg ved det ikke det er også ligemeget blot du fik løst dit problem !!!

mon jeg skal svare ?

Gad vide om dine point er gået til martin ?

hilsen
mermermer.

finnbl skal markere mermermer's navn, når han accepterer !-)

Så længe der står "svar" og ikke "Afvist svar" eller "accepteret svar", er spørgsmålet stadig åbent.

NB: Du skal naturligvis være logget ind for at det virker...

Og det er IKKE ligemeget om spørgsmålet er åbent eller ej. Tag bare points selv, hvis mermermer ikke vil have points - bare du lukker :o)