[Resolvido]Visualizar e Imprimir Relatorio

Boa tarde, tem como eu estar visualizando um relatorio com varias pagina e ao clicar no botao imprimir, ele imprimir somente a pagina atual q estou a ver, isto não imprimir todo o relatorio, estou usando o comando "docmd.printout...",mas não estou conseguindo preecher o intervalo na propriedade "Paginas de ".

Qual a versão do seu Access ?

Pode sempre tentar algo como;

Dim strRelatorio As Report
Dim strPagina As Integer

Set strRelatorio = Screen.ActiveReport
strPagina = Screen.ActiveReport.Page

DoCmd.SelectObject acReport, strRelatorio.Name, True
DoCmd.PrintOut acPages, strPagina, strPagina, , 1

DoCmd.SelectObject acReport, strRelatorio.Name, False

Boa tarde, dede ja muito obrigado pela ajuda, mas pelo q eu pude acompanhar no teu codigo é isso mesmo, vou experimentar e te digo, mas desde ja acredio q agora vai, espero poder em algum momento tambem poder auxilar-(mas acho dificil pois acredito q voce tem bem mais experiencia)

Tópico resolvido, qualquer coisa é só abrir de novo.