File Save As with date

[concreteinterface]

I am using the following code:

Sub AutoFileSaveWithAutoName()

myFile = Range("A1").Value
ActiveWorkbook.SaveAs "\\server\users\john\Desktop\" & myFile

End Sub


After "myFile = Range("A1").Value" I want to put in the current date so it will read "Blah Blah Blah 05-30-11"

I've tried "myFile = Range("A1").Value & (Date)" and "myFile = Range("A1").Value & document.write(Date)" and did not work.

I really don't know what to use. Any solutions?

 

[VoG]

Try

ActiveWorkbook.SaveAs "\\server\users\john\Desktop\" & myFile & " " & Format(Date, "mm-dd-yy") & ".xls"

 

[concreteinterface]

Awesome! Thanks for the education.

 

[concreteinterface]

I thought I had the second part figured out but there's a problem

I'm trying to take the newly named excel file and print one of the sheets out to the default PDF printer. I started with this code:

Sub PrintTo()

Sheets("Quotation").PrintOut

End Sub

The problem is it would name the file the last file I tried to print and not the current one. So I hit the save button and tried again. This worked so I changed the code to:

Sub PrintTo()

ActiveWorkbook.Save
Sheets("Quotation").PrintOut

End Sub

But still it reverts back to the previously printed file name. Is there like a refresh code I can use?

 

[concreteinterface]

After searching and trying many, many codes. I updated the PDF printer driver and the problem is fixed. Thanks