Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
n:Integer;
begin
for n:=0 to listbox1.Items.Count -1 do
begin
Form1.Canvas.Textout(100,n*20, listbox1.Items.Strings[n]);
end;
En vez de Form1, pones Printer, tienes que utilizar la Unidad Printers para que te funcione correctamente.
Un Saludo.