[Resolvido]Botão para abertura de vários relatórios

Tenho uma base de dados que me gera á volta de 30 relatórios diferentes, a partir de um botão unico de e um formulário documentos. Todos os relatórios são filtrados para ao serem abertos corresponderem ao N.º de processo que é selecionado no formulário.
Para abrir e intercalar os dados tenho o seguinte código no botão do formulário:
If TipoDocumento=1 Then
Docmd.OpenReport "Capa", acviewPreview
ElseIf TipoDocumento=2 Then
Docmd.OpenReport "Autuação", acviewPreview
... e assim sucesssivamente. Também em todos os relatórios ao abrir tenho uma macro que maximiza o relatório e fecha o formulário documentos e ao fechar tenho um outro comando que abre uma consulta que para eliminar os dados do documento e uma outra para acrescentar numa tabela documentos emitidos.
A minha pergunta é a seguinte, uma vez que tenho que repetir todas estas rotinas em todos os relatórios, não haverá uma maneira mais fácil de reduzir para um unico comando ?
Desculpem mas sou um iniciante e se alguém puder ajudar.
Obrigado

Cada relatório é aberto de acordo o tipo de documento, certo? Coloque o tipo do documento na Marca do respectivo Tipo de documento. Para fazer isso, abra o relatório em modo estrutura, vá nas propriedades, aba Outra, linha Marca. Depois, é só criar uma função que abra o relatório com Marca igual ao TipoDocumento.

Obrigado. Problema resolvido

Não esquecer clicar no botão Resolvido.

Obrigado pelo retorno.