печать данных из ListView

[Нурхан]

Подскажите как печатать базу данных из ListView;
Не предлагать менять компонент ListView;
Раньше оно печаталось и каким то образом я удалил код, но Button все таки остался. Думаю опытным Дельфийцам это не трудно.

[Stilet]

Трудно, хотя бы сходя из того что Листвью не предназначен для баз данных.
Если он наполнялся из БД то нужно связать с ней какой-нить Report из популярных типа QReport или FastReport, если нет то наверное в цикле используя что-то типа

var x,y,th,i,j:integer;
begin
 if key=#27 then begin Memo1.Lines.Clear;close;end else
 if key=#13 then begin
   with Printer do begin
    PrinterIndex:=0;
    if Portrait then   Orientation:=poPortrait else Orientation:=poLandscape;
    BeginDoc;
    Canvas.Font.Size:=10;
    Canvas.Font.Name:='Courier New';
    x:=10;y:=0;
    th:=Canvas.TextHeight('W');
    for i:=0 to ListView.Items.Count-1 do begin
         Canvas.TextOut(x,y,ListView.Items.Caption);
         for j:=0 to ListView.Items.Subitems.Count-1 do
           Canvas.TextOut(x+((j+1)*100),y,ListView.Items.Caption);
         inc(y,th);
    end;
    EndDoc;
   end;
 end;

[Нурхан]

а можно ли через ravereport сделать отчет из listview если знаешь напиши код
знаю только с ним делать отчеты

[Stilet]

Я уже дал ответ в твоей второй теме.

[develsnik]

попробуй через PrintDIalog .