{quote}{login=EducatedFool}{date=26.08.2011 08:46}{thema=}{post}А тут не важно, в сетевой папке файл, или на локальном диске.  
 
Простейший макрос вам поможет (код надо поместить в модуль книги):  
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)  
   Me.Save ' сохраняем файл перед печатью  
End Sub{/post}{/quote}  
В случае, если сетевой файл просматривает еще кто-то - возможно ли каким-то образом обойти невозможность сохранения, т.е. сохранить макросом открытый сетевой файл??

{quote}{login=KukLP}{date=26.08.2011 06:08}{thema=}{post}А попробовать?  
Me.Save    
предложенный Игорем, и есть ответ на Ваш вопрос. Других не будет.{/post}{/quote}  
 
Пока и без сети что-то не получается ((. В книге Module1 имеет сл. код:  
Sub Print4()  
   ...  
   Application.Dialogs(xlDialogPrint).Show  
   ...  
 End Sub  
 
Куда же поместить код?