Ta reda på hur många sidor som skrivs ut i Excel

Gäller för: Microsoft Office Excel 2007

För Microsoft Excel 97 och tidigare och Microsoft Excel 98 och tidigare version av denna artikel, se 139405 .

Sammanfattning


Microsoft Visual Basic for Applications tillhandahåller inte en metod för att fastställa det totala antalet sidor som ska skrivas ut i ett kalkylblad. Du kan dock använda metoden ExecuteExcel4Macro för att använda GET. DOCUMENT(50) makro blad funktion för att returnera det totala antalet sidor som ska skrivas ut på det aktiva kalkylbladet.

Mer Information


Microsoft tillhandahåller programmeringsexempel endast utan garanti varken uttryckliga eller underförstådda, inklusive men inte begränsat till, underförstådda garantier om säljbarhet eller lämplighet för ett särskilt ändamål. Den här artikeln förutsätter att du är bekant med det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsofts supporttekniker kan hjälpa till med att förklara funktionen hos en viss procedur, men kan inte ändra dessa exempel för att ge ytterligare funktioner eller skapa procedurer som motsvarar dina behov.
Om du har begränsad programmeringserfarenhet kan du kontakta en Microsoft Certified Partner eller Microsoft Advisory Services. Mer information finns i följande Microsoft-webbplatser:

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

Microsoft Advisory Services - http://support.microsoft.com/gp/advisoryservice

Mer information om de supportalternativ som är tillgängliga och hur du kontaktar Microsoft finns på följande Microsoft-webbplats:http://support.microsoft.com/default.aspx?scid=fh; EN-US; CNTACTMSom du vill använda följande makro, ställa in en Microsoft Excel-fil på följande sätt:



  1. Skapa en ny Microsoft Excel-arbetsbok.
  2. Markera området A1:J100.
  3. Ange siffran 1 och tryck på CTRL + RETUR. Du bör se alla markerade celler som är fyllda med nummer 1.
  4. Infoga en modul för Visual Basic-makro.
  5. Skriv följande kod i modulen:
  6. Sub ShowMe()
    MsgBox ExecuteExcel4Macro("GET.DOCUMENT(50)") & _
    " pages will be printed."
    End Sub
  7. Kör makrot.



Referenser


Mer information om funktionen Get.Document makrot finns i referenshandboken för Excel-funktion.