Как печатать определенные страницы или лист на основе значения ячейки в Excel?

Возникала ли у вас необходимость печатать определенные страницы или листы в Excel на основе значения ячейки? Будь то печать конкретного номера страницы или целого листа при выполнении условия, это руководство предоставляет пошаговые методы для достижения этой цели.

Печать определенной страницы на основе значения ячейки с помощью кода VBA
Печать определенного листа на основе значения ячейки с помощью кода VBA

Печать определенной страницы на основе значения ячейки с помощью кода VBA

Например, вы хотите, чтобы определенная страница, например страница 1 текущего листа, автоматически печаталась при вводе номера страницы 1 в ячейку A1 текущего листа. Вы можете сделать следующее, чтобы этого добиться.

1. Выберите ячейку, содержащую номер страницы, который вы хотите напечатать, затем нажмите клавиши Alt и F11 одновременно, чтобы открыть окно Microsoft Visual Basic for Applications. Затем нажмите Вставить > Модуль.

2. Затем появится окно Microsoft Visual Basic for Applications, пожалуйста, скопируйте и вставьте следующий код VBA в окно Кода.

Код VBA: Печать страницы на основе значения ячейки

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. Нажмите клавишу F5, чтобы запустить код. В появившемся диалоговом окне Kutools for Excel нажмите кнопку Да, чтобы напечатать определенную страницу, или кнопку Нет, чтобы закрыть диалоговое окно, если вы не хотите печатать. См. скриншот:

Затем открывается окно предварительного просмотра определенной страницы текущего листа, пожалуйста, нажмите кнопку Печать, чтобы начать печать.

Печать определенной страницы на основе значения ячейки с помощью кода VBA

Предположим, вы хотите напечатать активный лист, когда значение в ячейке B2 этого листа равно числу 1001. Вы можете достичь этого с помощью следующего кода VBA. Пожалуйста, сделайте следующее.

1. Щелкните правой кнопкой мыши вкладку Листа, который вы хотите напечатать на основе значения ячейки, а затем выберите Просмотр кода из контекстного меню.

2. Затем появится окно Microsoft Visual Basic for Applications, пожалуйста, скопируйте и вставьте следующий код VBA в окно Кода.

Код VBA: Печать листа на основе значения ячейки

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

Примечание: Вы можете изменить ячейку и значение ячейки в коде по своему усмотрению.

3. Нажмите Alt + Q, чтобы закрыть окно Microsoft Visual Basic for Applications.

При вводе числа 1001 в ячейку B2 появляется диалоговое окно Kutools for Excel, пожалуйста, нажмите кнопку Да, чтобы начать печать. Или нажмите кнопку Нет, чтобы закрыть диалоговое окно без печати. См. скриншот:

Совет: Если вы хотите напрямую печатать не последовательные страницы, такие как страницы 1, 6 и 9 в текущем листе, или печатать только все четные или нечетные страницы, вы можете попробовать функцию Печать указанных страниц из Kutools for Excel, как показано на скриншоте ниже.

Связанные статьи:

• Как создать динамическую область печати в Excel?
• Как печатать только последнюю страницу листа в Excel?