Композитный отчёт

igrik

Есть отчёт маленький по размеру(штрих код для товара)

его загружаю, растягиваю до А4, делаю в нём 4 колонки, (всё это программно)

потом в цикле делаю PrepareReport,
первая колонка проходит нормально, а вот на вторую колонку, след. отчёты(маленькие) не попадают, точнее они вроде и попадают,но не сверху листа, а в самом низу, и уходят видять за пределы страницы вниз..

вот такой недочёт есть...

igrik

АП!
Всё это делал, по примеру из Мануала...


эмм... помогите, или попробуйте сами, реально не работает..
или хоть ответьсе что нибудь.

gpi

Выложите шаблон отчёта

igrik

файл

gpi

Колонки задаются для страницы? Ширина колонок устанавливается?
Хотелось бы увидеть код, выполняющий модификацию отчёта (если на Delphi)

igrik

Report3 := TfrxReport.Create(Application);
Report3.PreviewOptions.Modal := false;
Report3.PreviewOptions.MDIChild := true;
Report3.PreviewOptions.Maximized := false;
Report3.PreviewOptions.Buttons := Report3.PreviewOptions.Buttons - [pbLoad,pbSave];
Report3.Script.Parent := fsGlobalUnit;
Report3.Clear;
Report3.LoadFromFile(BZB_TheWorkingPath+'ListEtiket\'+
RName);
A4 := Report3.ReportOptions.Description.Text;

//ЗДЕСЬ РАСЧИТЫВАЮТСЯ ПОЛЯ
TfrxReportPage(Report3.Pages[1]).TopMargin := round(StrToFloat(Token(A4,';',1,1))*10);
TfrxReportPage(Report3.Pages[1]).BottomMargin := round(StrToFloat(Token(A4,';',1,1))*10);
TfrxReportPage(Report3.Pages[1]).LeftMargin := round(StrToFloat(Token(A4,';',2,1))*10);
TfrxReportPage(Report3.Pages[1]).RightMargin := round(StrToFloat(Token(A4,';',2,1))*10);
TfrxReportPage(Report3.Pages[1]).PaperHeight := 297;
TfrxReportPage(Report3.Pages[1]).PaperWidth := 210;
TfrxReportPage(Report3.Pages[1]).PrintOnPreviousPage := true;
TfrxReportPage(Report3.Pages[1]).Columns := Round((210 -
2 * TfrxReportPage(Report3.Pages[1]).LeftMargin) /
(round(StrToFloat(Token(A4,';',3,1))*10))); //ЗДЕСЬ КОЛИЧЕСТВО КОЛОНОК РАСЧИТЫВЕТСЯ


// ЦИКЛ ПО СОЗДАНИЮ КОМПОЗИТНОГО ОТЧЁТА
for z := 0 to List.Count - 1 do
begin
b := TImgRec(List.Objects[z]);
for i := 1 to b.cnt do begin
b.Table.GotoBookmark(b.bm);
Report3.PrepareReport(false);

end;
end;
Report3.ShowPreparedReport;

gpi

А где задаётся ширина колонок? В шаблоне она равна 21 см

igrik

Ширина определяется количеством колонок автоматически

pig

Похоже на баг. Сделал тестовый проект и отослал разработчикам, создав тикет

igrik

Вышла новая версия(4.3), а ошибка осталась!
поясните...

AlexLi

igrik написал: »

Вышла новая версия(4.3), а ошибка осталась!
поясните...

Хм!!! Та же проблема
Вышла новая версия(4.5.51), а ошибка осталась!

Konst

AlexLi написал: »

Хм!!! Та же проблема
Вышла новая версия(4.5.51), а ошибка осталась!

Они заняты другими делами...
Посмотри на форум он еле жив.
И похоже разработчики его не читают.

AlexLi

AlexLi написал: »

Хм!!! Та же проблема
Вышла новая версия(4.5.51), а ошибка осталась!

Вышла новая версия(4.6), а ошибка осталась!
.Очень жаль.