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

Resumo

O Microsoft Visual Basic for Applications não fornece um método para determinar o número total de páginas que serão impressas numa folha de cálculo. No entanto, pode utilizar o método ExecuteExcel4Macro para utilizar o GET. FUNÇÃO DOCUMENT(50) da folha de macros para devolver o número total de páginas que serão impressas na folha de cálculo ativa.

Mais Informações

A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita, incluindo, mas não se limitando a, as garantias implícitas de comercialização e/ou adequação para um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação demonstrada e com as ferramentas utilizadas para criar e depurar procedimentos. Os profissionais de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não irão modificar estes exemplos para fornecer funcionalidades adicionais ou criar procedimentos para satisfazer as suas necessidades específicas.
Se tiver uma experiência de programação limitada, poderá querer contactar um Parceiro Certificado da Microsoft ou os Serviços de Aconselhamento da Microsoft. Para obter mais informações, visite estes Web 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 contactar a Microsoft, visite o seguinte Web site da Microsoft:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSPara utilizar a seguinte macro, configure um ficheiro do Microsoft Excel da seguinte forma:

1. Crie um novo livro do Microsoft Excel.

2. Selecione o intervalo A1:J100.

3. Introduza o número 1 e prima CTRL+ENTER. Deverá ver todas as células selecionadas preenchidas com o número 1.

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

5. Escreva 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

Pode encontrar informações adicionais sobre a função de macro Get.Document no manual de referência da Função do Excel.