Udskriv textbox

Hvordan printer du, via en variabel eller teksten direkte fra tekstboksen?

Prøv evt. med:
Nytekst = Replace(txtboks.text, chr(10)+chr(13),vbcrlf)

teksten direkte...

Hvordan er koden?

Såre simpel...

printer.print text1.text

Så prøv Printer.Print Replace(text1.text, chr(10)+chr(13),vbcrlf)

ændrer ikke noget. Det står stadigvæk som en linie selvom jeg skrev 4 linier tekst

Ja selvfølgelig jeg tænkte mig ikke lige om. Der kommer jo kun en chr(10)+chr(13) hvis man selv trykker enter i boksen. Du er nok nødt til selv at bestemme hvor mange tegn du vil have pr. linie og så dele din tekst op når du udskriver.
Noget a la
Do While i < Len(text1.text)
  Printer.Print mid(text1.text, i, 25) <--Skriver 25 tegn ud.
  i = 26
Loop

Og så skal du lige sætte i=1 inden du looper

Hmm og i=26 skal rettes til i = i + 25

Hej.

Jeg har engang for længe siden i VB3 syslet med problemet.  Det gælder om at undgå underlige orddelinger.  Her er en stump af koden fra dengang der skitserer en løsning.

o4:        If Len(linie0) > 90 + z Then
          linie1 = Left$(linie0, 90 + z)
         
          For y = 90 + z To 70 Step -1            'funktion for ikke at
            If Mid$(linie1, y, 1) = " " Then      'dele linier midt i et ord
                linie1 = Left$(linie0, y)
                Exit For
              End If
          Next

M.v.h.  Jørn

lukker

Hej.

Du gider ikke kommentere seneste forslag eller skrive hvilken løsning du er nået frem til?
M.v.h. Jørn

Har du tænkt dig at kommentere hvorfor du bare selv snupper point uden at forklare hvorfor?