procedure TForm1.Drucken1Click(Sender: TObject);
var zeile: Integer; PrintText: TextFile;
begin
if PrintDialog1.Execute then begin
AssignPrn(PrintText);
Rewrite(PrintText);
Printer.Canvas.Font := listbox1.Font;
for zeile:= 0 to listbox1.items.Count - 1 do begin
Writeln(PrintText, listbox1.items[zeile]);
CloseFile(PrintText); end;
end;
Damit wird eine Liste mit dem Standard-Windows-Dialog gedruckt.
Wenn du die Playlist drucken willst, empfiehlt sich vielleicht auch iTunes. Dort kannst du die R&DJ Liste importieren (*.m3u z.B.) und dann drucken. iTunes macht glaube ich auch Deckblätter dazu.
damit druckst Du dann aber diese ewig langen Zeilen komplett aus.
Weil man es sowieso nie allen mit der Druckausgabe recht machen kann, hatte ich dann diesen Export von Tabellen und Listen als Textfile mit ins Programm integriert. Diese werden als *.csv abgespeichert, mit Excel kann man die noch bearbeiten bzw. formatieren und drucken.