Hej vänner.. kommer inte riktigt ihåg om print skapade nya rader automatiskt och så, för jag har knappt använt det. Men det jag vet säkert är att du inte kan använda dig av .Text när hela listan ska skrivas ut. Vad är felet då? Vad är det som inte fungerar Tackar....så blir det när man är för snabb...allt fungerar som det skall..Skriv ut listbox
Jag har en listbox och så skulle jag vilja skriva ut innehåller i den rakt ut på skrivare.
använder följande men det händer inget. Någon som har något förslag?
Private Sub Command1_Click()
Printer.Print lstlista.Text
Printer.EndDoc
Tacksam för svarSv: Skriv ut listbox
Text är bara texten på den markerade raden i listan, och har du inget alls markerat, så blir det tomt..
Ungefär såhär borde du göra:
<code>
Private Sub Command1_Click()
For i = 0 to lstlista.ListCount - 1 '-1 är för att den börjar räkna från ett, och inte noll
Printer.Print lstlista.List(i) '0 är första raden i listan
Next
End Sub
</code>
Då går du igenom alla rader i listan.. =)Sv: Skriv ut listbox
(Måste väl tillägga att jag råkade glömma Printer.EndDoc efter "Next" -raden, men det tror jag att du förstod ändå)Sv: Skriv ut listbox
Tack än en gång.