FW Preview Menu

[Detlef]

Hi all,

is there a way to avoid/hide the menu when a print preview is shown?
i already eliminated the buttons for navigation and export.
But a user could open the menu and use it's commands.

Regards, Detlef

[Otto]

Hello Detlef,

oPrinter:lPreview

Interesting, just yesterday I was dealing with this issue.

https://www.facebook.com/groups/modharbour.club/?multi_permalinks=1114768252410734

I tried to open the oReport with and without preview.

I didn't find out how this works with the oReport and then I chose a simple variant.
In the source code I looked and I think there it is lScreen.

Best regards,
Otto

Code: Select all  Expand view  RUN

if Setup():lReportPreview = .t.
    REPORT oReport TITLE ::cVKBereich, cTITLE, cSubTitleZeit  LEFT ;
                  FONT   oFont1,;
                  oFont2,;
                  oFont3 ;
                  PEN oPen1;
                  HEADER Setup():LizenzNehmer()," ", ALLTRIM("Erstellt: " + dtoc(date())+ " - "+time()) RIGHT;
                  FOOTER  ( "Seite: " ) + str( oReport:nPage, 3 ) ;
                  CAPTION "CAPTION";
                  CENTERED ;
                  PREVIEW


else


    REPORT oReport TITLE ::cVKBereich, cTITLE, cSubTitleZeit  LEFT ;
                  FONT   oFont1,;
                  oFont2,;
                  oFont3 ;
                  PEN oPen1;
                  HEADER Setup():LizenzNehmer()," ", ALLTRIM("Erstellt: " + dtoc(date())+ " - "+time()) RIGHT;
                  FOOTER  ( "Seite: " ) + str( oReport:nPage, 3 ) ;
                  CAPTION  "U" +  ::UniqueID  ;
                  CENTERED
endif




 

[Otto]

Detlef,
I think I misunderstood your question.
You probably need to change the RPreview classe and link in the changed one.

I do it this way for the invoice preview.

Best regards,
Otto

[Antonio Linares]

Dear Detlef,

Please review this:

viewtopic.php?p=227931&sid=ab0d161b8ef66f305aa632ddfeca013f#p227931

[nageswaragunupudi]

Code: Select all  Expand view  RUN

TPreview():bSetUp := { |oPreview, oWnd| oWnd:oMenu:End() }

Include this code, before your PRINT oPrn PREVIEW

[Detlef]

Dear Detlef,

Please review this:

http://fivetechsupport.com/forums/viewt ... 3f#p227931

Many thanks, Antonio.
This gave me plenty of information and a lot inspiration.

[Detlef]

Code: Select all  Expand view  RUN

TPreview():bSetUp := { |oPreview, oWnd| oWnd:oMenu:End() }

Include this code, before your PRINT oPrn PREVIEW

Mr. Rao,
Many thanks. That works okay now.