erro ao imprimir quant de paginas no relatorio

Boa noite, estou com um cod. que estava funcionando e parou , preciso imprimir um numero de cupons baseado em um campo de um formulário, se alguém tiver outra solução eu agradeço, rodava 100% do nada nao imprime a quanditade de paginas informada no formulario.


Private Sub Comando9_Click()

DoCmd.OpenReport "Cópia de RelatórioCupons2", acViewReport, , "idcliente=" & Me.idcliente
DoCmd.PrintOut acPages, 1, 1, 1, Me.Texto7

End Sub

Private Sub Form_Load()
DoCmd.Maximize

End Sub

Boa noite. Qual mensagem que exibe na tela?