If you preview a report in a form and click on the image to zoom and then click on the image again to grow it to 100 percent again, a large margin displays from that point on on all sides of the report inside the preview window. Why is that and how can I get rid of the margin?

Note: this example requires you to create the table testit once at least and to create a report named testit. The fields and data do not matter.

SET SAFETY OFF
IF WEXIST('STANDARD')
	HIDE WINDOW STANDARD
ENDIF

_screen.width=720
_screen.height=460

CREATE TABLE testit (cid c(10))
SELE testit
FOR i = 1 TO 100
	APPEND BLANK
	REPLACE testit.cid WITH ALLTRIM(STR(i))
ENDFOR

*--Create a simple report name testit so you can run this part
m.reportform = 'testit'

LOCAL oPreviewForm
oPreviewForm = NEWOBJECT('PreviewForm')

REPORT FORM (m.reportform) WINDOW PREVIEWFORM PREVIEW

oPreviewForm.Release

USE IN testit

RETURN 


DEFINE CLASS previewform AS form


	Top = 0
	Left = 0
	Height = 250
	Width = 375
	ScrollBars = 3
	DoCreate = .T.
	Caption = "Print Preview Window"
	WindowState = 2
	controlbox = .F.
	setstatus = "''"
	Name = "previewform"


	PROCEDURE GotFocus
		this.windowstate = 2
		DODEFAULT()
	ENDPROC


	PROCEDURE Deactivate
		MOUSE DBLCLICK AT -0.1,0.1 WINDOW "Print Preview"
		DODEFAULT()
	ENDPROC


	PROCEDURE Init
		thisform.setstatus = SET('STATUS BAR')
		set status bar on
		DODEFAULT()
		this.show()
		KEYBOARD '{CTRL+F10}' 
	ENDPROC


	PROCEDURE Show
		LPARAMETERS nStyle
		this.windowstate = 2
		DODEFAULT()
	ENDPROC


	PROCEDURE Release
		IF !EMPTY(thisform.setstatus)
			PRIVATE lcstatusbar
			lcstatusbar = THISFORM.setstatus
			SET STATUS BAR &lcstatusbar
		ENDIF
		DODEFAULT()
	ENDPROC


	PROCEDURE QueryUnload
		IF !EMPTY(thisform.setstatus)
			PRIVATE lcstatusbar
			lcstatusbar = THISFORM.setstatus
			SET STATUS BAR &lcstatusbar
		ENDIF
		DODEFAULT()
	ENDPROC


ENDDEFINE