Impressão por Seleção de Multipage
Enviado: 22 Dez 2023 às 11:11
Bom dia,
Sou leigo em VBA, mas me esforço muito para automatizar minhas planilhas.
Estou querendo fazer um código de impressão com base na seleção da Multipage, sendo:
• Possuo uma multipage com 2 abas, uma Advertência e outra Suspensão;
• Cada aba alimenta uma planilha com os respectivos nomes Planilha3 "Advertência" e Planilha4 "Suspensão";
• Estando na aba Suspensão da multipage, por exemplo, e clicando no botão Imprimir, a planilha Suspensão deve ser impressa, em 2 vias. O mesmo deve acontecer se a aba Advertência estiver selecionada.
Quero fazer uma opção para salvar PDF, mas creio que resolvendo este da impressão eu consiga adaptar para salvar em PDF.
Como não achei nada a respeito, e as opções de pesquisa aqui no trabalho são limitadas, tentei fazer um código, mas não deu certo:
Sou leigo em VBA, mas me esforço muito para automatizar minhas planilhas.
Estou querendo fazer um código de impressão com base na seleção da Multipage, sendo:
• Possuo uma multipage com 2 abas, uma Advertência e outra Suspensão;
• Cada aba alimenta uma planilha com os respectivos nomes Planilha3 "Advertência" e Planilha4 "Suspensão";
• Estando na aba Suspensão da multipage, por exemplo, e clicando no botão Imprimir, a planilha Suspensão deve ser impressa, em 2 vias. O mesmo deve acontecer se a aba Advertência estiver selecionada.
Quero fazer uma opção para salvar PDF, mas creio que resolvendo este da impressão eu consiga adaptar para salvar em PDF.
Como não achei nada a respeito, e as opções de pesquisa aqui no trabalho são limitadas, tentei fazer um código, mas não deu certo:
Código: Selecionar todos
Private Sub btnImprimir_Click()
If MultiPage1.Value = ("Page1") Then
Worksheets.Select("Planilha3").PrintOut From:=1, To:=1, Copies:=2
Else
Worksheets.Select("Planilha4").PrintOut From:=1, To:=1, Copies:=2
End If
End Sub