ReSQL.ru
     
powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / MS Excel "Тихая" печать
6 сообщений из 6, страница 1 из 1
MS Excel "Тихая" печать
    #39687222
ospts
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ospts
Гость
Доброго всем времени суток.
В общем вопрос вот в чём. Я запускаю книгу Excel из под сторонней программы. При этом Excel на экран не выводится. Запускается макрос, который отправляет на печать форму с заполненными данными, то есть просто делает "тихую" печать. Но вот загвоздка в том, что печать идёт не на принтер по умолчанию, а на какой-то другой в системе. Раньше на другой ОС (Windows 7) всё отлично работало, а теперь, когда у меня новый компьютер с установленной на нём Windows 10, происходит это недоразумение.
Подскажите, может кто-то с сталкивался с подобной проблемой или может знает, как её победить.
Заранее спасибо.

Прилагаю текст макроса, хотя я что-то уверен, что дело не в нём, потому что, если открыть файл через Excel, и выполнить макрос, печать идёт на принтер по умолчанию.
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
Sub Макрос()
Worksheets("Данные").Range("I2:N2").Copy
Worksheets("Шаблон").Range("J2:O2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Шаблон").Range("J53:O53").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Данные").Range("I3:M3").Copy
Worksheets("Шаблон").Range("R2:V2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Шаблон").Range("R53:V53").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Данные").Range("I4:AR4").Copy
Worksheets("Шаблон").Range("M11:AV11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Шаблон").Range("M62:AV62").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Данные").Range("I5:AR5").Copy
Worksheets("Шаблон").Range("M12:AV12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Шаблон").Range("M63:AV63").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Данные").Range("I6:AR6").Copy
Worksheets("Шаблон").Range("M13:AV13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Шаблон").Range("M64:AV64").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Данные").Range("I8:K8").Copy
Worksheets("Шаблон").Range("S20:U20").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Шаблон").Range("S71:U70").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Данные").Range("I9:J9").Copy
Worksheets("Шаблон").Range("V20:W20").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Шаблон").Range("V71:W71").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Данные").Range("I12:AS12").Copy
Worksheets("Шаблон").Range("K28:AU28").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Шаблон").Range("K79:AU79").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Данные").Range("I10:N10").Copy
Worksheets("Шаблон").Range("I36:N36").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Шаблон").Range("I87:N87").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Данные").Range("I7:AA7").Copy
Worksheets("Шаблон").Range("AC45:AU45").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Шаблон").Range("AC96:AU96").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Данные").Range("I15:AR15").Copy
Worksheets("Шаблон").Range("M10:AV10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Шаблон").Range("M61:AV61").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Данные").Range("I17:AH17").Copy
Worksheets("Шаблон").Range("W15:AV15").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Шаблон").Range("W66:AV66").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Данные").Range("U10:AA10").Copy
Worksheets("Шаблон").Range("X20:AD20").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Шаблон").Range("X71:AD71").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets("Данные").Range("I11:K11").Copy
Worksheets("Шаблон").Range("AM20:AO20").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Шаблон").Range("AM71:AO71").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Шаблон").Select
Rows("1:101").Select
Selection.Copy
Sheets("Результат").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown

Sheets("Результат").PrintOut Copies:=1, Collate:=True

Application.DisplayAlerts = False
Application.Quit
End Sub

Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
14.08.2018, 08:22
| Ответить | Цитировать | Написать  
MS Excel "Тихая" печать
    #39687230
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
У ProntOut гораздо больше параметров, чем тут использовано. В т.ч. есть и параметр ActivePrinter.
...
Рейтинг: 0 / 0
14.08.2018, 08:51
| Ответить | Цитировать | Написать  
MS Excel "Тихая" печать
    #39687234
ospts
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ospts
Гость
Akina, да есть такой параметр, но как он мне может помочь?
...
Рейтинг: 0 / 0
14.08.2018, 08:57
| Ответить | Цитировать | Написать  
MS Excel "Тихая" печать
    #39687267
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
osptsно как он мне может помочь?
Вы же сами пишите:
osptsпечать идёт не на принтер по умолчанию, а на какой-то другой
Вот и заставьте кодом отправлять на тот, который нужно. И именно этот параметр поможет в этом.
Вот Вам статья в помощь: Как из VBA выбрать и установить принтер для Excel
...
Рейтинг: 0 / 0
14.08.2018, 09:49
| Ответить | Цитировать | Написать  
MS Excel "Тихая" печать
    #39687293
ospts
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ospts
Гость
The_Prist, это временное решение, у меня это пока так и работает. Но дело в том, что это печатают другие сотрудники, не я, причём это могут поручить разным, сегодня один работает, завтра другой, потом опять первый и т.д. И мне бы не хотелось каждый раз менять шаблон. К тому же они вот забудут меня предупредить, что этим уже другой сотрудник занимается, и начнётся котовасия, что у кого-то что-то напечаталось на каких-нибудь документах или бланках. Тем более, я тоже не всегда нахожусь на месте и в таком случае не смогу оперативно поменять шаблон. Так что жду других более подходящих предложений...
...
Рейтинг: 0 / 0
14.08.2018, 10:16
| Ответить | Цитировать | Написать  
MS Excel "Тихая" печать
    #39689367
ospts
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ospts
Гость
В общем я нашёл другое решение, которое более удовлетворительное, чем то временное, о котором я писал ранее.
Буду запускать Excel видимым (в этом случае он запускается от текущего пользователя), потом форма отправляется на печать и excel закрывается через секунду, это всё через макрос. Будет конечно мерцать excel, но зато будет виден сам процесс работы)

Так что всем спасибо, что пытались помочь мне!
...
Рейтинг: 0 / 0
17.08.2018, 11:39
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / MS Excel "Тихая" печать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=39687293&tid=2172267]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 312ms
total:  444ms
созд. / загр.: 444ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]