Bepalen hoeveel pagina's er worden afgedrukt in Excel

Samenvatting

Microsoft Visual Basic for Applications biedt geen methode om het totale aantal pagina's te bepalen dat in een werkblad wordt afgedrukt. U kunt echter de methode ExecuteExcel4Macro gebruiken om de GET te gebruiken. DOCUMENT(50) macrobladfunctie om het totale aantal pagina's te retourneren dat op het actieve werkblad wordt afgedrukt.

Meer informatie

Microsoft biedt alleen programmeervoorbeelden ter illustratie, zonder expliciete of impliciete garantie, met inbegrip van, maar niet beperkt tot, de impliciete garanties van verkoopbaarheid en/of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal die wordt gedemonstreerd en de hulpprogramma's die worden gebruikt om procedures te maken en fouten op te sporen. Microsoft-ondersteuningsmedewerkers kunnen u helpen de functionaliteit van een bepaalde procedure uit te leggen, maar ze zullen deze voorbeelden niet wijzigen om extra functionaliteit te bieden of procedures te maken die voldoen aan uw specifieke behoeften.
Als u beperkte programmeerervaring hebt, kunt u contact opnemen met een Microsoft Certified Partner of Microsoft Advisory Services. Ga voor meer informatie naar deze Microsoft-websites:

Microsoft Certified Partners - https://partner.microsoft.com/global/30000104

Microsoft Professional Services - https://www.microsoft.com/professionalservices/overview

Ga naar de volgende Microsoft-website voor meer informatie over de beschikbare ondersteuningsopties en over hoe u contact kunt opnemen met Microsoft:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSAls u de volgende macro wilt gebruiken, stelt u als volgt een Microsoft Excel-bestand in:

1. Een nieuwe Microsoft Excel-werkmap maken.

2. Selecteer het bereik A1:J100.

3. Voer het getal 1 in en druk op Ctrl+Enter. Als het goed is, ziet u dat alle geselecteerde cellen zijn gevuld met het getal 1.

4. Een Visual Basic-macromodule invoegen.

5. Typ de volgende code in de module:

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

7. Voer de macro uit.

Verwijzingen

Meer informatie over de macrofunctie Get.Document vindt u in de naslaghandleiding voor Excel-functies.