Sut i argraffu sawl dewis ar un dudalen yn Excel?
Os oes gennych daflen waith fawr sy'n cynnwys llawer o ddata, ac yn awr, rydych chi am argraffu rhai ystodau dethol nad ydynt yn barhaus mewn un dudalen, fel y gallwch arbed llawer o bapur. Mae Excel yn darparu'r Gosod Print Arear nodwedd i ni argraffu sawl dewis ar unwaith, ond, bydd pob ystod a ddewisir yn cael ei hargraffu i mewn i un dudalen ar wahân. Bydd yr erthygl hon yn siarad am sut i argraffu sawl dewis nad yw'n barhaus ar un dudalen.
Argraffu sawl dewis o un daflen waith ar un dudalen gyda chod VBA
Argraffwch ddetholiadau lluosog o un neu fwy o daflenni gwaith ar un dudalen gyda Kutools for Excel
Argraffu sawl dewis o un daflen waith ar un dudalen gyda chod VBA
I argraffu nifer o ddetholiadau anghysbell dethol o un daflen waith mewn un dudalen, gall y cod VBA canlynol eich helpu, gwnewch fel a ganlyn:
1. Gwasgwch Ctrl allwedd i ddewis yr ystodau rydych chi am eu hargraffu.
2. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Argraffu sawl dewis i mewn i un dudalen
Sub PrintOutRange()
'Updateby Extendoffice
Dim xRng1 As Range
Dim xRng2 As Range
Dim xNewWs As Worksheet
Dim xWs As Worksheet
Dim xIndex As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWs = ActiveSheet
Set xNewWs = Worksheets.Add
xWs.Select
xIndex = 1
For Each xRng2 In Selection.Areas
xRng2.Copy
Set xRng1 = xNewWs.Cells(xIndex, 1)
xRng1.PasteSpecial xlPasteValues
xRng1.PasteSpecial xlPasteFormats
xIndex = xIndex + xRng2.Rows.Count
Next
xNewWs.Columns.AutoFit
xNewWs.PrintOut
xNewWs.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
4. Yna pwyswch F5 allwedd i redeg y cod hwn, a bydd yr ystodau a ddewiswyd gennych yn cael eu hargraffu ar unwaith, a chânt eu hargraffu i un dudalen.
Argraffwch ddetholiadau lluosog o un neu fwy o daflenni gwaith ar un dudalen gyda Kutools for Excel
Gall y cod uchod yn unig eich helpu i argraffu'r ystodau a ddewiswyd o un daflen waith, os ydych chi am i ddetholiadau lluosog o sawl taflen waith gael eu hargraffu i un dudalen, ni fydd y cod uchod yn gweithio. Peidiwch â phoeni, yma, gallaf gyflwyno teclyn defnyddiol i chi - Kutools for Excel, Gyda'i Argraffu Dewin Dewis Lluosog cyfleustodau, gallwch argraffu'r detholiadau o un daflen waith neu daflenni gwaith lluosog i mewn i un dudalen ar unwaith.
| Kutools for Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
Ar ôl gosod Kutools for Excel, gwnewch y camau canlynol:
1. Cliciwch Kutools Byd Gwaith > Argraffu > Argraffu Dewin Dewis Lluosog, gweler y screenshot:
2. Yn y Argraffu Dewin Dewis Lluosog, Cliciwch
botwm i ddewis ac ychwanegu'r ystod rydych chi am ei hargraffu i'r Meysydd i argraffu blwch rhestr fesul un, (gallwch ddewis yr ystodau o un daflen waith neu daflenni gwaith lluosog), cliciwch 
botwm yn gallu dileu'r ystodau nad oes eu hangen arnoch chi, gweler y screenshot:
3. Ar ôl ychwanegu'r detholiadau yn y blwch rhestr, cliciwch Nesaf >> botwm i fynd i gam 2 y dewin, nodwch y gosodiadau argraffu yn ôl yr angen, a gallwch ychwanegu rhes wag rhwng yr ystodau a ddewiswyd gyda siec Ychwanegwch res wag rhwng ystodau opsiwn, gweler y screenshot:
4. Yna ewch ymlaen i glicio Nesaf >> bwtŵn, yng ngham 3 y dewin, nodwch y weithred ar gyfer y daflen waith dros dro, gallwch chi actifadu'r daflen waith ond peidiwch ag argraffu, argraffu'r daflen waith a'i chadw neu argraffu'r daflen waith a'i dileu. Gweler y screenshot:
5. Cliciwch Gorffen botwm, mae'r holl ystodau a ddewiswyd wedi'u pastio i mewn i daflen waith newydd fel gwrthrychau llun cysylltiedig. A gallwch eu llusgo a'u haildrefnu yn y daflen waith. Gweler y screenshot:
6. Pan fyddwch chi'n argraffu'r daflen waith newydd hon, bydd yr ystodau'n cael eu hargraffu i mewn i un dudalen yn ôl yr angen.
Cliciwch i wybod mwy am y cyfleustodau Argraffu Dewin Lluosog Argraffu hwn.
Dadlwythwch a threial am ddim Kutools for Excel Nawr!
Demo: Argraffwch ddetholiadau lluosog o un neu fwy o daflenni gwaith ar un dudalen gyda Kutools for Excel
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
