Argraffu swp-ddetholiadau lluosog (pob ardal argraffu) ar un dudalen yn Excel

Yma, byddaf yn siarad am argraffu rhesi dethol lluosog ar un dudalen gyda VBA yn Excel. Gwnewch fel a ganlyn:

1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, ac yna gludwch y cod VBA isod i mewn i ffenestr Modiwl agoriadol newydd.

VBA: Argraffu rhesi lluosog a ddewiswyd ar un dudalen yn Excel

Sub Extract_to_Print()
Dim Rg As Range, Rg1 As Range, Rg2 As Range
Dim xAddress As String
Dim xSht As Worksheet
Dim I As Long
Dim xScreenUpdate As Boolean
Dim xAlert As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select ranges you will print:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xSht = ThisWorkbook.Worksheets.Add
I = 1
For Each Rg1 In Rg.Areas
Rg1.Copy xSht.Range("A" & I)
I = I + Rg1.Rows.Count
Next
xSht.PrintOut
xSht.Delete
Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert
End Sub

3. Gwasgwch F5 allwedd neu cliciwch y Run botwm i redeg y VBA hwn.

4. Nawr mae blwch deialog Kutools ar gyfer Excel pops i fyny. Dewiswch resi lluosog y byddwch yn eu hargraffu, a chliciwch ar y OK botwm i argraffu'r rhesi hyn.

Nodyn: Dal y Ctrl allwedd, gallwch ddewis sawl rhes nad ydynt yn gyfagos ar yr un pryd.

Os gallwn gopïo'r rhesi anghyson hyn a'u gludo fel ystod olynol mewn taflen waith arall, gallwn eu hargraffu'n hawdd ar un dudalen. Bydd y dull hwn yn cyflwyno Kutools ar gyfer Excel's Copi Meysydd cyfleustodau i ddelio ag ef.

1. Creu taflen waith newydd, dewiswch y rhesi nesaf y byddwch chi'n eu hargraffu o'ch bwrdd, a chlicio Kutools > Copi Meysydd.

Nodyn: Dal y Ctrl allwedd, gallwch ddewis rhesi anghynhenid ​​lluosog ar yr un pryd.

2. Yn y blwch deialog Copy Multiple Ranges agoriadol, gwiriwch Popeth opsiwn, a chliciwch ar y Ok botwm.

Nodyn: Y Gan gynnwys uchder rhes opsiwn a Gan gynnwys lled colofn bydd opsiynau'n copïo uchder rhesi a lled colofnau dethol a'u pastio i'r ystod cyrchfan.

3. Dewiswch y Cell A1 yn y daflen waith newydd sydd wedi'i chreu, a chliciwch ar y OK Button.

4. Arhoswch yn y daflen waith cyrchfan, a chliciwch Kutools > Dileu > Dileu Rhesi Gwag > Yn y Daflen Egnïol.

Ac yna mae blwch deialog yn dod allan ac yn dangos i chi faint o resi sydd wedi'u dileu. Dim ond ei gau.

5. Cliciwch ar y Ffeil (neu Botwm swyddfa)> print i argraffu'r rhesi hyn.

Mewn gwirionedd Kutools ar gyfer dyluniadau Excel Argraffu Dewin Dewis Lluosog i argraffu ystodau lluosog gyda'i gilydd yn Excel.

1. Cliciwch Menter > Argraffu > Argraffu Dewin Dewis Lluosog i agor y Dewin Dewis Lluosog Argraffu.

2. Yn y Dewin Dewis Lluosog Argraffu agoriadol, cliciwch Ychwanegu botwm  i ychwanegu rhesi y byddwch chi'n eu hargraffu gyda'ch gilydd, a chlicio ar y Gorffen botwm.

Nodiadau:

(1) Ar ôl clicio ar y Ychwanegu botwm , gallwch ddewis sawl amrediad amhendant mewn un daflen waith trwy ddal y Ctrl allwedd ac yna eu dewis fesul un;

(2) Tynnu amrediad / rhes o'r Ystodau i'w hargraffu rhestr, dewiswch yr ystod / rhes hon a chliciwch ar y Dileu botwm.

(3) Nid yw'r cyfleustodau hwn yn cefnogi argraffu rhesi a cholofnau cyfan, fel rhes gyfan o $ 4: $ 4, neu golofn gyfan o $ B: $ B..

3. Mae rhesi / ystodau dethol wedi'u pastio fel lluniau cysylltiedig mewn taflen waith newydd. Ewch ymlaen i glicio Ffeil (neu Botwm swyddfa)> print i'w argraffu.