To print the entire workbook, try adding this to Don's suggestion.
ActiveWorkbook.PrintOut Copies:=1


"jatman" wrote:

i have the following code:

Public Sub SaveAsA1()
ThisFile = Range("A1").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

i understand the above code, but what i need it to do is in this order is:

save (like above into a target folder such as C:\Documents and Settings\All
Users\Documents\Folder Name\Filename ...

after the save, it prints out a copy of the file.

thank you,

jatman