Hi

Would it be possible to do something like the following

For i = 1 to NumberOfEmployee
ActiveWorkbook.SaveAs Filename:="C:\TEMP\" & Employee(i) & ".prn", FileFormat:= xlTextPrinter, CreateBackup:=Fals
Nex

This would allow you to loop through your list of employees and do a "SaveAs" in an automated fasion and have the SaveAs save to a .prn file

HTH

-Gene