Note: The other languages of the website are Google-translated. Back to English

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

Argraffu sawl dewis o un neu fwy o daflenni gwaith ar un dudalen gyda Kutools ar gyfer 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.


Argraffu sawl dewis o un neu fwy o daflenni gwaith ar un dudalen gyda Kutools ar gyfer 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 ar gyfer 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 ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod

Ar ôl gosod Kutools ar gyfer 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, Cliciwchbotwm ychwanegu doc 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 tynnu doc botwm yn gallu dileu'r ystodau nad oes eu hangen arnoch chi, gweler y screenshot:

argraffu doc ​​detholiadau lluosog 2

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:

argraffu doc ​​detholiadau lluosog 3

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:

argraffu doc ​​detholiadau lluosog 4

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:

argraffu doc ​​detholiadau lluosog 5

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 ar gyfer Excel Now!


Demo: Argraffu sawl dewis o un neu fwy o daflenni gwaith ar un dudalen gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (2)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ceisiais eich cod VBA gydag Excel 2016 ac rwy'n cael gwall: Gwall Llunio: Is-swyddogaeth heb ei ddiffinio. Amlygir y llinell hon: Set xRng1 = xNewWs.Cells(xIndex, 1)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut i argraffu ardal ddewis gydag amlbrint? Rwy'n golygu maes dethol rydw i eisiau ei argraffu 10 gwaith
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir