Boa tarde!!

Descrava o erro, mostre uma foto quando o ocorrer o erro etc!!

Seu arquivo tem 18 módulos e 6 Userforms, favor ser mais especifico, pois nós não conhecemos o arquivo da mesma forma que você!

Att

Alexandre,

Eu e minhas patadas, desculpe. O erro é: "Erro em tempo de execução ‘1004’ O documento não foi salvo. Talvez esteja aberto ou pode ter ocorrido um erro durante a gravação".

Quero crer que a rotina em questão seja Criar_Copia (Ctrl+G).
Fica dificil querer repetir o erro reportado sem saber qual(is) os passos efetuados antes/durante as impressões/copias.
Contudo algo que chama atenção: se porventura ao acionar a macro, a planilha ativa não for o formulário de impressão, ao buscar o nome do arquivo em C2 quase certamente gerará erro .
Experimente incluir a linha --> Sheets("Solicitação").Activate antes da definição Nome=....

Caro Reinaldo,

Agradecido pela tentativa, mas continua dando o mesmo erro....Tenho a impressão que é algum erro no nome do arquivo na célula "SolicitaçãoC2".

Pela composição/concatenação constante em C2, não deveria ocasionar erro no nome do arquivo.
Essa mensagem pode ocorrer, quando ao tentar salvar/gravar o arquivo no caminho especificado, o mesmo não for encontrado.
Altere sua rotina conforme abaixo, para verificar se o caminho está OK

Sub Criar_Copia()
Dim Nome As String, sMes As String, sPath As String
Dim FSO As Object

Sheets("Solicitação").Activate

Nome = [C2].Value & ".pdf"
sMes = [f1].Value
sPath = "c:Meus DocumentosELETROBRASOPERAÇÃODESLIGAMENTOS PROGRAMADOS2018" & sMes

Set FSO = CreateObject("scripting.filesystemobject")
'Verifica se o caminho especificado tem a barra nofinal,se tiver retira, para correta verificação
If Right(sPath, 1) = "" Then
    sPath = Left(sPath, Len(sPath) - 1)
End If
'Verifica se o caminho e encontrado/existe
If FSO.FolderExists(Caminho) = False Then
    MsgBox sPath & " Não Encontrado. Verifique"
    Exit Sub
Else
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & "" & Nome, Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Call add_no_geral
'Call LimpaDatasAntigas
Call InsereNomesUAPICOS
End If
End Sub

Reinaldo,

Já verifiquei todo o caminho, observei de tinha espaço e alguma coisa que alterasse o caminho e não encontrei nada. E a mensagem de erro que aparece é essa (ANEXO)

Vejam galera,

Copiei direto da barra de endereço: C:Meus DocumentosELETROBRASOPERAÇÃODESLIGAMENTOS PROGRAMADOS2018JANEIRO. Inexplicável.

Como disse, pode ocorrer o erro quando não encontra o caminho especificado e/ou já exista um arquivo com o mesmo nome e esteja em uso.
Essa mensagem reforça: O caminho, como descrito/informado, não foi encontrado.
Verifique se o caminho e realmente esse
Tenho no computador c:UsersReinaldoMeus Documentos
em outro tenho d:Meus Documentos;pode ser por ai

Reinaldo,

Botei a pasta de desligamento direto na raiz do C: e deu o mesmo erro.

Obs.rint em anexo.

Não cheguei a ver o arquivo, mas na roitna que o Reinaldo indicou, tem de alterar o nome da Variável "Caminho" para "sPath" na linha :

'Verifica se o caminho e encontrado/existe
If FSO.FolderExists(Caminho) = False Then
    MsgBox sPath & " Não Encontrado. Verifique"

ficando :

'Verifica se o caminho e encontrado/existe
If FSO.FolderExists(sPath) = False Then
    MsgBox sPath & " Não Encontrado. Verifique"

[]s

Eureca...... no alvo.......perfeito......Muito obrigado a você Mauro, a Reinaldo, a alexandrevba e a todos desse fórum pelo empenho em me ajudar.

Um grande abraço a todos.

Paulo Cezar.