Back

Sub File_Save()
' Written by Barrie Davidson

Dim File_Name
	
   File_Name = "A:\" & Range("A1").Value & ".prn"
   ActiveWorkbook.SaveAs FileName:=File_Name, FileFormat:=xlTextPrinter
   
End Sub

Copyright ^© 2001 by Barrie R. Davidson
Added April 6, 2001