[Resolvido]Controle de Impressao do Relatorio

Pessoal
boa Tarde

Estou com uma otura duvida que é a seguinte..

eu tenho uma rotina que apos realizar algumas tarefas, ela imprime um relatório.

Porem o relatorio esta saindo com 19 paginas(esta correto), porem eu gostaria que o usuario pudesse selecionar quantas paginas deseja imprimir...ou se deja imprimir todas as paginas...

caso alguem saiba alguma maneira..

desde ja agradeço

Segue codigo abaixo:
Function GERA_RELATORIO()
On Error GoTo GERA_RELATORIO_Err

DoCmd.OpenQuery "2 - RELATORIO - EXCLUI INFORMAÇÕES PARA GERAR RELATORIO", acViewNormal, acEdit
DoCmd.OpenQuery "1 - RELATORIO - BUSCA SCHEDA PARA FORMULÁRIO", acViewNormal, acEdit

DoCmd.OpenReport "RELATORIO SCHEDA", acViewNormal, "", "", acNormal

GERA_RELATORIO_Exit:
Exit Function

GERA_RELATORIO_Err:
MsgBox Error$
Resume GERA_RELATORIO_Exit

End Function

Não é melhor visualizar ao invés de mandar direto para a impressora ?

Código:

DoCmd.OpenReport "RELATORIO SCHEDA", acViewPreview

Assim quando ele clicar em imprimir ou der Control+P ele seleciona quais páginas deseja.

é...acho que vai ser melhor tb...

de qlqr forma obrigado!