| imho.ws |
![]() |
|
|
|
# 4 | |
|
Newbie
Регистрация: 07.05.2003
Сообщения: 21
![]() |
Re: отчеты в Delphi
Цитата:
Fast Report вообще-то сам определяет сколько страниц необходимо сформировать. |
|
|
|
|
|
# 6 |
|
Guest
Сообщения: n/a
|
Код:
procedure TMainForm.acPrintExecute(Sender: TObject); var frPhoto, frMap: TfrPictureView; frInfo: TfrView; Page: TfrPage; i: integer; delta: integer; begin delta := 20; frReport1.Pages.Clear; if InfoPanel.SelCount = 0 then InfoPanel.SelectAll; for i := 0 to InfoPanel.Items.Count - 1 do if InfoPanel.Items[i].Selected then begin frReport1.Pages.Add; // create page Page := frReport1.Pages[i]; frPhoto := TfrPictureView.Create; frPhoto.SetBounds(delta, delta, Round(Page.pgWidth / 3), Round(Page.pgHeight / 6)); frPhoto.Picture.LoadFromFile(currdir + PhotosDir + InfoPanel.Items[i].Caption + '.jpg'); Page.Objects.Add(frPhoto); frInfo := TfrMemoView.Create; frInfo.BandAlign:=baWidth; frInfo.dy:=20; frInfo.y:=delta+Round(Page.pgHeight / 6)+20; frInfo.Memo.Add(InfoPanel.Items[i].Caption); Page.Objects.Add(frInfo); frMap := TfrPictureView.Create; frMap.SetBounds(20, frInfo.y + delta, Round(Page.pgWidth / 3), Round((Page.pgHeight / 6) * 0.75)); frMap.Picture.LoadFromFile(currdir + Mapsdir + InfoPanel.Items[i].Caption + '.jpg'); Page.Objects.Add(frMap); end; frReport1.ShowReport; end; end. А еще лучше посмтори вот это http://www.fastreport.ru/ru/faq.php |
|
|
# 7 |
|
Newbie
Регистрация: 29.01.2004
Сообщения: 26
![]() |
народ подскажите что за траблы в FastReporte в preview устанавливаю на принтер размер листа А3 пичатаю - всё ОК, но когда в виндовсе устанавливаю А3 то в FastReporte стоит всё тот же А4.
Как-то надоедает ето править. Как заставить FastReport поддерживать виндовс настройки принтера? |
|
|