печать listbox

[Ghennadiy]

срочно нужен хелп!
есть форма на которой listbox
как ее вывести содержимое listbox на печать??
if PrintDialog1.Execute then //печать listbox
спасибо!

[Alex2391]

Так не пробывал:

procedure PrintStrings(Strings: TStrings); 
var 

  Prn: TextFile; 
  i: word; 
begin 

  AssignPrn(Prn); 
  try 
    Rewrite(Prn); 
    try 
      for i := 0 to Strings.Count - 1 do 
        writeln(Prn, Strings.Strings[i]); 
    finally 
      CloseFile(Prn); 
    end; 
  except 
    on EInOutError do 
      MessageDlg('Ошибка печати текста.', mtError, [mbOk], 0); 
  end; 
end;

Для печати:

PrintStrings(Listbox1.Items);

[Ghennadiy]

пробовал не работает
на PrintStrings(Listbox1.Items); ругаеться to many actual parametrs

[Alex2391]

А uses Printers; не забыл?
И PrintStrings(Listbox1.Items); в кнопку засунул?
Тогда не знаю, у меня работает.
Для точности вот полный код:

unit Unit10;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Printers;

type
  TForm10 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure PrintStrings(Strings: TStrings);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.PrintStrings(Strings: TStrings);
var  

  Prn: TextFile;  
  i: word;
begin  

  AssignPrn(Prn);
  try
    Rewrite(Prn);  
    try
      for i := 0 to Strings.Count - 1 do
        writeln(Prn, Strings.Strings[i]);
    finally  
      CloseFile(Prn);
    end;  
  except
    on EInOutError do  
      MessageDlg('Ошибка печати текста.', mtError, [mbOk], 0);
  end;  
end;

procedure TForm10.Button1Click(Sender: TObject);
begin
PrintStrings(Listbox1.Items);
end;
end.

[Stilet]

Еще один вариант:

var i:integer;
begin
  if PrinterSetupDialog1.Execute then
  with Printer do begin
  BeginDoc;
  Canvas.Font.Name:='Thimes New Roman';
  Canvas.Font.Size:=12;
   for i:=0 to ListBox1.Items.Count-1 do
    Canvas.TextOut(0,i*Canvas.TextHeight('W'),ListBox1.Items[i]);
   EndDoc;
  end;
end;

Учитывая

uses    printers, ...

Ну и конечно возможно размер фонта нужно подрегулировать