Boa tarde.
Salve essa sub numa pasta em branco.
ela comandará a impressão conforme vc descreveu que necessita.
Deixei umas instruções para vc se localizar.
Obs: NÃO TESTADA !
Dê retorno.
Código: Selecionar todosSub 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
Espero ter ajudado.
Caso seu problema tenha sido resolvido, por favor marcar o tópico como Resolvido.
Se fui útil, seu like também é muito bem vindo
