[marcoszorrilla]

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus,Printers,DB, ToolWin, ComCtrls, Buttons, StdCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var
n:Integer;
begin
Printer.BeginDoc;
 for n:=0 to listbox1.Items.Count -1 do
 begin
Printer.Canvas.Textout(100,n*20, listbox1.Items.Strings[n]);
 end;

Printer EndDoc;

Pues te tiene que funcionar puesto que yo le he usado durante mucho tiempo para imprimir recibos y medidas no estándar.

Un Salduo.