As far as the duplicate pages go, please explain a little more what data your report contains.
As far as SendKeys, you need to place the SendKeys command before the print command.DoCmd.OpenReport strDocName, acPreview, , strCriteria
SendKeys "{TAB 2}{DOWN}{TAB}1{TAB}1{TAB}1", False...