Hogyan lehet kinyomtatni az összes lapot, egy adott lap kivételével, az Excel programban?
Az Excel-munkában a lapok nyomtatása lehet az általános napi munka az Ön számára. Azonban megpróbált már egyetlen lapot kinyomtatni, kivéve egy adott lapot? Például itt egy munkafüzetet, amelyben az összes lapot ki szeretné nyomtatni, kivéve az „Összesen” nevű lapot, hogyan tudja gyorsan kezelni?
Az összes lap kinyomtatása, kivéve a VBA-t
Nyomtasson ki bizonyos oldalakat, amelyekre szüksége van a Kutools for Excel segítségével
Az összes lap kinyomtatása, kivéve a VBA-t
Itt van egy VBA kód, amely egy adott lap kivételével minden lapot kinyomtathat.
1. Aktiválja a lapokat kinyomtatni kívánt munkafüzetet, majd nyomja meg az gombot Alt + F11 gomb a Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > module, illessze be a kód alatt a Module parancsfájlt.
VBA: Nyomtatási lap, az egyik kivételével
Sub printsheets()
'UpdatebyExtendoffice20161031
Dim xWs As Worksheet
Application.ScreenUpdating = False
For Each xWs In ThisWorkbook.Worksheets
If xWs.Visible = True Then
If xWs.Name <> "Total" Then
With xWs.PageSetup
.PrintArea = "A1:B15" ' USE YOUR PRINTAREA
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
xWs.PrintOut
End If
End If
Next xWs
Application.ScreenUpdating = False
MsgBox "Sheet “Total” has not been printed", vbInformation, "Kutools for Excel"
End Sub
Jegyzet: A kódban az Végösszeg in Ha xWs.Name <> "Összesen" Akkor és a MsgBox "A lap nem lett kinyomtatva" annak a lapnak a neve, amelyet nem akar nyomtatni, és A1: B15 in .PrintArea = "A1: B15" az egyes lapok nyomtatási tartománya. Szükség szerint megváltoztathatja őket.
3. nyomja meg F5 gombot a kód futtatásához, majd megjelenik egy párbeszédpanel, amely emlékeztet arra, hogy az adott lapot nem nyomtatták ki. Lásd a képernyőképet:
4. kettyenés OK a párbeszéd bezárásához.
Nyomtasson ki bizonyos oldalakat, amelyekre szüksége van a Kutools for Excel segítségével
Ha csak páros vagy páratlan oldalakat vagy egy lap meghatározott oldalait szeretné kinyomtatni, akkor jelentkezhet Kutools az Excel számára'S A megadott oldalak nyomtatása segédprogram, amely gyorsan megtehet egy szívességet.
Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. |
Telepítése után Kutools for Excel, kérjük, tegye az alábbiakat:(Ingyenesen töltse le a Kutools for Excel programot most!)
1. Aktiválja azt a lapot, amelyen bizonyos oldalakat nyomtatni szeretne, kattintson a gombra Kutools Plus > Nyomtatás > A megadott oldalak nyomtatása. Lásd a képernyőképet:
2. Ezután a A megadott oldalak nyomtatása párbeszédpanelen ellenőrizze a beállításokat a nyomtatási igény alapján. Lásd a képernyőképet:
3. kettyenés az oldalak kinyomtatásához.
A legjobb irodai hatékonyságnövelő eszközök
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...
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!