Página 1 de 1

Impressão por Checkbox

Enviado: 27 Fev 2020 às 17:36
por eloirfabio
Olá.
Estou criando um controle de impressão por checkbox, onde cada caixa selecionada imprimirá uma planilha específica (no arquivo de exemplo tem duas). Como sou um aventureiro no VBA, não estou conseguindo fazer funcionar para múltiplas seleções. Por exemplo, se estiver com a CheckBox1 e CheckBox2 ativada, é pra imprimir as 2 planilhas correspondentes. Se estiverem todas selecionadas, é pra imprimir todas.
Desde já agradeço.

Re: Impressão por Checkbox

Enviado: 27 Fev 2020 às 20:18
por osvaldomp
Segue uma ideia. Nomeie as planilhas em conformidade com a numeração das CheckBox.
Código: Selecionar todos
Private Sub OptPrint_Click()
 Dim i As Long
  For i = 1 To 10
   If Me.Controls("CheckBox" & i) Then
    Sheets("EX0" & i).PrintOut
   End If
 Next i
End Sub

Re: Impressão por Checkbox

Enviado: 28 Fev 2020 às 08:25
por eloirfabio
osvaldomp escreveu:Segue uma ideia. Nomeie as planilhas em conformidade com a numeração das CheckBox.
Código: Selecionar todos
Private Sub OptPrint_Click()
 Dim i As Long
  For i = 1 To 10
   If Me.Controls("CheckBox" & i) Then
    Sheets("EX0" & i).PrintOut
   End If
 Next i
End Sub
Muito obrigado. Caiu como uma luva.
Vlw!!!