Delphi 7 Rave bex 7.0.0
Just getting started with code based reports. Report won't start a new column, rows print fine until bottom of page then all print on same line no new column. Printed out "Columns" value and it shows 3 columns. Using TDetailShell. Here is the code
Thanks Gary
procedure TdmReports.dtshlMembersBodyBefore(ReportPrinter: TBaseReport; ReportShell: TDetailShell); begin with ReportPrinter do begin SetColumns(3, 0.1); SetFont('Times New Roman', 12); SaveFont(2);//Row ClearTabs; SetTab(rvsysCode.SystemPrinter.MarginLeft, pjLeft, 0.75, 5, BOXLINENONE, 0);//FirstName SetTab(NA, pjLeft, 0.75, 5, BOXLINENONE, 0);//LastName end; qryBookStudyMembers.Open; end;
procedure TdmReports.dtshlMembersRowPrint(ReportPrinter: TBaseReport; ReportShell: TDetailShell; var Valid: Boolean); begin with ReportPrinter, qryBookStudyMembers do begin PrintTab(FieldByName('LastName').AsString); PrintTab(IntToStr(Columns)); //printTab(FieldByName('FirstName').AsString); NewLine; end; end;
procedure TdmReports.dtshlMembersRowAfter(ReportPrinter: TBaseReport; ReportShell: TDetailShell; var Valid: Boolean); begin qryBookStudyMembers.Next; Valid:= not qryBookStudyMembers.Eof; end;