Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
x
or
x
Inscreva-se  \/ 
x

or

Como imprimir todas as opções em uma lista suspensa no Excel?

Você já tentou imprimir todas as opções em uma lista suspensa em uma planilha do Excel? Este artigo fala sobre como imprimir todas as opções em uma lista suspensa em uma impressão separada no Excel.

Imprima todas as opções em uma lista suspensa com o código VBA


Imprima todas as opções em uma lista suspensa com o código VBA


O código VBA a seguir pode ajudá-lo a imprimir todas as opções em uma lista suspensa na planilha. Faça o seguinte.

1. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, por favor clique inserção > Módulo. Em seguida, copie o seguinte código VBA para a janela Módulo. Veja a imagem:

Código VBA: Imprimir todas as opções em uma lista suspensa especificada em uma impressão separada

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 Sub

Importante: No código, Folha1 é o nome da planilha que contém a lista suspensa que você deseja imprimir. E B8 é a célula que contém a lista suspensa. Substitua-os pelos necessários.

3. aperte o F5 chave para executar o código.

Em seguida, todas as opções na lista suspensa especificada em uma determinada planilha são impressas separadamente.


Imprima facilmente páginas especificadas na planilha atual no Excel:

Com o Imprimir páginas específicas utilidade de Kutools for Excel, você pode facilmente imprimir páginas especificadas na planilha atual, como imprimir todos páginas ímpares, todos até mesmo páginas, imprimir apenas pagina atual, bem como imprimir o intervalo de páginas personalizado conforme a captura de tela mostrada abaixo.
Baixe e experimente agora! (Trilha livre de 30 dias)


Artigos relacionados:


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Super Formula Bar (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
officetab bottom
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    mich · 4 months ago
    Thanks i used the first option it s amazing but i need to add to it that if there is a blank cell it should not print that option
    • To post as a guest, your comment is unpublished.
      Pyu Young · 9 days ago
      Hello Mich
      Have you found the VBA code for print all options in drop down list excluding the empty cell so as you can help is too.
  • To post as a guest, your comment is unpublished.
    Mich · 4 months ago
    Thanks i used the first option it s amazing but i need to add to it that if there is a blank cell it should not print that option
  • To post as a guest, your comment is unpublished.
    Zack · 1 years ago
    Hi is there a way to be able to preview first all the possible printouts in my drop-down list before it actually prints?
  • To post as a guest, your comment is unpublished.
    tj123 · 2 years ago
    How can i select a specific droplist, i want to print? , For example if i have 200 names on my droplist and i want to print a specific list, maybe 50 out of 200, How will i do this please?
  • To post as a guest, your comment is unpublished.
    Cloud · 2 years ago
    Thanks for the code. But I'm experiencing a minor issue when printing. When I tried to print the sheet with the drop down list. The first print out, prints the first item on the list while the next print out prints a blank data before it prints the second item from the list. What should I do?
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Cloud,
      What version of Excel are you using?
      The problem can't be reproduced in my case. Sorry for the inconvenience.
      • To post as a guest, your comment is unpublished.
        Cloud · 1 years ago
        Sorry I totally forgot about this. I'm using Excel 2013.

        So it wasn't actually a blank data.

        I have this dynamic drop down list in cell R17 which also populates other cells in the worksheet using VLOOKUP Function. What happens during print out is that the odd-positioned items on the list appears on the cell while the even-positioned items seemed not to show up that's why I thought it's printing blank pages.

        Thanks!
  • To post as a guest, your comment is unpublished.
    Juliette · 3 years ago
    Thank you for the post, this has helped me a lot. I was wondering if you had a way to do VBA to print Page 1 based on one drop-down selection and print Page 1 and 2 based on another drop-down selection? Thanks for any help you can provide.