Boa noite pessoal, tenho o código abaixo que funcionava 100%. Agora somente imprimi, mas parou de salvar com valor da célula [c1] nem em xlsm e pdf. Como copiei e colei para algumas planilhas receio ter cometido algum erro. Alguem pode me ajudar?
Public Sub Imprime_tESTE_5()
Dim W As Integer
W = Range("k54").Value
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=W, Copies:=1, Collate:=True
On Error Resume Next
Dim Caminho As String
Caminho = ThisWorkbook.Path & "\"
ActiveWorkbook.SaveAs Filename:=Caminho & [c1].Value & ".xlsm"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Caminho & [c1].Value & ".pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, From:=2, To:=2, OpenAfterPublish:=False
MsgBox ("Resultado de : ") & [c1].Value & " foi salvo." _
, vbInformation, "PROLEAGUE"
ActiveWorkbook.Save
Application.Quit
End Sub
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Salvar em xlsm e pdf na pasta ativa
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Ter Fev 26, 2019 8:50 pm