Report Form C:\REPORT3.FRX Preview
Define Class MyToolBar As Toolbar
Caption = "Print Preview"
Add Object cmdTop As CommandButton With;
caption = "Top"
Add Object cmdBack As CommandButton With;
caption = "Previous"
Add Object cmdNext As CommandButton With;
caption = "Next"
Add Object cmdLast As CommandButton With;
caption = "End"
Add Object cmdZoom As CommandButton With;
caption = "Zoom"
Add Object cmdPrint As CommandButton With;
caption = "Print"
Add Object cmdQuit As CommandButton With;
caption = "Quit"
Procedure cmdTop.Click
Keyboard "{HOME}"
Endproc
Procedure cmdBack.Click
Keyboard "{PGUP}"
Endproc
Procedure cmdNext.Click
Keyboard "{PGDN}"
Endproc
Procedure cmdLast.Click
Keyboard "{END}"
Endproc
Procedure cmdQuit.Click
Keyboard "{ESC}"
This.Parent.Release()
Endproc
Procedure cmdZoom.Click
Keyboard "Z"
Endproc
Enddefine
Procedure removeWindow
If Wexist("Print Preview")
Deactivate Window "Print Preview"
Endif
Endproc