Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Печать документа Word из Excel
 
#1
26.06.2013 17:11:14
Уважаемые Гуру!
Возникла проблема, помогите! Из Excel макросом заносятся данные в документ Word. По команде оператора документ печатается макросом документа. Затем заносятся новые данные и т.д. Первый документ печатается нормально, но при печати второго, Word выводит диалог "Подождите, пока завершаться отложенные задания печати". Наверное, нужно организовать ожидание завершения работы макроса печати или иной способ синхронизации, чтобы устранить ненужный диалог.
Подскажите, что делать.
 
 
 
#2
26.06.2013 17:26:25
"Подождите, пока завершаться отложенные задания печати"
А почему они отложенные? Посмотрите, что творится в диспетчере печати.
There is no knowledge that is not power
 
 
 
#3
27.06.2013 08:57:32
Диспетчер пишет "поставлен в очередь". Закрываю диалог Word  и печать выполняется.
 
 
 
#4
30.09.2013 11:55:40
Так в чем было дело то? У меня тоже пишет что поставлена в очередь, но ни печати, ни в очереди нет.
 
 
 
#5
30.09.2013 12:10:05
У меня такое иногда наблюдается, если в очередь поставлено очень много документов. Очищаю очередь, иногда перезапускаю принтер, и все нормально.
 
 
 
#6
30.09.2013 12:18:23
В очереди кроме этого документа ничего нет, но печатать упорно не хочет. Вроде перезапустил принтер. Первый раз сталкиваюсь с этим.
 
 
 
#7
30.09.2013 12:32:30
В настройках принтера копаться нужно. Что-то типа этого.
 
 
 
#8
30.09.2013 12:34:13
Спасибо, сейчас попробую.
 
 
 
#9
30.09.2013 12:43:15
Код
Sub HCReplaceX1()
 
Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
 
wdApp.Visible = True

Set wdDoc = wdApp.Documents.Open("C:\Users\Alex\Desktop\Primer1.docx")
 
With wdDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range
    .Tables(1).Range.Cells(7).Range.Text = "4L-ABA"
End With

wdDoc.PrintOut Copies:=1
wdDoc.Close
wdApp.Quit


Set wdApp = Nothing
 

End Sub


использую такой код.
В настройках принтера установил галочку "печатать прямо на принтер" - не помогло
 
 
 
#10
30.09.2013 13:20:57
если вручную открыть word файл, то печатает, а через макрос " подождите пока word завершит все отложенные задания печати" и тишина.
 
 
 
#11
30.09.2013 13:52:00
может изменить команду wdDoc.PrintOut Copies:=1?
 
 
 
#12
30.09.2013 13:52:14
А моей программой пробовали заполнять документы Word, с автоматическим выводом на печать?
(в настройках, есть такая опция)
http://excelvba.ru/programmes/FillDocuments

Если и с моей программой будет та же проблема, - значит, дело в принтере или в диспетчере очереди печати
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#13
30.09.2013 14:08:25
Ваша программа выводит на печать. Только в моем доке поля выходят за пределы границ и вопрос выводится.
А моим макросом до этого не доходит.
Программа классная, я так понимаю она платная?
 
 
 
#14
30.09.2013 16:16:07
Людииии, помогите. Не получается.
 
 
 
#15
30.09.2013 16:26:23
Чем помочь? Сломать программу Игоря и подстроить под Ваши нужды? Однозначно, никто из форумчан этого делать не станет. Нравится программа, копайте в сторону взаимодействия с автором. Уверен, Игорь не возьмет много за переделку под Ваши нужды.
Я сам - дурнее всякого примера! ...
 
 
 
#16
30.09.2013 16:31:54
Да я за переделку ничего не говорю. Печать в моем макросе не идет. Все перепробовал, не знаю в чем дело.
 
 
 
#17
30.09.2013 16:48:37
Ребята!!! сам докопался, методом беспощадного тыка. Нужно было добавить Background:=False и все заработало.
 
 
 
#18
30.09.2013 16:50:20
Уважаемый EducatedFool, как можно приобрести вашу программу?
 
 
 
#19
30.09.2013 17:39:35
Цитата
Только в моем доке поля выходят за пределы границ и вопрос выводится
а в чем сложность подстроить поля в шаблоне, чтобы этот вопрос не выводился?

Цитата
Нужно было добавить Background:=False и все заработало
в моей программе этого нет
на печать выводится как у вас: wdDoc.PrintOut Copies:=1

Цитата
как можно приобрести вашу программу?
так, вроде, и на сайте, и в программе, это написано:
http://excelvba.ru/buy/program?name=FillDocuments
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#20
12.10.2023 12:47:26
Цитата
Изменено: Levanton - 12.10.2023 12:50:52
 
 
 
Страницы: 1
Читают тему
Наверх