Play Video

At one point the uploader puts 2 OnbeforePrint events.

In the second event he writes the line

Set(<ADOQuery1."Company">, Sum(<ADOQuery1."ItemsTotal">, MasterData1));

The field <ADOQuery1."Company"> has the company name. Why are we suddenly giving it a new value? Or am I misunderstanding the above line?

In the first event he writes

Memo3.Text:='Sum:'+FloatToStr(Get(<ADOQuery1."Company">));

If Memo2 already contains the sum, why not just write Memo3.Text:=Memo2.Text?

we're receiving PDFs created by Fast Reports 4.15.13.

When we open them in Adobe Reader, some of the text is overlapping

It works fine in Edge but Edge previewer isnt a thing in Outlook, so isnt a solution.

is it possible for Adobe Reader to view this or is it how they're being created?

header1 data1 →

header 2 data2 →

So I have tried to set columns for masterdata and it worked.But I don't know where to put header, because header will duplicate for each colums(see the pic below).So simply I just want the header diaplay once and data display vertically

So is it possible to make a sheet like what? Thank you guys!

We have a variable called ""Squence Number" and its ranges. I've been trying to use this data to get my parts Quantities.

Quantity in every sequence :

[<NestPartCondensed."iSequenceRangeHigh">-<NestPartCondensed."iSequenceRangeLow">+1]

But I need Sum of this expression to have the whole quantity of every single parts,

How Can I use SUM function and Creat a Qty variable?

This is like using "pivot table" or "Consolidate" in excel !

var mycolor:string;
begin
     mycolor:= '$FFFFFF00';
     TfrxMemoView(report.FindObject('Memo1')).color:=TAlphaColor(mycolor);
end

TfrxMemoView(report.FindObject('Memo1')).color:=TALPhacolorRec.Yellow

On one of the data/detail sections I want to show a box on the right of the detail rows containing some text that explains what the detail rows are showing. (see images below)

I have tried playing with putting the box into a sub report and putting it either into the data band or the detail band.

I have tried making two sub reports side by side, one with my real data rows and one with my explanatory box.

I have tried setting the stretched property of the bands to true and the stretch mode of the memo with my text in it to maxheight.

However the best I can get is to have my box repeated many times on the page.

I have PrintOnParent set to true.

Can somebody please explain how to get what I want?

This is the design part of the band in question

This is what that that part looks like at the moment in preview

and this is a mock up of what I want to achieve

thank you!!

mp

The issues is when I print the RTF content using the frxRichEdit component in the report: the image seem to loose quality (see the attached screenshot of an example program).

Any advice?

I'm using Delphi XE3 with DevExpress Library v. 13.2.9 and Fast report v. 4

I have a fastreport report which contains several pages, the first of which is the summary like a menu.

I hope when the user clicks on memo100 they will be taken to page 27.

I tried with

page27.show;

page27.setfocus;

but it didn't work.

what should I put for this.

THANK YOU

I try:

barcode1.text := <Query1."Key"> + chr(13) + chr(10) + <Query1."Buyer">

I try some other code, but nothing work. In notepad I only get one row.

In Delphi i have :

function DagvdweekENG(Value TDateTime): string;

const Days array[1..7] of string = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');

begin

Result = Days[DayofWeek(Value)];

End;

Is this also possible in FastReport? Or is there another solution

I want to split an array into multiple parts

with the properties symbol, for example |

A:String;

 A := 'Test|Test2';SplitText('|');

Memo1=(A[1])

Memo2=(A[2])

I declare a string variable but I can't parse it

I think I went the wrong way

Please help, thank you

this is fastreport fmx:

and this is fastreports vcl:

This is a common option in many editors, but it's the first time that i see this as default.

I don't use it normally so it drives me crazy. It's very much clashing with my editing- reflexes.

I am using FR 2021.0.6 (or, FR 4.6 by the Help-Window Title). It is part of an ERP Software.

(Sorry, i placed this in the wrong fourm... seems i can^t move/delete it.)

var A:TfrxReportPage;

idx:integer;

begin

 idx := printer.Printers.IndexOf(PrinterName);

 if idx = -1 then

 begin

  showmessage(PrinterName + ' can''t find printer');

  exit;

 end;

 rpt.PrintOptions.Printer := PrinterName;

 a := rpt.FindObject('page1') as  TfrxReportPage;

 // DuplexMode := dmVertical;

 a.Duplex := dmVertical;

 rpt.PrintOptions.Duplex := dmVertical;

 ds.RangeEnd := reCount;

 ds.RangeEndCount := length(buff);

 if rpt.PrepareReport then

  rpt.Print

end;

Because only a few pages may be selected for printing at the time of printing the report.

Therefore, we need to know which pages have been printed.

Мне надо печатать ценники горизонтально, но с учетом того, что порой нужно печатать несколько одинаковых ценников. Если печатать вертикально, то проблем нет, Ставим Page.Columns =2, к MasterData добавляем DetailData, Ставим DetailData.RowCount = 2 и каждый ценник печатается два раза. Горизонтально такую фишку я осилить не смог.

procedure Memo1OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
var
   s: String ;

begin

   s := TfrxMemoView( Sender ).Text  ;
   TfrxMemoView( Sender ).Text  := InputBox('BI-RADS', 'LT:', s ) ;     
   memo2.Text := TfrxMemoView( Sender ).Text ;

   Modified := True;  //this will update memo1 on preview but not memo2
    
end;
//----------------------------------------------------

Memo2.text contents will be changed but not displayed.

Anyone has an idea how to update preview so that Memo2 shows new data changed on event OnPreviewClick of memo1?

I need to do this from frx script.

Thank you,

Reinaldo.

var
len :integer;
s  :string;
begin
s:= 'Have a nice day';
while s<>'' do
begin
len := pos(' ', s);
if len=0 then len := Length(s);
Memo1.Text:=h;(copy(s, 0, len));
s := copy(s, len+1, Length(s)-len);    
end;  
end;

The output is displayed in Memo1 = "day"

The problem is that only the last letter is displayed. I want to output all letters separately

How to get each sentence in Memo separately from the output?

like this :

Memo1.Text:='Have'

Memo2.Text:='a'

Memo3.Text:='nice'

Memo4.Text:='day'