Two copies being saved and unwanted save as box

Hi,

I have created the following VBA code to save an excel report into PDF based on a cell name (customer number) and date.

The problems I have :-

1. I don't want to see the save as box when generating the PDF
2. It also saves the excel file as the name generated from the cell name and date (not required as I want to leave it as it's original name)
3. I need to save the document in the following directory (S:\Customer Level\Customer Report)

Sub saveasPDF()

Dim fName As String
fName = Range("e6").Value

ActiveWorkbook.SaveAs Filename:=(fName) & Format(Date, "ddmmmyyyy")
ActiveSheet.PrintOut copies:=1, ActivePrinter:="Adobe PDF"

End Sub

Hopefully someone will be able to point me in the right direction.