I founded !

usedefault = .F.

Sorry ...

bernhart


>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
>**************************************************