Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Salvar em xlsm e pdf na pasta ativa

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
pessoapersonal
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Ter Fev 26, 2019 8:50 pm

Salvar em xlsm e pdf na pasta ativa

Mensagem por pessoapersonal »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder