Error on Zoom Control

[Lee Hunter]

This code:
stDocName = "Training Info by Specific Employee"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom100

Produces the follow error message:
Runtime error "2046"
The command or action 'Zoom100%' isn't available now.

Any Ideas?
Thanks!