codes, codes, codes...

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

Public Sub SaveAsA1()
mypath = "c:\a\"
ThisFile = Sheets("sheet1").Range("A1").Value
'MsgBox mypath & thisfile & ".xls"
ActiveWorkbook.SaveAs Filename:=mypath & ThisFile
End Sub


--
Don Guillett
SalesAid Software
dguillett1@austin.rr.com
"jatman" <jatman@discussions.microsoft.com> wrote in message
news:1065BECA-A3AE-4FC7-9BD1-A0E6A8C289C8@microsoft.com...
>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
>
>
>

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
>
>
>