Hjælp til udskrivnig af Data!

et forslag hvis det kan bruges

Dim UdStr As String
' for I = 1 to antal linier
UdStr = Space(80)' sætter 80 mellemrum i variablen
Mid(UdStr, 1, Len(Text1)) = Text1.Text ' første kolonne
Mid(UdStr, 10, Len(Text2)) = Text2.Text ' anden kolonne
' osv for hver linie
'udskriv linien
'Next i

Ok... kan jeg så bare udskrive den bagefter direkte til printeren???

der hvor jeg skriver udskriv, skal du gemme dem i en tekstfil,og så skriv den ud bagefter, når alle data er skrevet til filen

Se lige her:

Do Until rsExpansionJoints.EOF
Dim PrisPerstyk As Double

    PrisPerstyk = CDec(rsExpansionJoints("Price") * rsExpansionJoints("Quantety"))
    TotalPris = CDec(TotalPris + PrisPerstyk)
    LST_ExpansionJoints.AddItem rsExpansionJoints("ID") & vbTab & rsExpansionJoints("NemTallyNo") & vbTab & rsExpansionJoints("KompType") & vbTab & rsExpansionJoints("AxMove") & vbTab & rsExpansionJoints("LatMove") & vbTab & rsExpansionJoints("Quantety") & vbTab & rsExpansionJoints("Price") & vbTab & PrisPerstyk
    rsExpansionJoints.MoveNext
Loop

rsExpansionJoints.Close
Set rsExpansionJoints = Nothing

Hvordan er det lige du mener så?

Dim UdStr As String

Do Until rsExpansionJoints.EOF
Dim PrisPerstyk As Double
UdStr = Space(80)' sætter 80 mellemrum i variablen
PrisPerstyk = CDec(rsExpansionJoints("Price") * rsExpansionJoints("Quantety"))
    TotalPris = CDec(TotalPris + PrisPerstyk)


Mid(UdStr, 1, Len( rsExpansionJoints("ID") )) = rsExpansionJoints("ID")
Mid(UdStr, 10, Len( rsExpansionJoints("NemTallyNo") )) = rsExpansionJoints("NemTallyNo")
Mid(UdStr, 20, Len( rsExpansionJoints("KompType") )) = rsExpansionJoints("KompType")
Mid(UdStr, 30, Len( rsExpansionJoints("AxMove") )) = rsExpansionJoints("AxMove")
Mid(UdStr, 40, Len( rsExpansionJoints("LatMove") )) = rsExpansionJoints("LatMove")
Mid(UdStr, 50, Len( rsExpansionJoints("Quantety") )) = rsExpansionJoints("Quantety")
Mid(UdStr, 60, Len( rsExpansionJoints("Price") )) = rsExpansionJoints("Price")
Mid(UdStr, 70, Len(PrisPerstyk)) = PrisPerstyk

  LST_ExpansionJoints.AddItem UdStr
    rsExpansionJoints.MoveNext
Loop

rsExpansionJoints.Close
Set rsExpansionJoints = Nothing


Nogeti denne stil, ret selv tallene1 til 70, som den er vist her er der 10 tegn til hver værdi

Tjek lige her:
http://www.eksperten.dk/spm/595775

lukker