Como imprimir todas as opções de uma lista pendente no Excel?
Ao trabalhar com listas suspensas no Excel, poderá deparar-se com situações em que precise de uma forma rápida de imprimir todas as opções disponíveis numa determinada lista pendente. Essa necessidade surge frequentemente para documentação, revisão, formação ou ao planear a introdução de dados com colegas que requerem uma cópia impressa de todas as opções possíveis. Embora o Excel não ofereça uma funcionalidade integrada para imprimir automaticamente todas as opções de uma lista suspensa, existem várias abordagens práticas ao seu dispor. Este artigo apresenta tanto uma solução baseada em VBA como um método manual acessível à maioria dos utilizadores. Além disso, encontrará dicas de resolução de problemas e conselhos práticos para garantir um fluxo de trabalho tão simples e eficiente quanto possível.
Imprimir todas as opções de uma lista pendente com código VBA
Se a sua lista suspensa se basear em validação de dados ou num controlo de formulário e pretender imprimir automaticamente cada opção como uma impressão separada (por exemplo, para visualizar como fica a sua folha de cálculo após selecionar cada possibilidade), o uso de VBA é o método mais eficiente. Esta abordagem revela-se particularmente útil quando tem dados ou cálculos que dependem da opção selecionada na lista suspensa e necessita de uma cópia impressa para cada cenário possível. Siga atentamente os passos seguintes para evitar erros comuns:
1. Prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic para Aplicações. Se a combinação de teclas não funcionar, certifique-se de que os atalhos do teclado estão ativados e de que instalou o componente VBA na sua instalação do Office.
2. Na janela do Microsoft Visual Basic para Aplicações, clique em Inserir > Módulo. Copie e cole o código VBA abaixo na janela do módulo aberta. Veja a imagem seguinte:
Código VBA: Imprimir todas as opções de um determinado Lista suspensa em impressões separadas
Sub Iterate_Through_data_Validation()
Dim xRg As Range
Dim xCell As Range
Dim xRgVList As Range
Set xRg = Worksheets("Sheet1").Range("B8")
Set xRgVList = Evaluate(xRg.Validation.Formula1)
For Each xCell In xRgVList
xRg = xCell.Value
ActiveSheet.PrintOut
Next
End SubNota: No código, Sheet1 está definida como o nome da folha que contém a lista suspensa que pretende imprimir, e B8 é a célula específica com essa lista. Certifique-se de substituir estas referências pelos nomes reais da sua folha e pela referência da célula correta. Referências incorretas podem provocar erros ou resultados indesejados.
3. Com o código implementado, prima a tecla F5 ou clique no botão Executar para executar a macro. Esta percorrerá cada valor na lista suspensa, atualizará a célula especificada em conformidade e enviará uma impressão separada para cada entrada. O processo pode demorar algum tempo se houver muitas opções, sendo as suas definições de impressora — como a impressora predefinida e o número de cópias — aplicadas automaticamente.
Se encontrar erros como «Subscript out of range» ou se a célula incorreta for atualizada, verifique novamente o nome da folha, a referência da célula da lista pendente e confirme que está a utilizar uma lista pendente compatível (Validação de Dados ou Controlo de Formulário).
Esta abordagem é particularmente adequada quando cada seleção impacta cálculos ou formatações extensos noutro local do seu livro e necessita de uma saída impressa que apresente cada cenário. Por outro lado, se a origem da lista pendente contiver uma lista muito extensa, a macro poderá demorar consideravelmente e desencadear múltiplos trabalhos de impressão em rápida sucessão. Revise sempre as suas definições de impressão antes de executar a macro para evitar o consumo desnecessário de papel.
Imprimir todas as opções listando diretamente a Dados de Origem da lista pendente
Em muitos casos, a sua lista suspensa baseia-se num intervalo de células ou numa lista de itens introduzida manualmente, já visível algures na folha de cálculo ou facilmente recriável. Se precisar apenas de uma lista impressa com todas as opções disponíveis — em vez de imprimir a folha de cálculo em todos os seus estados possíveis — pode utilizar a seguinte abordagem simples, que não exige VBA nem funcionalidades avançadas.
Cenários Aplicáveis: Esta solução é ideal se a sua lista suspensa utilizar um intervalo de células como dados de origem ou uma lista explícita separada por vírgulas na caixa de diálogo Validação de Dados. É também um método prático para fornecer rapidamente aos membros da equipa ou partes interessadas uma lista de referência com as opções disponíveis.
Vantagens: Não requer macros, reduz o risco de impressões múltiplas e é instantâneo — desde que a sua lista de origem esteja bem organizada.
Limitações: Este método não reproduz o efeito da folha de cálculo inteira com cada opção da lista pendente selecionada; imprime apenas a lista de valores possíveis.
Passos:
✓Se a sua lista pendente se basear num intervalo de células (por exemplo, as opções estão em A1:A10):
- Aceda à folha de cálculo e localize o intervalo que serve de origem à lista pendente. Este intervalo está definido na Validação de Dados — normalmente, encontra-o em Dados > Validação de Dados > campo Origem.
- Selecione todo o intervalo de origem (por exemplo, A1:A10) com o rato.
- Prima Ctrl+P ou aceda a Ficheiro > Imprimir.
- Nas Configurações de impressão, certifique-se de que seleciona «Imprimir Seleção» (caso pretenda imprimir apenas a lista e não toda a folha).
- Verifique a Pré-visualização de Impressão para garantir que a sua seleção apareça exatamente como deseja e, em seguida, imprima a lista.
✓Se a sua lista pendente utilizar uma lista introduzida manualmente (por exemplo, «Apple,Banana,Orange»):
- Na sua folha de cálculo, selecione uma coluna vazia e introduza os itens um a um, cada um na sua própria linha (por exemplo, «Apple» em B1, «Banana» em B2, etc.).
- Alternativamente, utilize a caixa de diálogo Validação de Dados para visualizar a lista, copie o conteúdo do campo Origem e cole-o como valores numa coluna.
- Assim que toda a lista estiver na coluna, siga os passos indicados acima para imprimir a seleção.
Dica Adicional: Se tiver uma lista separada por vírgulas muito longa e quiser dividi-la em células separadas para facilitar a impressão, pode utilizar a funcionalidade «Texto em Colunas», em Dados > Texto em Colunas, utilizando a vírgula como delimitador.
Esta abordagem manual é ideal para listas estáticas de comprimento curto a médio. Se as suas listas mudarem frequentemente ou se precisar de imprimir regularmente todas as versões da folha de cálculo com cada opção selecionada, considere automatizar o processo com VBA, conforme descrito anteriormente.
Resolução de Problemas e Dicas Adicionais:
- Se a origem da lista suspensa estiver noutra folha de cálculo ou estiver oculta, poderá ser necessário tornar as folhas visíveis ou verificar as fórmulas que criam intervalos dinâmicos.
- Verifique sempre, na Pré-visualização de Impressão, qual impressora será utilizada — especialmente antes de executar qualquer código VBA que desencadeie múltiplos trabalhos de impressão.
- No caso de listas suspensas baseadas em fórmulas (como origens de matrizes dinâmicas), copie e cole os itens atualmente visíveis numa nova coluna para facilitar a impressão.
- Lembre-se de que imprimir listas extensas pode consumir muito papel e tinta. Consulte a Pré-visualização de Impressão para evitar desperdícios e ajuste as definições conforme necessário.
- Se não precisar de imprimir diretamente e quiser apenas exportar a lista, pode copiá-la e colá-la noutra aplicação (como o Word, o Bloco de Notas, etc.) para formatação alternativa ou partilha.
Sugestão Final: Para utilizadores que precisam de imprimir repetidamente opções de listas pendentes, organizar uma lista de origem dedicada numa área claramente identificada do seu livro pode poupar tempo. Se frequentemente precisar de imprimir a folha de cálculo para cada cenário, mantenha a sua macro VBA atualizada e verifique todas as referências antes de a executar. Reveja regularmente as origens das suas listas pendentes, especialmente após alterações ou atualizações do livro, para garantir precisão e conveniência contínuas.
Imprima facilmente Imprimir Páginas Especificadas em Planilha Atual no Excel:
Com a funcionalidade Imprimir Páginas Específicas do Kutools para Excel, pode imprimir facilmente as páginas que desejar na folha ativa — como todas as páginas ímpares, todas as páginas pares, apenas a página atual ou ainda um intervalo personalizado de páginas, tal como mostrado na imagem seguinte.
Transfira e experimente já! (teste gratuito de 30 dias)
Artigos Relacionados:
- Como preencher automaticamente outras células ao selecionar um valor numa lista pendente do Excel?
- Como ativar o preenchimento automático ao digitar numa lista pendente do Excel?
- Como criar um calendário em lista pendente no Excel?
- Como criar uma lista pendente pesquisável no Excel?
- Como criar uma lista pendente no Excel que permita seleções ou valores múltiplos?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos