Skip to main content

Conas iliomad sraitheanna roghnaithe a phriontáil ar leathanach amháin in Excel?

Agus roghnúcháin á gcló in Excel, priontálfar raonta neamhfhreagracha ar leathanaigh scartha. I roinnt cásanna, b’fhéidir nach mbeidh orainn ach roinnt sraitheanna / raonta roghnaithe a phriontáil ar leathanach amháin ó thábla fada, ach níl na sraitheanna / raonta roghnaithe seo i ndiaidh a chéile. Dá bhrí sin, conas na sraitheanna / raonta seo a phriontáil ar leathanach amháin in Excel? Tá roinnt réiteach ann:

Priontáil iliomad sraitheanna roghnaithe ar leathanach amháin le VBA

Priontáil iliomad sraitheanna roghnaithe ar leathanach amháin agus cóipeáil chuig bileog oibre amháin

Priontáil iliomad sraitheanna roghnaithe ar leathanach amháin le Kutools le haghaidh Excel

Baisc ilroghnuithe (gach réimse priontála) ar leathanach amháin in Excel

Kutools le haghaidh Excel's Priontáil Draoi Ilroghnacha is féidir leis cabhrú leat ní amháin gach réimse priontála a phriontáil ón mbileog oibre chéanna ar leathanach amháin go héasca, ach freisin raonta iolracha a phriontáil ó go leor bileoga oibre ar leathanach amháin go héasca.

ad ilroghnuithe a phriontáil 2


Labhróidh mé anseo faoi iliomad sraitheanna roghnaithe a phriontáil ar leathanach amháin le VBA in Excel. Déan mar a leanas le do thoil:

1. Brúigh Eile + F11 eochracha ag an am céanna chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

2. cliceáil Ionsáigh > Modúil, agus ansin an cód VBA thíos a ghreamú i bhfuinneog nua an Mhodúil oscailte.

VBA: Priontáil iliomad sraitheanna roghnaithe ar leathanach amháin in 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. Brúigh F5 eochair nó cliceáil ar an Rith cnaipe chun an VBA seo a rith.

4. Anois tagann bosca dialóige Kutools for Excel suas. Roghnaigh sraitheanna iolracha a phriontálfaidh tú, agus cliceáil ar an OK cnaipe chun na sraitheanna seo a phriontáil.

nótaí: Ag sealbhú an Ctrl eochair, is féidir leat iliomad sraitheanna neamh-in aice láimhe a roghnú ag an am céanna.


Más féidir linn na sraitheanna neamhfhreagracha seo a chóipeáil agus a ghreamú mar raon comhleanúnach i mbileog oibre eile, is féidir linn iad a phriontáil go héasca ar leathanach amháin. Tabharfaidh an modh seo Kutools isteach le haghaidh Excel Cóipeanna Ranganna fóntais chun déileáil leis.

Kutools le haghaidh Excel - Pacáilte le breis agus 300 uirlis riachtanach le haghaidh Excel. Bain sult as triail iomlán 30-lá SAOR IN AISCE gan aon chárta creidmheasa ag teastáil! Íoslódáil anois!

1. Cruthaigh bileog oibre nua, na chéad sraitheanna eile a phriontálfaidh tú ó do thábla, agus cliceáil Kutools > Cóipeanna Ranganna.

nótaí: Ag sealbhú an Ctrl eochair, is féidir leat iliomad sraitheanna neamhfhreagracha a roghnú ag an am céanna.

2. Sa bhosca dialóige Cóipeáil Il-Ranganna tosaigh, seiceáil Gach rogha, agus cliceáil ar an Ok cnaipe.

nótaí: An Lena n-áirítear airde as a chéile rogha agus Leithead an cholúin san áireamh cóipeálfaidh na roghanna airde as a chéile raonta roghnaithe agus leithead na gcolún agus greamaítear iad sa raon ceann scríbe.

3. Roghnaigh an Cill A1 sa bhileog oibre nua cruthaithe, agus cliceáil ar an OK Button.

4. Fan sa bhileog oibre ceann scríbe, agus cliceáil Kutools > Scrios > Scrios Sraitheanna Bána > I mBileog Ghníomhach.

Agus ansin tagann bosca dialóige amach agus taispeánann sé duit cé mhéad sraitheanna a scriosadh. Dún é.

5. Cliceáil ar an Comhad (nó Cnaipe oifige)> Print chun na sraitheanna seo a phriontáil.

Kutools le haghaidh Excel - Supercharge Excel le níos mó ná 300 uirlisí riachtanacha. Bain sult as triail iomlán 30-lá SAOR IN AISCE gan aon chárta creidmheasa ag teastáil! Get sé anois


I ndáiríre dearaí Kutools le haghaidh Excel Priontáil Draoi Ilroghnacha chun raonta iolracha a phriontáil le chéile in Excel.

Kutools le haghaidh Excel - Pacáilte le breis agus 300 uirlis riachtanach le haghaidh Excel. Bain sult as triail iomlán 30-lá SAOR IN AISCE gan aon chárta creidmheasa ag teastáil! Íoslódáil anois!

1. cliceáil Fiontar > Priontáil > Priontáil Draoi Ilroghnacha chun an Draoi Ilroghnacha Priontála a oscailt.

2. Sa Draoi Roghnaithe Il-Roghnaithe Priontála, cliceáil Cuir cnaipe  chun sraitheanna a phriontálfaidh tú le chéile a chur leis, agus cliceáil ar an Críochnaigh cnaipe.

Nótaí:

(1) Tar éis cliceáil ar an Cuir cnaipe , is féidir leat raonta neamhfhreagracha iolracha a roghnú i mbileog oibre amháin tríd an Ctrl eochair agus ansin iad a roghnú ceann ar cheann;

(2) Raon / ró a bhaint den Ranganna le priontáil liosta, ach roghnaigh an raon / ró as seo agus cliceáil ar an Scrios cnaipe.

(3) Ní thacaíonn an áirgiúlacht seo le sraitheanna agus colúin iomlána a phriontáil, mar shampla sraith iomlán de $ 4: $ 4, nó colún iomlán de $ B: $ B..

3. Greamaíodh sraitheanna / raonta roghnaithe mar phictiúir nasctha i mbileog oibre nua. Téigh ar aghaidh chun cliceáil Comhad (nó Cnaipe oifige)> Print a phriontáil.

Kutools le haghaidh Excel - Supercharge Excel le níos mó ná 300 uirlisí riachtanacha. Bain sult as triail iomlán 30-lá SAOR IN AISCE gan aon chárta creidmheasa ag teastáil! Get sé anois


Kutools le haghaidh Excel: Breis is 300 uirlis láimhe ar do mhéar! Cuir tús le do thriail saor in aisce 30-lá gan aon srianta gné inniu. Íosluchtaigh Anois!

Uirlisí Táirgiúlachta Oifige is Fearr

Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

cluaisín kte 201905


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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