Achei dois exemplos:
889 - Como Imprimir o Conteúdo de Um Stringlist
---------------------------------
Acrescente a unit Printers no uses.
Para testar o exemplo abaixo inclua no seu form um componente ListBox e um
componente Button.
// função que imprime um Stringlist
procedure ImprimeTStrings(Lst: TStrings);
var
I, Linha: Integer;
begin
I := 0;
Linha := 0;
Printer.BeginDoc;
for I := 0 to Lst.Count - 1 do
begin
Printer.Canvas.TextOut(0, Linha, Lst[I]);
Linha := Linha + Abs(Printer.Canvas.Font.Height);
if (Linha >= Printer.PageHeight) then
Printer.NewPage;
end;
Printer.EndDoc;
end;
// Evento OnClick do componente Button
procedure TForm1.Button1Click(Sender: TObject);
begin
ImprimeTStrings(ListBox1.Items);
end;
Fonte: Dicas e Truques de Delphi v.2.8
Com algumas adaptações, o código no link abaixo tb pode fazer a mesma coisa:
http://www.swissdelphicenter.ch/torry/showcode.php?id=1783
Sds,
Ricardo.
bene20032004 <[EMAIL PROTECTED]> escreveu:
Pessoal, como faço para imprimir o que esta no listbox ?
Muito obrigado por enquanto !
_
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
