Új hozzászólás Aktív témák

  • Fferi50

    Topikgazda

    válasz rovgab #52855 üzenetére

    Szia!
    1. Kézzel: Kijelölöd a teljes területet amit szűrni kívánsz, szűrés nélkül- Ezután lapelrendezés - nyomtatási terület kijelölése. A szűrő alkalmazás után csak a látszó területet fogja nyomtatni.
    Természetesen ezt minden munkalapon meg kell csinálnod.
    2. Makróval:
    Ha az A1 cellától kezdődik a területed:
    ActiveSheet.PageSetup.PrintArea=Range("A1").CurrentRegion.Address
    Ha nem az első sortól, akkor a terület első celláját kell beírnod, pl. A5 ha az ötödik sortól kezdődik. FONTOS a terület legyen "leválasztva", azaz előtte - utána legyen üres sor, illetve üres oszlop ha nem az első oszlopban kezdődik (pl. D5, akkor a 4. sor és a C oszlop legyen üres, A1 helyére D5 kerüljön a makróba).
    Ezután bármilyen szűrés esetén csak az adott tartományban látható sorok kerülnek kinyomtatásra.
    ActiveSheet helyére írhatod ezt is Sheets("név"), ezáltal bármelyik munkalap nyomtatási területét beállíthatod, anélkül, hogy át kellene váltanod rá.
    Remélem sikerülni fog.
    Üdv.

Új hozzászólás Aktív témák