[Εκτύπωση] Εκτύπωση με αποθήκευση?

[kolekas]

Καλησπέρα και πάλι.
Θέλω την βοήθεια σας .έχω βάλει για εκτύπωση αυτό,


ActiveWindow.SelectedSheets.PrintOut Copies:=2
Dim NewFN As Variant
' Copy Invoice to a new workbook
ActiveSheet.Copy
NewFN = "C:\Documents and Settings\bill\B\TIM-" & Range("C11").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close

Πριν κάνει την εκτύπωση να βγάζει μήνυμα με επιλογή ναι η όχι, να εκτυπώνει μόνο το Φύλλο1 και τη πρέπει για να μπορεί στο save να γραφή όχι μόνο από το κελί (c11 ) αλλά και από αλλά κελία?

Ευχαριστώ.