title image


Smiley Re: Drucken von MultiLine-Textbox
Dim strText$Dim strZeile$Dim FNumFNum = FreefilestrText = text1.textopen "text.tmp" for output as #FNumprint #FNum, strTextclose #FNumOpen "text.tmp" for Input as #FNumDo while not EOF(1)Input #FNum, strZeileIf strZeile = "" then goto WeiterPrinter.Print "...." & strZeile'oder: Printer.Print tab(4),strZeileWeiter:LoopClose #FNumKill "Text.tmp"'************************************Hoffe, das hilft Dir. Sowas läßt sich immer gut über temporäre Dateien lösen, die Du kurz erstellst, benutzt, und dann wieder löschst.mfGStevi

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: