P
Prasad Vanka
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 should be
repeated for about 500 employees. So if the above code is used then
the user has to intervene and 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 and then saved as a space delimited text file (that is *.prn).
Thanks in advance
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 should be
repeated for about 500 employees. So if the above code is used then
the user has to intervene and 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 and then saved as a space delimited text file (that is *.prn).
Thanks in advance