Listenfeld drucken

Computer: Software & Programmierung Visual Basic
#1

hallo
kann mir vielleicht einer sagen wie man den inhalt eines listenfeldes drucken kann.

Private Sub Drucken_Click()
Printer.FontName = Printer.Fonts(0)
Printer.Print List1

#2

Hi,
ganz so einfach geht das in VB nicht, da muss man schon manuell drüberrödeln:

Private Sub Drucken_Click()
Printer.FontName = Printer.Fonts(0)

for i = 0 to list1.listcount-1
Printer.Print List1.list(i)
next i

Printer.EndDoc
End Sub

danke

Bitte
Ralph

#3

Und noch eine Frage wie geht das mit dem Speichern. Ich möchte das es eine Abfrage gibt wo der Dateiname gefragt, wird zb. 123 dann soll an 123.txt angehängt werden und der Inhalt des Listenfeldes soll darin gespeichert werden. muss ich hier auch einen durchlauf machen lassen?

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Und noch eine Frage wie geht das mit dem Speichern. Ich möchte
das es eine Abfrage gibt wo der Dateiname gefragt, wird zb.
123 dann soll an 123.txt angehängt werden und der Inhalt des
Listenfeldes soll darin gespeichert werden. muss ich hier auch
einen durchlauf machen lassen?

Private Sub cmdSpeichern\_Click()
dim name as string
dim i as integer
dim fh as integer # filehandle
name = inputbox("Input filename:")
fh = freefile
open name & ".txt" for output as #fh
for i = 0 to list1.listcount-1
 print #fh, List1.list(i) & vbcrlf
next i
close #fh
End Sub

Ralph

#5

Danke Ralph
du bist der größte
dankedankedankedankedankedankedankedankedankedankedankedankedankedankedankedankedankedankedanke