Note: The other languages of the website are Google-translated. Back to English
Logáil isteach  \/ 
x
or
x
Cláraigh  \/ 
x

or

Conas leathanaigh nó bileog oibre áirithe a phriontáil bunaithe ar luach cille in Excel?

An ndearna tú iarracht riamh leathanach nó bileog oibre áirithe a phriontáil bunaithe ar luach cille in Excel? Agus conas é a bhaint amach? Is féidir le modhanna san alt seo cabhrú leat é a réiteach go mion.

Priontáil leathanach áirithe bunaithe ar luach cille le cód VBA
Priontáil bileog oibre áirithe bunaithe ar luach cille le cód VBA


Priontáil leathanach áirithe bunaithe ar luach cille le cód VBA


Mar shampla, teastaíonn uait leathanach áirithe mar leathanach 1 den bhileog oibre reatha a phriontáil go huathoibríoch agus uimhir leathanach 1 á iontráil i gcill A1 sa bhileog oibre reatha. Is féidir leat é seo a leanas a dhéanamh chun é a bhaint amach.

1. Roghnaigh sa chill tá uimhir an leathanaigh a theastaíonn uait a phriontáil bunaithe air, ansin brúigh Eile agus F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fuinneog. Ansin cliceáil Ionsáigh > Modúil.

2. Ansin an Microsoft Visual Basic d’Fheidhmchláir pop suas an fhuinneog, cóipeáil agus greamaigh an cód VBA seo a leanas isteach sa cód fhuinneog.

Cód VBA: Leathanach priontála bunaithe ar luach cille

Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
    If Not IsEmpty(.Value) And IsNumeric(.Value) Then
        xPage = .Value
    Else: MsgBox "Please specify a cell and enter a page in cell"
        Exit Sub
    End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
    ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
    Exit Sub
End If
End Sub

3. Brúigh F5 eochair chun an cód a rith. Sa popping suas Kutools le haghaidh Excel bosca dialóige, cliceáil an Is ea cnaipe chun an leathanach áirithe a phriontáil, nó cliceáil ar an Uimh cnaipe chun an bosca dialóige a fhágáil mura dteastaíonn uait a phriontáil. Féach an pictiúr:

Ansin osclaítear fuinneog réamhamhairc leathanach áirithe den bhileog oibre reatha, cliceáil le do thoil ar an Print cnaipe chun priontáil a thosú.


Priontáil leathanach áirithe bunaithe ar luach cille le cód VBA

Má cheaptar gur mhaith leat an bhileog oibre ghníomhach a phriontáil nuair is ionann luach i gcill B2 den bhileog seo agus uimhir 1001. Is féidir leat é a bhaint amach leis an gcód VBA seo a leanas. Déan mar a leanas le do thoil.

1. Cliceáil ar dheis ar an Cluaisín Bileog gur mhaith leat a phriontáil bunaithe ar luach cille, agus ansin cliceáil Féach an cód ón roghchlár cliceáil ar dheis.

2. Ansin an Microsoft Visual Basic d’Fheidhmchláir tagann an fhuinneog aníos, cóipeáil agus greamaigh an cód VBA seo a leanas i bhfuinneog an Chóid.

Cód VBA: Bileog oibre priontála bunaithe ar luach cille

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
    If xCell.Value = 1001 Then
        xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
        If xYesorNo = vbYes Then
          ActiveSheet.PrintOut
        Else
           Exit Sub
        End If
End If
End Sub

nótaí: Is féidir leat an luach cille agus cille sa chód a athrú de réir mar is gá duit.

3. Brúigh Eile + Q a dhúnadh Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

Agus uimhir 1001 á iontráil i gcill B2, a Kutools le haghaidh Excel bosca dialóige aníos, cliceáil le do thoil ar an Is ea cnaipe chun priontáil a thosú. Nó cliceáil ar an Uimh cnaipe chun an bosca dialóige a fhágáil go díreach gan é a phriontáil. Féach an pictiúr:

Leid: Más mian leat leathanaigh neamh-chomhleanúnacha ar nós leathanaigh 1, 6 agus 9 a phriontáil go díreach sa bhileog oibre reatha, nó gan ach gach leathanach cothrom nó corr a phriontáil, is féidir leat triail a bhaint as an Priontáil Leathanaigh Sonraithe fóntais pf Kutools le haghaidh Excel mar a thaispeántar thíos an pictiúr. Is féidir leat dul go íoslódáil saor in aisce na bogearraí gan aon teorannú i 30 lá.


Earraí gaolmhara:


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíochtaí Office / Excel 2007-2019 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d’fhiontar nó d’eagraíocht. Gnéithe iomlána triail saor in aisce 30 lá. Ráthaíocht ar ais airgid 60 lá.
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á!
bun officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ryan · 1 years ago
    This was very helpful! Is there a way to print multiple pages? For example, if cell A1 = 5, print pages 1-5.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Ryan,
      If you want to print consecutive pages such as 1-5 in a worksheet based on a cell value, please specify a cell such as A1 as Text formatting, type 1-5 into it, keep this cell selecting, and then run the below VBA code.

      Sub Print_Pages()
      Dim xPage As String
      Dim xYesorNo As Integer
      Dim xI As String
      Dim xPArr() As String
      Dim xIS, xIE, xF, xNum As Integer
      xPage = ActiveCell.Value
      xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
      If xYesorNo = vbYes Then
      xPArr() = Split(xPage, "-")
      If UBound(xPArr) = 0 Then
      If IsEmpty(xPage) And IsNumeric(xPage) Then
      MsgBox "Please specify a cell and enter a page in cell"
      Exit Sub
      End If
      xNum = Int(xPage)
      ActiveSheet.PrintOut from:=xNum, To:=xNum, preview:=True
      ElseIf UBound(xPArr) = 1 Then
      On Error GoTo Err01
      xIS = Int(xPArr(0))
      xIE = Int(xPArr(1))
      If xIS < xIE Then
      For xF = xIS To xIE
      ActiveSheet.PrintOut from:=xF, To:=xF, preview:=True
      Next
      Else
      For xF = xIE To xIS
      ActiveSheet.PrintOut from:=xF, To:=xF, preview:=True
      Next
      End If
      Else
      MsgBox "Please enter the valid data", vbOKOnly, "Kutools for Excel"
      Exit Sub
      End If
      Else
      Exit Sub
      End If
      Exit Sub
      Err01:
      MsgBox "Please enter the correct page scope", vbOKOnly, "Kutools for Excel"
      End Sub
      • To post as a guest, your comment is unpublished.
        Manny · 6 months ago
        Thank you. I have the same issue I want to print pages based on cell value. Lets say variable changes i.e page 1-5 and then some time 2-6. So I have a field which will calculate and will put that in text format as suggested.But for some reason it doesnt work for me. It doesnt prints any pages.
        Can you please advise