FastReport

[Kleyton]

Dear, friends

I can tell 3 titles via PRG, can you please tell me how?

Waiting, thanks.

Code: Select all  Expand view

Function Main(_desig_, _arq_, _fastRep_, _tit01_, _tit02_, _tar01_, _arai_ )
local oWnd, oFrPrn
usuario := "ADM"

if empty(_arq_)
   quit
Endif

REQUEST DBFCDX
use (_arq_) alias tmp
tmp->( browse() )

oFrPrn := frReportManager():new()
oFrPrn:SetTitle( "Teste Title not visible in relat  1" )         //título da janela do FRH
oFrPrn:SetIcon(1)                                                     //ícone da janela do FRH
oFrPrn:LoadLangRes( "brazil.xml")                            //arquivo de idioma
oFrPrn:SetWorkArea("tmp", 1 )
oFrPrn:SetTitle( "Teste Title not visible in relat 2" )         //título da janela do FRH
oFrPrn:SetDefaultFontProperty("Name", "Lucida Console")
oFrPrn:SetDefaultFontProperty("Size", 08)

oFrPrn:LoadFromFile(_fastRep_)                           // para leitura direta de arquivo FR3
*oFrPrn:LoadFromResource('NOVO')                       // leitura dos recursos do relatório ( FR3 ) incluído no arquivo RES

oFrPrn:PreviewOptions:SetAllowEdit( .t. )             // inibe o botão de edição do relatório pelo usuário

if _desig_="S"
   oFrPrn:DesignReport()                        // aqui para "desenhar" o relatório
else
   oFrPrn:ShowReport()                       // aqui para gerar o preview do relatório.
endif

oFrPrn:DestroyFR()


RETURN NIL

 

[Otto]

Maybe you can use AddVariable.

Code: Select all  Expand view

 _tit01_   := "Demo Title_tit01_"
 _tit02_  := "Demo Title_tit02_"
 _tar01_  := "Demo Title_tar01_"


oFrPrn:AddVariable( "TITOL", "cTitol1", "'" + _tit01_ +"'")
oFrPrn:AddVariable( "TITOL", "cTitol2", "'" + _tit02_ +"'" )
oFrPrn:AddVariable( "TITOL", "cTitol3", "'" + _tar01_ +"'" )
 

Best regards,
Otto

[Kleyton]

Thanks, Otto

Putting the field ReportTitle, will leave only on page one?

Now if I put in the "PageHeader" will go on every page, is it?

[Kleyton]

I need to get the company logo and play in space and size set for her.

Playing directly from the designer fastreport is easy, I want to check for example C: \ LOGO \ LOGO.JPG, i will not need to be altering the logo for each company.

[Otto]

Hello Kleyton,

You can insert a page which you use as your title page.
This prints a own page. If you want the title inside your first page change on this page

PrintOnPriviousPage to true.

Best regards,
Otto

[Kleyton]

Tank you, soluction found.

[Otto]

Hello Kleyton,
Best regards,
Otto

Code: Select all  Expand view

oFr:AddVariable( "FIRMA", "Logo", "'C:\xwinhotel\LOGO\Logo.jpg'" )

[Kleyton]

Hello Otto, tanks for help, got what I needed, see below.

Look at the field "filelink", see below.



Tank you !!!

[Kleyton]

Otto, Sorry, I posted my message and had not seen his last.

It will help me a lot, thanks.

[Otto]

Hello Kleyton,

today I was searching some time to find out how to use the “Outline feature”.

Select “Report” then change OutlineVisible to True

Best regards,
Otto

[Kleyton]

My version is different, in Portuguese of Brazil. Version 4.8.33. Not found.
Then I look more calmly.

Thank you.