Como imprimir páginas pares ou ímpares apenas no Excel?
Imprima páginas pares ou ímpares apenas com código de macro
Imprima páginas ímpares, pares ou específicas como desejar com o Kutools para Excel
Imprima páginas pares ou ímpares apenas com código de macro
1. Ative a folha que deseja imprimir suas páginas pares ou ímpares e pressione Alt + F11 chaves para abrir o Microsoft Visual Basic para aplicativosjanela s.
2. Clique inserção > móduloe, e cole o código abaixo no script do módulo. Veja a imagem:
VBA: imprimir apenas páginas ímpares ou pares
Sub Odd_Even_Print()
'UpdatebyExtendoffice20160901
Dim xTotalPages As Long
Dim xStartPage As String
Dim xPage As Integer, xYesorNo
Application.ScreenUpdating = False
xStartPage = InputBox("Enter 1 for Odd, 2 for Even", "Kutools for Excel")
If xStartPage = "" Then Exit Sub
xTotalPages = ActiveSheet.PageSetup.Pages.Count
xYesorNo = MsgBox("Are you sure to print?", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
For xPage = Int(xStartPage) To xTotalPages Step 2
ActiveSheet.PrintOut from:=xPage, To:=xPage
Next
Else
Exit Sub
End If
Application.ScreenUpdating = True
End Sub
3. Pressione F5 para executar o código, e uma caixa de diálogo aparecerá para você escolher a impressão de páginas pares ou ímpares, digite 1 para imprimir páginas ímpares, 2 para páginas pares. Veja a imagem:
4. Clique OK, e outra caixa de diálogo será exibida para garantir que você deseja imprimir. Veja a imagem:
5. Clique Sim para continuar imprimindo. E então apenas as páginas ímpares ou pares da folha ativa são impressas.
Imprima páginas ímpares, pares ou específicas como desejar com o Kutools para Excel
Se você tiver o Kutools para Excel, não apenas poderá imprimir páginas pares ou ímpares de uma só vez, mas também poderá imprimir as páginas que precisar o mais rápido possível.
Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. |
Depois de instalação grátis Kutools para Excel, faça o seguinte:
Clique Kutools Plus > Impressão > Imprimir páginas especificadas para habilitar o Imprimir páginas especificadas caixa de diálogo e verifique as opções que você precisa usar para imprimir.
Dica:
1. Se você deseja imprimir o intervalo de páginas personalizadas, como página 1,3,5 e página 9 a 12, você só precisa verificar Intervalo personalizado opção e tipo assim:
2. Você também pode definir as cópias da impressão.
3. Se você deseja imprimir as páginas na ordem inversa, verifique Imprimir na ordem inversa.
Demo
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!