Conas gach bileog a phriontáil seachas bileog shonrach amháin in Excel?
Agus tú ag obair in Excel, b’fhéidir gurb é bileoga priontála an post laethúil ginearálta duit. An ndearna tú iarracht riamh gach bileog a phriontáil ach bileog shonrach amháin? Mar shampla, leabhar oibre anseo, ba mhaith leat gach bileog a phriontáil ach an bhileog darb ainm “Iomlán”, conas is féidir leat é a láimhseáil go tapa?
Priontáil gach bileog seachas ceann le VBA
Priontáil leathanaigh áirithe a theastaíonn uait le Kutools le haghaidh Excel
Priontáil gach bileog seachas ceann le VBA
Seo cód VBA atá in ann gach bileog a phriontáil seachas bileog shonrach amháin.
1. Gníomhachtaigh an leabhar oibre is mian leat chun na bileoga a phriontáil, agus brúigh Alt + F11 eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > modúle, greamaigh thíos an cód le script an Mhodúil.
VBA: Bileog Priontála seachas ceann amháin
Sub printsheets()
'UpdatebyExtendoffice20161031
Dim xWs As Worksheet
Application.ScreenUpdating = False
For Each xWs In ThisWorkbook.Worksheets
If xWs.Visible = True Then
If xWs.Name <> "Total" Then
With xWs.PageSetup
.PrintArea = "A1:B15" ' USE YOUR PRINTAREA
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
xWs.PrintOut
End If
End If
Next xWs
Application.ScreenUpdating = False
MsgBox "Sheet “Total” has not been printed", vbInformation, "Kutools for Excel"
End Sub
Nóta: Sa chód, tá an Iomlán in Más xWs.Name <> "Iomlán" Ansin agus MsgBox "Níor cuireadh Iomlán na mBileog i gcló" an t-ainm bileog nár mhaith leat a phriontáil, agus A1: B15 in .PrintArea = "A1: B15" an raon is mian leat a phriontáil de gach bileog. Is féidir leat iad a athrú de réir mar is gá duit.
3. Brúigh F5 eochair chun an cód a rith, agus ansin tagann dialóg amach le cur i gcuimhne duit nár cuireadh an bhileog shonrach i gcló. Féach an pictiúr:
4. cliceáil OK chun an dialóg a dhúnadh.
Priontáil leathanaigh áirithe a theastaíonn uait le Kutools le haghaidh Excel
Mura dteastaíonn uait ach leathanaigh cothrom nó corr, nó leathanaigh shonracha bileog, a phriontáil, is féidir leat iarratas a dhéanamh Kutools le haghaidh Excel'S Priontáil Leathanaigh Sonraithe fóntais ar féidir leat fabhar a dhéanamh go tapa.
Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. |
Tar éis a shuiteáil Kutools for Excel, déan mar atá thíos le do thoil :(Íoslódáil saor in aisce Kutools le haghaidh Excel Anois!)
1. Gníomhachtaigh an bhileog inar mian leat leathanaigh áirithe a phriontáil, cliceáil Kutools Plus > Priontáil > Priontáil Leathanaigh Sonraithe. Féach an pictiúr:
2. Ansin sa Priontáil Leathanaigh Sonraithe dialóg, seiceáil na roghanna bunaithe ar do riachtanas priontála. Féach an pictiúr:
3. cliceáil Print chun na leathanaigh a phriontáil.
Uirlisí Táirgiúlachta Oifige is Fearr
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 ...
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á!