DoCmd.MoveSize Leftscrpos, Topscrpos, Widthscr, Heightscr
Public Const Leftscrpos As Integer = 0, Topscrpos As Integer = 4440, Widthscr = 12000, Heightscr = 8000
I just tried that and reopened the database but it had no effect.
docmd.openreport "NameOfReport", acviewpreview
reports("NameOfReport").move Leftscrpos, Topscrpos, Widthscr, Heightscr