¿Cómo abrir un reporte en modo vista previa al 100% de zoom?

¿Cómo abrir un reporte en modo vista previa al 100% de zoom?

DoCmd.OpenReport "Nota_Componentes", acViewPreview, , "[ID Nota]=" & Me("ID")
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom100