- 28 Fev 2024 às 13:06
#74151
Fiz o uso dessa macro por muito tempo, mas agora ela está gerando erro. Conseguem me informar oq seria?
Sub Imagem2_Clique()
'Criado por Fernando
Dim LocalPDF As String
'Local que será salvo, no caso pasta do arquivo Excel
LocalPDF = "/Users/fernando/OneDrive/Reus Engenharia/" & "Orçamento - " & Sheets("Dados Cliente").Range("D2").Value & " - " & Replace(Date, "/", "-") & " - " & Sheets("Dados Cliente").Range("J4").Value
'Tipo de arquivo que será salvo, .pdf
Sheets("Impressão").ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
LocalPDF & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets("Dados Cliente").Select
MsgBox "PDF Criado com Sucesso"
End Sub
Sub Imagem2_Clique()
'Criado por Fernando
Dim LocalPDF As String
'Local que será salvo, no caso pasta do arquivo Excel
LocalPDF = "/Users/fernando/OneDrive/Reus Engenharia/" & "Orçamento - " & Sheets("Dados Cliente").Range("D2").Value & " - " & Replace(Date, "/", "-") & " - " & Sheets("Dados Cliente").Range("J4").Value
'Tipo de arquivo que será salvo, .pdf
Sheets("Impressão").ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
LocalPDF & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets("Dados Cliente").Select
MsgBox "PDF Criado com Sucesso"
End Sub