Сохранение документа при печати

[vovk]

Здравствуйте не могли бы помочь..
проблемма в следующем нужно чтоб при отправке на печать документа файл сохранялся в другой папке

Это в ThisDocument

		Dim X As New EventClassModule 
 
Private Sub Document_New() 
   Set X.App = Word.Application 
End Sub 
 
Private Sub Document_Open() 
   Set X.App = Word.Application 
End Sub

потом создал новый модуль класса с именем EventClassModule и в нём

		Public WithEvents App As Word.Application 
____________________________________________________ 
Private Sub app_documentbeforeprint(ByVal Doc As Document, Cancel As Boolean) 
 Dim ntime, fpath, dr, fl As String 
   ' ActiveDocument.path + "\" + ActiveDocument.Name 
   fpaths = "C:\print" + "\" + CStr(Date) 
   If (Len("C:\print" + "\" + CStr(Date)) = 0 Or Err = 76) Then 
   MkDir ("C:\print" + "\" + CStr(Date)) 
   End If 
    Selection.TypeText Text:=CStr(Date) 
    fl = ActiveDocument.Name 
    dr = ActiveDocument.path 
    ntime = Replace(CStr(Time), ":", "-") 
    ChangeFileOpenDirectory "C:\print" + "\" + CStr(Date) + "\" 
    ActiveDocument.SaveAs FileName:=ntime + ".doc" 
  
 ChangeFileOpenDirectory dr 
 ActiveDocument.SaveAs FileName:=fl 
    
End Sub

Вот собссно. Проблемма в том что не создаётся папка с текущей датой в имени, и событие beforeprint обрабатывается при предварительном просмотре, ctrl+p и ессно файл>печать..... А нужно только когда документ уже отправлен на принтер, тоесть перед самой печатью.
Может ктонибудь знает как это решить?

В идеале надо сохранять не весь документ а только то что распечатывается.

[madmot]

Естественно папка не будет создаваться,

If (Len("C:\print" + "\" + CStr(Date)) = 0 Or Err = 76) Then

ты проверяешь длину строки, а "C:\print" + "\" уже больше 0

вообще-то для работы с файлами и папками в VBA надо объявлять и использовать API функции, вот примерчик "Просмотр содержимого папки", он заполняет табличку Excel содержимым папки, я думаю разберешься...

по второму вопросу подумаю, возможно надо просто перехватывать поток идущий на принтер и сохранять в файл, если постановка задачи стоит таким образом, то лучше реализовать это без использования VBA, например написать сервис на С или Delphi

[vovk]

Сообщение от madmot

Естественно папка не будет создаваться,

ты проверяешь длину строки, а "C:\print" + "\" уже больше 0

эт да с этим разобрался сказывается обсолютное незнание VBA ^)

If Dir(myPath, vbDirectory)

Сообщение от madmot

по второму вопросу подумаю, возможно надо просто перехватывать поток идущий на принтер и сохранять в файл, если постановка задачи стоит таким образом, то лучше реализовать это без использования VBA, например написать сервис на С или Delphi

С этим тоже согласен, с VBA связался только потому что печать будет только с ворд эксель, надеялся найти быстрое решение. На написание чегонить стоящего пока просто нет времени занимаюсь другим проектом. Учился только по книгам, в общем самоучка. Знания соответственно рваные, поэтому для меня написание чего либо сложнее калькулятора уже долгий процесс