Delphi dicas

Imprimindo listbox para impressora usb

Coloque Printers no Uses:

uses

Printers;



procedure TForm1.Button4Click(Sender: TObject);

var

p:integer;

text:textfile;

begin

        AssignPrn(text);

        Rewrite(text);

        For P := 0 to listbox1.Items.Count-1 do

        Writeln(text,listbox1.Items.Strings[P]);

        CloseFile(text);

end;

por : Emanuel Vinicius De Jesus Silva Gomes