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.