dim $sScriptName
;-
$sScriptName=StringLeft(@ScriptName,StringInStr(@ScriptName,'.')-1)
;-
for $i=1 to 1;
	dothis()
Next
;-
exit
;-
func dothis()
	BlockInput(1)
	Opt("WinWaitDelay",100)
	Opt("WinTitleMatchMode",4)
	Opt("WinDetectHiddenText",1)
	Opt("MouseCoordMode",0)
	If Not WinActive("Crystal Reports - [","") Then WinActivate("Crystal Reports - [","")
	WinWaitActive("Crystal Reports - [","")
	send('!FTz')	;&File/Op&tions/Si&ze
	send('0.083',1)
	send('{Enter}')
	sleep(275)
	send('!VZ')		;&View/&Zoom
	WinWaitActive('Zoom')
	send('100',1)
	send('{Enter}')
	sleep(275)
	BlockInput(0)
endfunc