Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com imprimir ràpidament la pàgina actual a Excel?

Si teniu un llibre conté algunes fulls de treball, i cada full de treball té diverses pàgines, ara voleu imprimir només una pàgina que conté cel·la activa. Normalment, heu d'identificar la pàgina del llibre i introduir el número dues vegades com a "pàgines # a #" amb l'ordre Print com a captura de pantalla següent:

doc-print-current-page1

Amb aquest mètode, heu d'identificar la pàgina que voleu imprimir i introduir la pàgina dues vegades, sembla una pèrdua ridícula de temps. Avui us presentaré algunes maneres ràpides de resoldre aquest problema.

Imprimeix la pàgina actual amb cel·la activa amb codi VBA

Imprima la pàgina actual amb una cel·la activa amb Kutools per a Excel en un sol clic


fletxa blau dreta bombolla Imprimeix la pàgina actual amb cel·la activa amb codi VBA


El següent codi VBA us pot ajudar a imprimir ràpidament la pàgina actual amb la cel·la activa, podeu fer-ho com a tal:

1. Activeu una cel·la que voleu imprimir la pàgina.

2. A continuació, manteniu premuda la tecla ALT + F11 tecles i obre el Microsoft Visual Basic per a aplicacions finestra.

3. Clic Insereix > Mòduls, i enganxeu el següent codi a la finestra del mòdul.

Public Sub Print_Page_of_ActiveCell () Dim ActiveRow As Long, ActiveCol As Integer Dim iHPBs As Integer, iVPBs As Integer Dim iRow As Integer, iCol As Integer, iPage As Integer ActiveRow = ActiveCell.Row ActiveCol = ActiveCell.Column ActiveSheet.UsedRange If IsEmpty (ActiveCell .SpecialCells (xlCellTypeLastCell)) Llavors _ ActiveCell.SpecialCells (xlCellTypeLastCell). FormulaR1C1 = "" Si ActiveRow> ActiveCell.SpecialCells (xlCellTypeLastCell) .Row Or _ ActiveCol> ActiveCell.SpecialCells (xlCellTypeLastCell) .Column Then _ Exit Sub With ActiveSheet iHPBs = . HPageBreaks.Count iVPBs = .VPageBreaks.Count Si iHPBs = 0 i iVPBs = 0, llavors GoTo PrintSheet horitzontal: per iRow = iHPBs al pas 1 -1 si. HPageBreaks (iRow). Location.Row <= ActiveRow Llavors GoTo Vertical Next iRow Vertical: per iCol = iVPBs a 1 Pas -1 Si .VPageBreaks (iCol). Location.Column <= ActiveCol Llavors GoTo PrintSheet Next iCol PrintSheet: iPage = (iRow + 1) + (iCol * (iHPBs + 1)) .PrintOut De: = iPa ge, To: = iPage MsgBox "Print page" i iPage End With If ActiveCell.SpecialCells (xlCellTypeLastCell). FormulaR1C1 = "" Then _ Selection.SpecialCells (xlCellTypeLastCell) .ClearContents End Sub

4. A continuació, premeu la tecla F5 clau per executar aquest codi, i un quadre de comandament us recordarà la pàgina que imprimiu.

doc-print-current-page2

5. A continuació, feu clic a OK, i s'ha imprès la pàgina actual amb cel·la activa.


fletxa blau dreta bombolla Imprima la pàgina actual amb una cel·la activa amb Kutools per a Excel en un sol clic

Potser el codi anterior és una mica difícil per a la majoria de nosaltres, aquí us portaré una eina fàcil i pràctica: Kutools for Excel. Amb la utilitat Print Current Page, podeu imprimir la pàgina activa amb un sol clic.

Kutools for Excel Inclou més eines 300 pràctiques d'Excel. Lliure de provar sense límit en 30 dies. Agafa-ho ara.

Després d'instal·lar Kutools for Excel, feu els passos següents:

1. Feu clic a una cel·la que voleu imprimir la pàgina.

2. Clic empresa > Imprimeix la pàgina actual, veure captura de pantalla:

doc-print-current-page3

3. I una caixa ràpida us recordarà la pàgina que imprimiu.

doc-print-current-page4

4. A continuació, feu clic a OK, s'imprimirà la pàgina de la cel·la activa.

feu clic Imprimeix la pàgina actual per saber més sobre aquesta funció.


Articles relacionats:

Com imprimir llibres múltiples a Excel?

Com imprimir intervals en Excel?



Eines de productivitat recomanades

Pestanya d'Office

estrella d&#39;or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d&#39;or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d&#39;or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Townman · 3 years ago
    The VBA Code example does to take account of the [b]Pagesetup.order[/b] property. [b]xlDownThenOver[/b] and [b]xlOverThenDown[/b] change the page number sequence.

    Consider a spread sufficiently wide and deep to cover two pages in both directions. With [b]xlDownThenOver[/b] page 2 is first 'column' second 'row', with [b]xlOverThenDown[/b] page 2 is second 'column' first 'row'.

    PrintSheet:
    iPage = (iRow + 1) + (iCol * (iHPBs + 1))

    Need to read...

    PrintSheet:
    if .Pagesetup.order = xlDownThen over then
    iPage = (iRow + 1) + (iCol * (iHPBs + 1))
    else
    iPage = (iCol + 1) + (iRow * (iVPBs + 1))
    End if