Несколько документов в Word. Подряд.
Не знаю, как быть: в Word - у меня должны распечататься несколько документов, которые тут же и формируются, без показа на экран, сразу. Почему-то печатается первый документ, и всЁ! :( Формирую их я на базе шаблонов, сделанных в Ворд.
Если ставлю после печати ввывод сообщения(MsgBox), то печатается весь комплект.
(Если делать задачку пошагово, также все печатается! Что за безобразие, и как с ним бороться?)
wda.ActiveDocument.PrintOut 'сразу на печать
wda.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
wda.ActiveDocument.Saved = False
wda.Quit
Если ставлю после печати ввывод сообщения(MsgBox), то печатается весь комплект.
(Если делать задачку пошагово, также все печатается! Что за безобразие, и как с ним бороться?)
wda.ActiveDocument.PrintOut 'сразу на печать
wda.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
wda.ActiveDocument.Saved = False
wda.Quit
Получилось!! Может кому будет также полезно. :)
Все печатается. И достаточно быстро(ттт :))
но без шаблонов нам не как - у нас постоянно что-то в документе добавляется/убираетеся пользователями. ;)
(переменная fl - отслеживает, что выбрали : сразу печать, или поковыряться захотелось :))
On Error Resume Next
Set wda = GetObject(, "Word.Application")
If Err <> 0 Then ' если не открыт...
Err = 0
Set wda = CreateObject("Word.Application")
End If
For x = 0 To 4 'кол-во документов. у меня это значение на самом деле, меняется, в зависимости от того, сколько пользователи навыбирали.
'место где лежит шаблон документа
way = "…"
wda.Documents.Add (way)
‘***
‘ здесь формируется документ
'***
if fl=True Then
wda.ActiveDocument.PrintOut 'сразу на печать
wda.ActiveDocument.Close False
Else
wda.Visible = True
wda.ActiveDocument.PrintPreview ' сначала полюбуемся:)
End if
Next x
wda.Quit
Set wda = Nothing
Все печатается. И достаточно быстро(ттт :))
но без шаблонов нам не как - у нас постоянно что-то в документе добавляется/убираетеся пользователями. ;)
(переменная fl - отслеживает, что выбрали : сразу печать, или поковыряться захотелось :))
On Error Resume Next
Set wda = GetObject(, "Word.Application")
If Err <> 0 Then ' если не открыт...
Err = 0
Set wda = CreateObject("Word.Application")
End If
For x = 0 To 4 'кол-во документов. у меня это значение на самом деле, меняется, в зависимости от того, сколько пользователи навыбирали.
'место где лежит шаблон документа
way = "…"
wda.Documents.Add (way)
‘***
‘ здесь формируется документ
'***
if fl=True Then
wda.ActiveDocument.PrintOut 'сразу на печать
wda.ActiveDocument.Close False
Else
wda.Visible = True
wda.ActiveDocument.PrintPreview ' сначала полюбуемся:)
End if
Next x
wda.Quit
Set wda = Nothing
Цитата:
Originally posted by natalia_leo
Получилось!! Может кому будет также полезно. :)
Все печатается. И достаточно быстро(ттт :))
но без шаблонов нам не как - у нас постоянно что-то в документе добавляется/убираетеся пользователями. ;)
(переменная fl - отслеживает, что выбрали : сразу печать, или поковыряться захотелось :))
On Error Resume Next
Set wda = GetObject(, "Word.Application")
If Err <> 0 Then ' если не открыт...
Err = 0
Set wda = CreateObject("Word.Application")
End If
For x = 0 To 4
'место где лежит шаблон документа
way = …
wda.Documents.Add (way)
‘***
‘ здесь формируется документ
'***
if fl=True Then
wda.ActiveDocument.PrintOut 'сразу на печать
wda.ActiveDocument.Close False
Else
wda.Visible = True
wda.ActiveDocument.PrintPreview ' сначала полюбуемся:)
End if
Next x
wda.Quit
Set wda = Nothing
Получилось!! Может кому будет также полезно. :)
Все печатается. И достаточно быстро(ттт :))
но без шаблонов нам не как - у нас постоянно что-то в документе добавляется/убираетеся пользователями. ;)
(переменная fl - отслеживает, что выбрали : сразу печать, или поковыряться захотелось :))
On Error Resume Next
Set wda = GetObject(, "Word.Application")
If Err <> 0 Then ' если не открыт...
Err = 0
Set wda = CreateObject("Word.Application")
End If
For x = 0 To 4
'место где лежит шаблон документа
way = …
wda.Documents.Add (way)
‘***
‘ здесь формируется документ
'***
if fl=True Then
wda.ActiveDocument.PrintOut 'сразу на печать
wda.ActiveDocument.Close False
Else
wda.Visible = True
wda.ActiveDocument.PrintPreview ' сначала полюбуемся:)
End if
Next x
wda.Quit
Set wda = Nothing
Спасибочки прегодилось вещь нужная!!! :)