Saving as Pdf In a specified folder

[Ernest Ansah]

Hello .. please kindly help me with a macro that can save a sheet as pdf using a cell range and the date below are the codes
saveLocation = "C:\Users\Public\Documents" \ "BS-2TERM 1 " & Range("b5") & Format(DateTime.Now, "-yyyy-MM-dd hh-mm-ss") & ".pdf"

 

[HaHoBe]

Hi Ernest Ansah,

maybe try

  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                  Filename:="C:\Users\Public\Documents" \ "BS-2TERM 1 " & Range("b5") & Format(Now, "-yyyy-MM-dd hh-mm-ss") & ".pdf", _
                                  Quality:=xlQualityStandard, _
                                  IncludeDocProperties:=True, _
                                  IgnorePrintAreas:=False, _
                                  OpenAfterPublish:=False

Ciao,
Holger

 

[Ernest Ansah]

This is the code but there are still errors


Private Sub cbSaveAsPDF()
Dim sPath As String
Dim sFile As Variant
Dim ws As Worksheet
Dim Filename As String
On Error GoTo ErrHandle

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Users\Public\Documents" \ "BS-2TERM 1 " & Range("b5") & Format(Now, "-yyyy-MM-dd hh-mm-ss") & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False



ErrHandle:
MsgBox ("Document Not Saved")


End Sub

 

[HaHoBe]

Hi Ernest Ansah,

one I did not realize when pasting in the code for the path and one for not leaving the sub before the error handling:

Private Sub cbSaveAsPDF()

On Error GoTo ErrHandle

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\Public\Documents\BS-2TERM 1 " & Range("b5") & Format(Now, "-yyyy-MM-dd hh-mm-ss") & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

'leaving here when no error had occurred
Exit Sub

'only in case an error was raised
ErrHandle:
MsgBox ("Document Not Saved")

End Sub

Ciao,
Holger

 

[Ernest Ansah]

Hi Ernest Ansah,

one I did not realize when pasting in the code for the path and one for not leaving the sub before the error handling:

Private Sub cbSaveAsPDF()

On Error GoTo ErrHandle

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\Public\Documents\BS-2TERM 1 " & Range("b5") & Format(Now, "-yyyy-MM-dd hh-mm-ss") & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

'leaving here when no error had occurred
Exit Sub

'only in case an error was raised
ErrHandle:
MsgBox ("Document Not Saved")

End Sub

Ciao,
Holger

Its working Perfectly .. thanks a lot Senior.