Problems with OwnPreview

[bingen]

Hi Xailer Team.

There is a problem with a FR inside a owner preview, you can test it with Samples\FastReport\OwnPreview.xpj

All goes ok if you print once, if you try twice nothing goes, no print and no error.

[ignacio]

Hi,

Not able to reproduce you error. Please indicate the exact operations to reproduce your error on sample \FastReport\OwnPreview. TIA.

Regards,

[bingen]

It's easy

Open the project Samples\FastReport\OwnPreview.xpj and run, make click over [Print] button and print the document on paper or to a Pdf printer, all goes OK.

Now, try to print a second copy... [Print] do not run.

Thanks

[ignacio]

Not so easy. I'm a afraid.

Just push the Show button before pushing the Print button again. If you have to blame someone, blame on Fast-Repport.

Regards,

[bingen]

Ok "solved"

If someone wants to print twice, before print a new copy I send a fr:Show(), ugly but effective.

But, in FR's original preview works well.

[ignacio]

Hi,

Our code is strictly a call to the FR print method and we do not anything else. So, is not our fault. I guess FR recreates the report if has been already printed. That's all.

Regards,

Código: Seleccionar todo

XA_FUNC( XFASTREPORT_PRINTC )
{
   static Print pFunction = NULL;
   PHB_ITEM Self = hb_stackSelfItem();
   BOOL lSuccess = FALSE;
   long pObject = XA_ObjGetNL( Self, "pObject" );

   if( pObject )
   {
      if( !pFunction )
         pFunction = (Print) GetProcAddress( hLib, "Print" );

      if( pFunction )
         lSuccess = ( pFunction )( pObject );
      else
         SetError( 125, "Exported function Print() not found in DLL" );
   }

   hb_retl( lSuccess );
}