Pass a parameter to the actual report itself, then set up a Supress formula on the field in the report.


>Hi craig,
>
>Sorry , I had not understood immediately!
>
>In PriNtButtonclickedEvent Methode , i put this Code :
>
>

>ocrystalReportCrViewer.PrintReport( .F. , 2 )
>

>
>

> *---------------------------------------------------------------------------------------------------
>  *-- Print the current report.
>  PROCEDURE printreport
>    *---------------------------------------------------------------------------------------------------
>    LPARAMETERS lGetPrinter, nCopies, lCollated, nStartPage, nStopPage
>    *
>    * lGetPrinter		.F. does not prompt for printer information, .T. does
>    * nCopies			Number of copies to print - default is 1
>    * lCollated			.T. collates, .F. does not
>    * nStartPage		Only included if specified
>    * nStopPage			Only included if specified
>    *
>    LOCAL cPrinter
>    cPrinter = ''
>
>    IF VARTYPE(nCopies) = 'L'
>      nCopies = 1
>    ENDIF
>    IF VARTYPE(nStopPage) = 'N' AND VARTYPE(nStartPage) = 'L'
>      nStartPage = 1
>    ENDIF
>    *
>    * Choose a printer if indicated
>    *
>    IF lGetPrinter
>      cPrinter = GETPRINTER()
>    ENDIF
>
>    WITH THIS
>      IF !EMPTY(cPrinter)
>        .crreport.SelectPrinter('', cPrinter, '')
>      ENDIF
>      .crreport.ReadRecords()
>      DO CASE
>        CASE VARTYPE(nStartPage) = 'N' AND VARTYPE(nStopPage) = 'L'
>          .crreport.PrintOut(lGetPrinter, nCopies, lCollated, nStartPage)
>        CASE VARTYPE(nStartPage) = 'N' AND VARTYPE(nStopPage) = 'N'
>          .crreport.PrintOut(lGetPrinter, nCopies, lCollated, nStartPage, nStopPage)
>        OTHERWISE
>          .crreport.PrintOut(lGetPrinter, nCopies, lCollated)
>      ENDCASE
>    ENDWITH
>  ENDPROC
>

>
>Craig,
>
>How to Suppress a text For the second PrintJob ?
>
>
>Good evening
>
>bernhart