Ugrás a tartalomra

Hogyan állítsuk be a nyomtatási területet az Excel utolsó sorába?

Az Excel programban alapértelmezés szerint a teljes munkalapot az utolsó sorig állítja be, ahol az adatok nyomtatási területként szerepelnek. De ebben az esetben az A oszlopból a C oszlopba szeretnék nyomtatni az utolsó sorig az adatokkal, az alábbi képernyőképen látható módon. Van-e valamilyen módszer a kezelésére?
doc kinyomtatja az utolsó sort 1
doc kinyomtatja az utolsó sort 2

Állítsa a nyomtatási területet az adatok utolsó sorára a Print Selection segítségével

Állítsa a nyomtatási területet az utolsó sorra a VBA adatai alapján


Állítsa a nyomtatási területet az adatok utolsó sorára a Print Selection segítségével

Ha kijelölést szeretne nyomtatni az utolsó sorra az adatokkal, akkor a nyomtatás előtt módosíthatja a nyomtatási területet a megadottra.

1. Tartsa Ctrl gombot, majd válassza ki a nyomtatni kívánt oszlopokat. Lásd a képernyőképet:
doc kinyomtatja az utolsó sort 3

2. kettyenés filé > , majd válassza ki Nyomtatás kiválasztása tól Beállítás szakasz. Lásd a képernyőképet:
doc kinyomtatja az utolsó sort 4


Állítsa a nyomtatási területet az adatok utolsó sorára

Itt bemutatok egy makrokódot ennek a műveletnek a végrehajtásához is.

1. Engedélyezze a használt lapot, nyomja meg a gombot Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablakot, és kattintson rá betétlap > Modulok. Lásd a képernyőképet.
doc kinyomtatja az utolsó sort 5

2. Illessze be a kód alatt a Modulok szkriptet, és nyomja meg a gombot F5 kulcs a futtatáshoz.

VBA: A Terület beállítása az utolsó sorra

'UpdatebyExtendoffice20170811
    Dim xRg As Range
    Dim xRgLRow As Long
    Dim xRgAddress As String
    On Error Resume Next
    xRgAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xRgAddress, , , , , 8)
    xRg.Select
    xRgLRow = xRg.SpecialCells(xlCellTypeLastCell).Row
    xRgAddress = Left(xRg.Address(1, 1), Len(xRg.Address(1, 1)) - 2)
    xRgAddress = xRgAddress & xRgLRow
    ActiveSheet.PageSetup.PrintArea = xRgAddress
End Sub

doc kinyomtatja az utolsó sort 6

3. Megjelenik egy párbeszédpanel, amely emlékezteti Önt a használni kívánt oszloptartomány kiválasztására. Lásd a képernyőképet:
doc kinyomtatja az utolsó sort 7

4. kettyenés OK, a nyomtatási terület be lett állítva.

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations