title image


Smiley Re: Zeielnumbruch beim Ausdrucken
so vielleicht



Dim j as Long

Dim LineLen As long



LineLen = 80

For j = 1 To Len(rs("Feld6").Value & "") Step LineLen

   Printer.Print sp & "Information: " & Mid$(rs("Feld6").Value & "", j, LineLen)

Next j
Gruß
Gaga

___________________________________________________________________

Profilösungen für VB6
wenn nicht anders angegeben, sind alle Codebeispiele nicht getestet, nur getippt


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: