Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

11th
Мар

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

Posted by micher under Delphi

Подскажите, как печатать базу данных из ListView?

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;