*disply report preview at 75%
*Replace myreport with your report name
LOCAL oPreviewForm
oPreviewForm = NEWOBJECT('PreviewForm')

REPORT FORM myreport WINDOW PREVIEWFORM PREVIEW
	
oPreviewForm.Release

DEFINE CLASS previewform AS form


	Height = 250
	Width = 375
	Desktop = .F.
	ShowWindow = 2
	ScrollBars = 3
	DoCreate = .T.
	AutoCenter = .T.
	BorderStyle = 3
	Caption = "Print Preview Window"
	ControlBox = .F.
	Closable = .F.
	MinButton = .F.
	Movable = .F.
	WindowType = 0
	WindowState = 2
	AlwaysOnTop = .F.
	Name = "previewform"


	PROCEDURE Deactivate
		DODEFAULT()
		IF WEXIST('Report Designer')
			MOUSE DBLCLICK AT -0.1,0.1 WINDOW "Report Designer"
		ENDIF
		IF WEXIST('Print Preview')
			MOUSE DBLCLICK AT -0.1,0.1 WINDOW "Print Preview"
		ENDIF
	ENDPROC


	PROCEDURE Init
		DODEFAULT()
		THIS.SHOW()
		CLEAR TYPEAHEAD
		KEYBOARD 'L'
	ENDPROC


ENDDEFINE