Este fórum está sendo desativado

[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.

[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

[eloirfabio]

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!!!