Saltar al contenido principal

¿Cómo imprimir ciertas páginas u hojas de trabajo según el valor de la celda en Excel?

¿Alguna vez ha intentado imprimir cierta página u hoja de trabajo basada en un valor de celda en Excel? ¿Y cómo lograrlo? Los métodos de este artículo pueden ayudarlo a resolverlo en detalle.

Imprima cierta página basada en el valor de la celda con código VBA
Imprima cierta hoja de trabajo basada en el valor de la celda con código VBA


Imprima cierta página basada en el valor de la celda con código VBA

Por ejemplo, desea que una determinada página, como la página 1 de la hoja de trabajo actual, se imprima automáticamente al ingresar el número de página 1 en la celda A1 de la hoja de trabajo actual. Puede hacer lo siguiente para lograrlo.

1. Seleccione la celda que contiene el número de página en el que desea imprimir, luego presione otro y F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana. Luego haga clic recuadro > Módulo.

2. Entonces el Microsoft Visual Basic para aplicaciones aparece la ventana, copie y pegue el siguiente código VBA en el Código ventana.

Código de VBA: imprima la página según el valor de la celda

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. Prensa F5 clave para ejecutar el código. En el apareciendo Kutools for Excel cuadro de diálogo, haga clic en para imprimir la página determinada, o haga clic en el No para salir del cuadro de diálogo si no desea imprimir. Ver captura de pantalla:

Luego se abre la ventana de vista previa de la página determinada de la hoja de trabajo actual, haga clic en el Imprimir para comenzar a imprimir.


Imprima cierta página basada en el valor de la celda con código VBA

Supongamos que desea imprimir la hoja de trabajo activa cuando el valor en la celda B2 de esta hoja es igual al número 1001. Puede lograrlo con el siguiente código VBA. Haz lo siguiente.

1. Haga clic derecho en el Ficha Hoja que desea imprimir según el valor de la celda y luego haga clic en Ver código desde el menú contextual.

2. Entonces el Microsoft Visual Basic para aplicaciones aparece la ventana emergente, copie y pegue el siguiente código VBA en la ventana Código.

Código de VBA: imprima la hoja de trabajo según el valor de la celda

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

Note: Puede cambiar la celda y el valor de la celda en el código según lo necesite.

3. Prensa otro + Q para cerrar el Microsoft Visual Basic para aplicaciones ventana.

Al ingresar el número 1001 en la celda B2, un Kutools for Excel aparece el cuadro de diálogo, haga clic en el para comenzar a imprimir. O haga clic en el No para salir del cuadro de diálogo directamente sin imprimir. Ver captura de pantalla:

Consejo: Si desea imprimir directamente páginas no consecutivas como la página 1, 6 y 9 en la hoja de trabajo actual, o imprimir solo todas las páginas pares o impares, puede probar el Imprimir páginas especificadas utilidad pf Kutools for Excel como se muestra a continuación. Puedes ir a Descarga gratis el software sin limitación en 30 días..


Artículos relacionados:

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This was very helpful! Is there a way to print multiple pages? For example, if cell A1 = 5, print pages 1-5.
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Did you ever figure out how to get this working?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations