Como determinar quantas páginas serão impressas no Excel

Resumo

A Microsoft Visual Basic for Applications não fornece um método para determinar o número total de páginas que serão impressas em uma planilha. No entanto, você pode usar o método ExecuteExcel4Macro para usar o GET. Função de folha de macro DOCUMENT(50) para retornar o número total de páginas que serão impressas na planilha ativa.

Informações adicionais

A Microsoft fornece exemplos de programação apenas para fins ilustrativos, sem garantia explícita ou implícita, incluindo, mas sem se limitar a, garantias de comercialização e/ou adequação para uma finalidade específica. Este artigo pressupõe que você conhece a linguagem de programação demonstrada e as ferramentas usadas para criar e depurar os procedimentos. A equipe de suporte da Microsoft pode ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificará estes exemplos para fornecer funcionalidades adicionais ou construir procedimentos a fim de atender às necessidades específicas.
Se você tiver uma experiência de programação limitada, talvez queira entrar em contato com um Parceiro Certificado da Microsoft ou serviços de consultoria da Microsoft. Para obter mais informações, visite estes sites da Microsoft:

Parceiros Certificados da Microsoft – https://partner.microsoft.com/global/30000104

Serviços Profissionais da Microsoft – https://www.microsoft.com/professionalservices/overview

Para obter mais informações sobre as opções de suporte disponíveis e sobre como entrar em contato com a Microsoft, visite o seguinte site da Microsoft:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSPara usar a macro a seguir, configure um arquivo do Microsoft Excel da seguinte maneira:

1. Crie uma nova pasta de trabalho do Microsoft Excel.

2. Selecione o intervalo A1:J100.

3. Insira o número 1 e pressione CTRL+ENTER. Você deve ver todas as células selecionadas preenchidas com o número 1.

4. Insira um módulo de macro do Visual Basic.

5. Digite o seguinte código no módulo:

6. Sub ShowMe()
       MsgBox ExecuteExcel4Macro("GET.DOCUMENT(50)") & _
           " pages will be printed."
   End Sub
   

7. Execute a macro.

Referências

Informações adicionais sobre a função macro Get.Document podem ser encontradas no manual de referência do Excel Function.