Guru do Excel e Power BI

Sub imprimir()
On Error GoTo erro_imprime
Dim numeroCópias As Long
If Not VBA.IsNumeric(Plan1.Range("e4")) Or Plan1.Range("e4") < 1 Then
MsgBox "Informe a quantidade de impressões"
Exit Sub


End If

numeroCópias = Plan1.Range("e4").Value

Plan1.PrintOut copies:=numeroCópias
Plan2.PrintOut copies:=1
Exit Sub

erro_imprime:

MsgBox "Um erro ocorreu, verifique"

End Sub

Sub imprimir()
On Error GoTo erro_imprime
Dim numeroCópias As Long
Dim arq() As Variant
Dim wbprincipal As Workbook, wbaberto As Workbook
Dim contaErros As Long
Dim nomeArquivo As String
Set wbprincipal = ThisWorkbook
contaErros = 0
'linha abaixo pede para navegar até a pasta e selecionar os arquivos para impressão
arq = Application.GetOpenFilename("Arquivos do Excel (*.xls*),*.xls*", Title:="Selecione os arquivos", MultiSelect:=True)

Application.ScreenUpdating = False

'inicio do loop pelos arquivos apontados....

For A = LBound(arq()) To UBound(arq())

nomeArquivo = arq(A)

Application.Workbooks.Open nomeArquivo

Set wbaberto = ActiveWorkbook

'abaixo: se a célula "E4" do arquivo contiver um número, então manda para impressão
If VBA.IsNumeric(wbaberto.Worksheets(1).Range("e4").Value) And wbaberto.Worksheets(1).Range("e4").Value > 0 Then

numeroCópias = wbaberto.Worksheets(1).Range("e4").Value

wbaberto.Worksheets(1).PrintOut copies:=numeroCópias
wbaberto.Worksheets(2).PrintOut copies:=1

'se a célula não contiver um número, o nome do arquivo será printado na janela de verificação imediata (Control + G) para vc avaliar
Else

Debug.Print nomeArquivo
contaErros = contaErros + 1


End If

Application.DisplayAlerts = False
wbaberto.Close savechanges:=False
Application.DisplayAlerts = True

Next A


Application.ScreenUpdating = True

wbprincipal.Activate


If contaErros = 0 Then


MsgBox "Processo concluido, Todos os arquivos foram impressos"


Else

MsgBox "Processo concluido" & VBA.Chr(13) & "Porém, alguns arquivos apresentaram problemas" & VBA.Chr(13) & "Verifique a janela de Verificação,Teclando Control + g"


End If



Exit Sub

erro_imprime:
Application.ScreenUpdating = True
MsgBox "Um erro ocorreu, verifique"

End Sub