Save as A PDF

[Rebecca Kowalski]

Hi all,

Not sure why the below part of my macro isn't working. It should save the Active Sheet (Tab2) as a PDF document. To the file location notes and call it whatever is in the cells D5,E5,H5 (in Tab1) and then the date.....



ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="W:\BlahBlahBlah" & Range("D5")("E5")("H5").Value & Format(Date, "mmdd")

 

[MandeepBaluja]

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=W:\BlahBlahBlah" &[d5]&[E5]&[H5]&format(Date,"mmdd"), _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

 

[Fishboy]

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=W:\BlahBlahBlah" &[d5]&[E5]&[H5]&format(Date,"mmdd"), _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Almost....

Try this:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="W:\BlahBlahBlah\" &[d5]&[E5]&[H5]&" " & format(Date,"mmdd") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

 

[Rebecca Kowalski]

Sadly for some reason that didn't work

I just copy and pasted your macro into my esisting macro and added the file save location, did I miss a step?

 

[Rebecca Kowalski]

Almost....

Try this:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="W:\BlahBlahBlah\" &[d5]&[E5]&[H5]&" " & format(Date,"mmdd") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Sorry it did work but for some reason it saved my document at "0218" no idea where that came from?

 

[Fishboy]

Sorry it did work but for some reason it saved my document at "0218" no idea where that came from?

Hmm, I only amended the code suggested by Mandeep, so I suspect there were actually bits missing. You get the date part as 0218 as that is the date in format mmdd as you have requested. If there was no other data in the filename is would suggest that D5, E5 and H5 were blank.

For a tested and (as far as I can tell) working version try this:

Sub ExportSheetAsPDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "W:\BlahBlahBlah\" & [d5] & [E5] & [H5] & " " & Format(Date, "mmdd") & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
End Sub