Skip to main content

Conas an limistéar priontála a shocrú chun an tsraith dheireanach in Excel?

In Excel, de réir réamhshocraithe, socróidh sé an bhileog oibre iomlán go dtí an tsraith dheireanach le sonraí mar limistéar priontála. Ach sa chás seo, ba mhaith liom a phriontáil ó cholún A go colún C go dtí an tsraith dheireanach le sonraí mar a thaispeántar thíos scáileáin, an bhfuil aon bhealaí chun é a láimhseáil?
doc priontáil an tsraith dheireanach 1
doc priontáil an tsraith dheireanach 2

Socraigh limistéar priontála go dtí an tsraith dheireanach le sonraí trí Roghnú Priontála

Socraigh limistéar priontála go dtí an tsraith dheireanach le sonraí ag VBA


Socraigh limistéar priontála go dtí an tsraith dheireanach le sonraí trí Roghnú Priontála

Chun rogha a phriontáil go dtí an tsraith dheireanach le sonraí, is féidir leat an limistéar priontála a athrú go dtí an rogha sonraithe roimh phriontáil.

1. Coinnigh Ctrl eochair ansin roghnaigh na colúin is mian leat a phriontáil. Féach ar an scáileán:
doc priontáil an tsraith dheireanach 3

2. cliceáil Comhad > Print, agus ansin roghnaigh Roghnú Priontála ó na Socrú alt. Féach an pictiúr:
doc priontáil an tsraith dheireanach 4


Socraigh limistéar priontála go dtí an tsraith dheireanach le sonraí

Anseo tugaim isteach cód macra chun an oibríocht seo a dhéanamh freisin.

1. Cumasaigh an leathán a úsáideann tú, brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, agus cliceáil Ionsáigh > Modúil. Féach an pictiúr.
doc priontáil an tsraith dheireanach 5

2. Greamaigh thíos an cód leis an Modúil script, agus brúigh F5 eochair a rith.

VBA: Socraigh Limistéar go dtí an tsraith dheireanach

'UpdatebyExtendoffice20170811
    Dim xRg As Range
    Dim xRgLRow As Long
    Dim xRgAddress As String
    On Error Resume Next
    xRgAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xRgAddress, , , , , 8)
    xRg.Select
    xRgLRow = xRg.SpecialCells(xlCellTypeLastCell).Row
    xRgAddress = Left(xRg.Address(1, 1), Len(xRg.Address(1, 1)) - 2)
    xRgAddress = xRgAddress & xRgLRow
    ActiveSheet.PageSetup.PrintArea = xRgAddress
End Sub

doc priontáil an tsraith dheireanach 6

3. Tagann dialóg amach chun cur i gcuimhne duit an raon colún is mian leat a úsáid a roghnú. Féach ar an scáileán:
doc priontáil an tsraith dheireanach 7

4. cliceáil OK, tá an limistéar priontála socraithe.

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
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 ...

Tuairisc


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