Como imprimir planilhas específicas com base em valores de células no Excel?

Você já tentou imprimir planilhas específicas com base no valor de uma célula? Neste artigo, vou fornecer alguns exemplos para abordar esse problema. Se você estiver interessado, continue lendo.

Imprimir planilha com base em uma célula com VBA

Imprimir planilha com base em célula adjacente com VBA

Imprimir planilha com base em uma célula com VBA

Suponha que existam duas planilhas e você deseja imprimir a Planilha1 ou a Planilha2 ou ambas as planilhas com base na Célula A1 na Planilha1. Por favor, faça o seguinte:

Nesse caso, digitar 1 indica imprimir a primeira planilha, digitar 2 imprime a segunda planilha e 3 imprime ambas as planilhas.

1. Digite 1, 2 ou 3 conforme necessário na célula A1 da primeira planilha e pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique Inserir > Módulo, e cole o código abaixo no Módulo script. Veja a captura de tela:

VBA: Imprimir planilha com base no valor da célula

Sub PrintStuff()
'UpdayebyExtendoffice20180811
    Dim xRgVal As Variant
    Dim xSheets As Sheets
    Set xSheets = ActiveWorkbook.Worksheets
    xRgVal = xSheets(1).Range("A1").Value
    If (IsNumeric(xRgVal)) And (Len(xRgVal) = 1) Then
        Select Case xRgVal
            Case 1
                xSheets(1).PrintOut
            Case 2
                xSheets(2).PrintOut
            Case 3
                xSheets(1).PrintOut
                xSheets(2).PrintOut
            Case Else
                MsgBox "Enter1, 2 or 3 into A1 (1 print Sheet1 2 print Sheet2 3 print Sheet1 and Sheet2 ", , "KuTools For Excel"
                Exit Sub
            End Select
    Else
        Exit Sub
    End If
End Sub

3. Pressione a tecla F5 para imprimir diretamente a(s) planilha(s).

Imprimir planilha com base em célula adjacente com VBA

Se você tiver várias planilhas em uma pasta de trabalho e quiser imprimir uma ou várias planilhas com base nos valores das células dessa pasta de trabalho, você pode fazer o seguinte:

1. Crie uma nova planilha chamada Planilha de Controle na pasta de trabalho que você está usando e liste todos os nomes das planilhas na coluna A (inclua ou exclua a planilha de controle conforme necessário). Veja a captura de tela:

2. Digite “imprimir” na célula adjacente ao nome da planilha se você deseja imprimi-la. Veja a captura de tela mostrada.

3. Pressione Alt + F11 para habilitar a janela Microsoft Visual Basic for Applications e clique Inserir > Módulo. Veja a captura de tela:

4. Cole o código abaixo no Módulo e pressione a tecla F5 para executar o código.

VBA: Imprimir com base em célula adjacente

Sub CreateControlSheet()
'UpdatebyExtendoffice20170811
    Dim i As Integer
    Dim xCSheetRow As Integer
    Dim xSName As String
    Dim xCSheet As Variant
    Dim xRgVal As String
    On Error Resume Next
    xSName = "Control Sheet"
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set xCSheet = ActiveWorkbook.Worksheets(xSName)
    xCSheetRow = xCSheet.Range("B65536").End(xlUp).Row
    For i = 2 To xCSheetRow
        xRgVal = xCSheet.Range("B" & i).Value
        If xRgVal = "Print" Or xRgVal = "print" Then
            If xCSheet.Range("A" & i).Value <> "" Then
                ActiveWorkbook.Worksheets(xCSheet.Range("A" & i).Value).PrintOut
            End If
        End If
    Next
    xCSheet.Delete
    ActiveWorkbook.Worksheets.Add
    ActiveSheet.Name = "Control Sheet"
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Sheet Name"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Print?"
    For i = 1 To ActiveWorkbook.Worksheets.Count
        Range("A" & i + 1).Value = ActiveWorkbook.Worksheets(i).Name
    Next
    Cells.Columns.AutoFit
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

Após executar o código, a(s) planilha(s) será(ão) impressa(s) imediatamente e, ao mesmo tempo, uma nova Planilha de Controle substituirá a antiga.

Dica: Se você tiver o Kutools para Excel, com sua utilidade Criar Tabela de Vínculo, poderá criar rapidamente uma lista de todos os nomes das planilhas em uma nova planilha com um link clicável.