xbrowse report & Preview style

[Silvio.Falconi]

to make fast I made oThis:oLbx:report()

But if I wish print al so the lines ? (Horizontal e and vertical separators) How I can do ?

I notice on Windows 10 the style of Preview bar is not for Windows 10 but it is also 2007 style, how change it ?

[Antonio Linares]

Dear Silvio,

For the first question:

viewtopic.php?f=3&t=15578&start=0&hilit=xbrowse+preview+bsetup

[Silvio.Falconi]

Dear Silvio,

For the first question:

http://forums.fivetechsupport.com/viewt ... iew+bsetup

Antonio,
I Tried with

local bSetUp := {|oRep| oRep:CellView()}

@ 100,10 BUTTON oBtnPrint PROMPT "Stampa" of oDlg;
SIZE 80,22 ;
ACTION oBrw:Report( cTitle, .t., , bSetUp )

but I see only the horizontal lines
sample:





or
local bSetUp := {|oRep, oBrw, n| RepSetUp( oRep, oBrw, n )}
static function RepSetUp( oRep, oBrw, n )

oRep:lJoin := .t.
oRep:lSeparator := .t.
oRep:lBoxOnTotal := .t.
AEval(oRep:aColumns, {|o| o:lGrid := .t.} )

return nil





I not see vertical lines

[nageswaragunupudi]

Code: Select all  Expand view

  bSetUp   := < |oRep, Brw, n |
      if n == 2
         oRep:CellView()
         return nil
      endif
      return 2
      >

oBrw:Report( cTitle, nil, nil, bSetup )
 

[nageswaragunupudi]

Code: Select all  Expand view

  bSetUp   := < |oRep, Brw, n |
      if n == 2
         oRep:CellView()
         return nil
      endif
      return 2
      >

oBrw:Report( cTitle, nil, nil, bSetup )
 

[Silvio.Falconi]

Code: Select all  Expand view

  bSetUp   := < |oRep, Brw, n |
      if n == 2
         oRep:CellView()
         return nil
      endif
      return 2
      >

oBrw:Report( cTitle, nil, nil, bSetup )
 

thanks what you mean for n?


look the image


1. the multiheader non have the line
2. there are blank pages every page created in all 7 pages of which three are blank
3.on Pdf there are not blank page, there are only 4 pages but the number of page are 1,3,5,7 I sent you the pdf