Hogyan állapítható meg, hogy hány oldal lesz kinyomtatva az Excelben?

Összefoglalás

A Microsoft Visual Basic for Applications nem biztosít metódust a munkalapon nyomtatandó oldalak teljes számának meghatározásához. A GET használatához azonban használhatja az ExecuteExcel4Macro metódust. A DOCUMENT(50) makrólap függvény az aktív munkalapra nyomtatandó oldalak teljes számát adja vissza.

További információ

A Microsoft csak szemléltetéshez kínál programozási példákat, a kifejezett vagy hallgatólagos garancia nélkül, beleértve, de nem kizárólagosan az egy adott célra való eladhatóságra és/vagy alkalmasságra vonatkozó vélelmezett garanciát. Ez a cikk feltételezi, hogy ismeri a bemutatott programozási nyelvet, valamint az eljárások létrehozásához és hibakereséséhez használt eszközöket. A Microsoft támogatási szakemberei segíthetnek elmagyarázni egy adott eljárás funkcióit, de nem módosítják ezeket a példákat, hogy további funkciókat nyújtsanak, vagy az adott igényeknek megfelelő eljárásokat építsenek ki.
Ha korlátozott programozási tapasztalattal rendelkezik, érdemes lehet kapcsolatba lépnie egy Microsoft certified partnerrel vagy a Microsoft tanácsadó szolgálatával. További információért látogasson el az alábbi Microsoft-webhelyekre:

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

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

Az elérhető támogatási lehetőségekről és a Microsofttal való kapcsolatfelvételről az alábbi Microsoft-webhelyen talál további információt:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSA következő makró használatához állítson be egy Microsoft Excel-fájlt az alábbiak szerint:

1. Hozzon létre egy új Microsoft Excel-munkafüzetet.

2. Válassza ki az A1:J100 tartományt.

3. Írja be az 1-es számot, és nyomja le a CTRL+ENTER billentyűkombinációt. Az összes kijelölt cellának meg kell jelennie az 1-es számmal.

4. Szúrjon be egy Visual Basic makrómodult.

5. Írja be a következő kódot a modulba:

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

7. Futtassa a makrót.

Hivatkozások

A Get.Document makrófüggvénnyel kapcsolatos további információk az Excel-függvény kézikönyvében találhatók.