Hi all,

All my reports are initially in preview Mode.
Then, the user can launch a printer while clicking on Printbutton (PRINTBUTTONCLICKED())

I would like to have my form parameter setting of printer.( PrinterCrystalSetupForm ).
In method PRINTBUTTONCLICKED()) it launches my form.( PrinterCrystalSetupForm.

Unfortunately, after having launched my form, it also launches the Cr printForm!
I however placed “NODEFA “not to do the CR code but that does not function …
What must I make not to launch the PRINT of cr ?

Thank very Much in advance for a answer...

PS : Sorry for my poor English...

bernhart

**************************************************
*-- Class:        previewcrystalform (c:\cdbk70\amline\libs\abiznessgeneral.vcx)
*-- ParentClass:  bebizobjform (c:\cdbk70\amline\libs\abeform.vcx)
*-- BaseClass:    form
*-- Time Stamp:   02/08/04 06:58:08 PM
*
#INCLUDE "c:\cdbk70\amline\include\appincl.h"
*
DEFINE CLASS previewcrystalform AS bebizobjform
	Height = 242
	Width = 667
	DoCreate = .T.
	Caption = "Prévisualisation des impression"
	Visible = .T.
	WindowState = 2
	lsaveposition = .F.
	Name = "previewcrystalform"
	oSessionEnvironment.Clabel1.Name = "Clabel1"
	oSessionEnvironment.Name = "oSessionEnvironment"
	refBizObj.Name = "refBizObj"
	report = .F.


	ADD OBJECT crviewer AS olecontrol WITH ;
		Top = 0, ;
		Left = 0, ;
		Height = 240, ;
		Width = 636, ;
		Name = "crViewer"


	PROCEDURE Error
		LPARAMETERS tnError,    tcMethod,    tnLine
		IF tnError = 1440
		  NODEF
		ELSE
		  DODEFAULT(tnError,    tcMethod,    tnLine)
		ENDIF
	ENDPROC


	PROCEDURE Resize
		WITH This.crViewer
		  .WIDTH = .PARENT.WIDTH
		  .HEIGHT = .PARENT.HEIGHT - 14
		  .LEFT = 0
		  .TOP = 0
		ENDWITH
	ENDPROC


	PROCEDURE Activate
		NODE
	ENDPROC


	PROCEDURE Init
		*
		* Copyright (c) 2001 Midwest Software Development Corporation
		* All Rights Reserved.
		*
		* Direct all inquiries, comments and/or suggestions to me at mark@msdcweb.com
		*
		* Turn on dual interface support
		*
		=SYS(2333, 1)
		*
		* The viewer object must be added at runtime otherwise you will get errors
		*
		DODEFAULT()
	ENDPROC


	PROCEDURE crviewer.PrintButtonClicked
		*** ActiveX Control Event ***
		LPARAMETERS usedefault
		=DOFORM("PrinterCrystalSetupForm")
		NODEFAULT
		RETURN .F.
	ENDPROC


	PROCEDURE crviewer.PrintReport
		*** ActiveX Control Method ***
		NODEFA
	ENDPROC


ENDDEFINE

*
*-- EndDefine: previewcrystalform
**************************************************