Printing and saving file.
 

Hi,

Can someone help me. I have used the article on "GetSaveAsFilename -
Save as .prn - file not writing" and written the following code:

varFileName = Application.GetSaveAsFilename("Statement For SRN-" &
Master.SRN & "#Date-" & Format(Date, "yyyymmdd") & ".prn", _
"Space Delimited Text (*.prn), *.prn")

If varFileName = False Then
MsgBox "Problems getting filename for saving the statement"
Exit Sub
End If

ActiveWindow.SelectedSheets.PrintOut To:=intPageTo
ActiveWorkbook.SaveAs FileName:=varFileName
ActiveWindow.Close False


Everything is fine. The only problem is that this process sshould be
repeated for about 500 employees. So if the above code is used then
the user has to save the file 500 times. Is there any way this process
can be automated. What I want is that the statement sheet should be
printed as well as save as a space delimited text that is *.prn.

Thanks in advance