Você pode criar relatórios de impressão personalizados adicionando macro VBA a uma folha de módulo regular (a macro pode ser baixada em www.exceltip.com).
Estrutura do relatório de impressão personalizado:
2. Coluna A: esta coluna contém números entre 1 e 3: imprimir da folha, imprimir por nome de intervalo ou imprimir a partir da visualização personalizada (recomendado).
3. Coluna B: digite o nome da planilha, o nome do intervalo ou o nome da visualização personalizada.
4. Coluna C: Digite o número da página a ser impressa no rodapé.
A macro será impressa a partir de uma folha e adicionará automaticamente as informações necessárias ao rodapé, incluindo o número da página, o nome da pasta de trabalho, o endereço do caminho e o nome da folha, bem como a data e hora da impressão.
Sub PrintReports ()
Dim NumberPages As Integer, PageNumber As Integer, i As Integer
Dim ActiveSh As Planilha, ChooseShNameView As String
Dim ShNameView As String, cell As Range
Application.ScreenUpdating = False
Definir ActiveSh = ActiveSheet
Intervalo ("a2"). Selecione
Para cada célula no intervalo (intervalo ("a2"), intervalo ("a2"). Fim (xlDown))
Selecione Case cell.Value
Caso 1
Folhas (ShNameView) .Selecionar
Caso 2
Referência Application.GoTo: = ShNameView
Caso 3
ActiveWorkbook.CustomViews (ShNameView) .Show
End Select
Com ActiveSheet.PageSetup
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & "" & "& A & T & D"
Terminar com
ActiveWindow.SelectedSheets.PrintOut Cópias: = 1
Proximo eu
ActiveSh.Select
Application.ScreenUpdating = True
End Sub
5. O loop For Each na macro causa uma impressão separada para cada célula na coluna A começando em A2.
6. No loop, a área de impressão é selecionada usando a técnica Select Case.
7. As informações impressas no lado esquerdo do rodapé: & 08 = fonte de 8 pontos, & D = Data, & T = Hora.
8. Para executar a macro da planilha, pressione Alt + F8, selecione a macro e clique em Executar.
OU
Adicione um botão à planilha e anexe a macro a ele.
9. Nota: Use esta técnica para adicionar um número ilimitado de relatórios.
Captura de tela // Criando um gerenciador de relatórios personalizados