Hvordan får man en printer til at skifte linje selv? \"Autolinefeed\"

When you say that your printing \"ud fra en Access database\" do you mean that the data is commíng from an Access dB or that you are printing a report via Access?

If your taking the data from Access and printing it via a VB program then you can send a VBCrLf to the printer when ever you want.

But I would also have thought that your printer did it Automatically.

My data is comming from at access db and i am printing it from my VB program! What\'s that \"VBCrLf\" you are talking about??

Du kan evt. indprogramerer denne routine.

Dim NewLine, DinString as String

Nl = Chr(10) + Chr(13)

Hvergang du nu sætter Nl efter en linje vil den automatisk skifte til næste linje.

Min Printer kode er nok lidt sløv men den virker!
Kan du ikke hjælpe mig med at sætte dem de rigtige steder??

Private Sub cmdprint_Click()
svar = MsgBox(\"Udskriv side?\", 4, \"slet post\")
If svar = 6 Then
Printer.Print \"  \"
Printer.Print \"OTS SKP NOTA\"
Printer.Print \"  \"
Printer.Print \"  \"
Printer.Print \"Opgavenr:\"; \"        \"; txbopgnr.Text
Printer.Print \"Dato Start:\"; \"      \"; txbdatostart.Text
Printer.Print \"Prioitet:\"; \"        \"; txtprio.Text
Printer.Print \"Deadline:\"; \"        \"; txtdeadl.Text
Printer.Print \"  \"
Printer.Print \"              _______________________________________________________________\"
Printer.Print \"  \"
Printer.Print \"Type:\"; \"            \"; txttype.Text
Printer.Print \"Modtaget Af:\"; \"    \"; txtmodt.Text
Printer.Print \"Ansvarlig:\"; \"      \"; txtansv.Text
Printer.Print \"Afdeling:\"; \"        \"; txtafdel.Text
Printer.Print \"Lokalitet:\"; \"      \"; txtloka.Text
Printer.Print \"  \"
Printer.Print \"              _______________________________________________________________\"
Printer.Print \"  \"
Printer.Print \"Fejlraport:\"; \"      \"; txtbopgmodt.Text
Printer.Print \"              _______________________________________________________________\"
Printer.Print \"  \"
Printer.Print \"Opgave Færdig:\"; \"  \"; txtopgaflev.Text
Printer.Print \"              _______________________________________________________________\"
Printer.Print \"  \"
Printer.Print \"Kontakt:\"; \"        \"; txbkont.Text
Printer.Print \"Ring:\"; \"          \"; chkring.Value
Printer.Print \"Tlf:\"; \"            \"; txbtlf.Text
Printer.Print \"  \"
Printer.Print \"  \"
Printer.Print \"  \"
Printer.Print \"  \"
Printer.Print \"  \"
Printer.Print \"  \"
Printer.Print \"                \"; \"Underskrift\"
Printer.Print \"  \"
Printer.Print \"  \"
Printer.Print \"              \"; \"------------------ \"
Printer.EndDoc
End If

End Sub

c.aa.t> If I understand your question correctly you have problems with the contents of some lines containing too many characters for the line. For example, the lines such as

Printer.Print \"              _______________________________________________________________\"
get prined OK and they also get followed by a new line. But lines such as
Printer.Print \"Tlf:\"; \"            \"; txbtlf.Text may get printed incorrectly.

I suggest that you place the contents of a line into a string. Then make a function which scans the line inserting a VBCrLf (This is the same as Chr(10) + Chr(13)) after each 80 characters.

Can you give an example?? I am very very new at this... i have only worked with VB about 5 days
so i don\'t know that much

This is just a VERY simple way to do it but it works and it may give you some idea\'s.

You make a function like this:

Function LineFormat(sLine As String) As String
Dim i As Integer
Dim j As Integer

    j = 0
    LineFormat = \"\"
    For i = 1 To Len(sLine)
        j = j + 1
        If j = 80 Then
            LineFormat = LineFormat & vbCrLf
            j = 1
        End If
        LineFormat = LineFormat & Mid(sLine, i, 1)
   
    Next i
   
End Function

Then you replace the lines such as:
Printer.Print \"Kontakt:\"; \"        \"; txbkont.Text

With:
Printer.Print LineFormat(\"Kontakt:\" &  \"        \" & txbkont.Text)

Notice I have replaced the ; with &

This just converts the whole which you printed before to a single string to sedn to the function. The function then formtas the line.

Should i replace my entire code??

No. I would suggest that you only replace the lines where you are having problems. I would think its thoughs where you are printing the contents of a text field such as

Printer.Print \"Kontakt:\"; \"        \"; txbkont.Text

You would just replace the line with
Printer.Print LineFormat(\"Kontakt:\" &  \"        \" & txbkont.Text)

I keep getting errors!
Private Sub cmdprint_Click() is highlighted