>Hi,
>
>I would like to print the odd / even pages and found a coding doing so however one drawback, the unwanted pages come out as a blank page.
>Is there a logic to suppress the blank page?
>
>code I have found:
>
>

>Parameters tcReport, tcOddEven
>Set reportbehavior 90
>loOddEvenListener=newobject("OddEvenListener")
>loOddEvenListener.ListenerType=1   &&Preview
>loOddEvenListener.icWhatToPrint=Upper(tcOddEven)
>report form (tcReport) object loOddEvenListener
>
>
>define class OddEvenListener as UpdateListener of (home()+"ffc\_reportlistener.vcx")
>
>  icWhatToPrint=Upper(tcOddEven)
>  
>  procedure Render
>  lparameters tnFRXRecNo,tnLeft,tnTop,tnWidth,tnHeight,;
>  tnObjectContinuationType,tcContentsToBeRendered,toGDIPlusImage
>    if this.PageNo%2=1 and this.icWhatToPrint="EVEN"
>      nodefault
>      return
>    endif
>    if this.PageNo%2=0 and this.icWhatToPrint="ODD"
>      nodefault
>      return
>    endif
>  endproc
>
>enddefine
>
>

>
>Thanks for replying,
>
>Koen

Try this:

loOddEvenListener=newobject("OddEvenListener")
loOddEvenListener.ListenerType=1  &&Preview
loOddEvenListener.WhatToPrint="EVEN"
report form ... object loOddEvenListener

*-----------------------------------
define class OddEvenListener as UpdateListener of (home()+"ffc\_reportlistener.vcx")

  WhatToPrint="ALL"

  function IncludePageInOutput
  lparameters tnPageNo
    return this.WhatToPrint="ALL" OR (tnPageNo%2=1 and this.WhatToPrint="ODD") or (tnPageNo%2=0 and this.WhatToPrint="EVEN")

enddefine
*-------------------------------------------