save as and print options macro

Ok I am having 2 problems.

1.The first is I would like to save a file by the filename in 2 seperate folders. one is on a local drive and the other is on a network drive. It needs to happen after data is entered in each cell. The filename changes each month. Instead of adding the macro to each month file i have them in a common .xls file. I can curently do this in one folder but i then have to move it every so often to the other location. here is the macro I am using now.

Sub StopAllEvents()
    Application.EnableEvents = False
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
    ThisWorkbook.Save
Application.EnableEvents = True
End Sub

2.When printing the worksheet I have it set to print only the pages that have data listed. However I need the first row (frozen) to print on each sheet. so I get a few pages of data and alot of pages of row one only. Is there a macro that can fix this?

Thanks in advanced for your help

Hello ramblin racer.

Welcome to the Forum! As a member, you now have full access to the knowledge and posting tools that make this site unique.

In order to provide you with prompt replies to your questions, there are a few rules we ask that you observe. Please remember to follow these rules when you post as a courtesy to your fellow members, and to those who are volunteering their time, and knowledge.

Readability is key in getting a fast response to your question. You have many tools available to assist you in formatting your post. Any code you post, whether a worksheet formula or VBA code should be wrapped. You can find a list of other HTML format options in the forum rules.

How to Wrap your Code
On the Message window Toolbar you will see the # icon. Select the text you want to appear in a Code Window, and Click the # icon. This will wrap the code for you. You can also do this manually by placing the tag [code] at the beginning of the first the line, and the tag [/code] at the end of the last line.

You can read the Forum rules by clicking on the link below.
Forum Rules
If you have any questions, contact me by clicking on my name Leith Ross

Sincerely,
Leith Ross

Thanks Leith, My appologies.

Hello ramblin racer,

No need to apologize, you are new to the forum. Hope the instructions were clear and easy to follow. If not, let me know.

Thanks,
Leith

So any ideas on how to do this?