[Resolvido]Imprimir Relatorio Visualizando

Boa tarde Senhores,gostaria mandar para a impressora um relatorio enquanto visualizo o mesmo, isto é relatorio com varias paginas e ao clicar num comando ele enviasse a pagina q estou visualizando no momento, do codigo q uso estou usando mais simples e funcional é "DoCmd.PrintOut acSelection, Reports![Contrato Trabalho]!numpag, Reports![Contrato Trabalho]!numpag, acDraft" onde:
-Reports![Contrato Trabalho]! = nome relatorio
-numpag = variavel q marca numero pagina atual

Essa me parece ser a maneira mais adequada para o que pretende. Diga-nos o que não está do seu agrado.

Eu queria partir dessa instrucao criar um modulo q fosse chamado de qualquer relatorio, pois ai eu teria q criar um modulo para cada relatorio, independente do nome do relatorio, o campo numpag é sempre o msm.

Será que compensa criar um módulo por causa de uma única linha de código? Até porque, a meu ver, não precisa colocar o nome do relatório na função, pois o evento está se dando no próprio relatório, certo? Poderia ser só isso:

DoCmd.PrintOut acSelection, numpag, numpag, acDraft

Mas, caso queira criar um módulo, seria algo mais ou menos assim, você cria um módulo novo e cria a função abaixo:

Public Function ImprimirReport()
DoCmd.PrintOut acSelection, numpag, numpag, acDraft
End Function

Aí chama a função no botão dos relatórios:

Call ImprimirReport

Mas, como vê, iria alterar pouca coisa.