_Boroda_, независимо от значения в TextBox, печатает один экземпляр. Если поставить последовательно два кода на печать, распечатает два раза. Почему то даже Ваш вариант печатает только один раз. Пробовал печатать в файл PDF и на принтер Canon. Завтра попробую на рабочем распечатать. Мой вариант урезал до допустимых размеров для форума, но смысл тот же. Спасибо
_Boroda_, независимо от значения в TextBox, печатает один экземпляр. Если поставить последовательно два кода на печать, распечатает два раза. Почему то даже Ваш вариант печатает только один раз. Пробовал печатать в файл PDF и на принтер Canon. Завтра попробую на рабочем распечатать. Мой вариант урезал до допустимых размеров для форума, но смысл тот же. Спасибоpips
Да, у меня на рабочем тоже все распечаталось. Оказалось, проблема в настройках принтера. Оказывается, проблема распространенная. Само выставляется значение "разобрать по копиям". Всем спасибо, так и сидел бы думал)
Да, у меня на рабочем тоже все распечаталось. Оказалось, проблема в настройках принтера. Оказывается, проблема распространенная. Само выставляется значение "разобрать по копиям". Всем спасибо, так и сидел бы думал)pips
Private Sub CommandButton2_Click() Sheets("Naryad").Select Worksheets("Naryad").PrintOut Copies:=TextBox1.Value, Collate:=False Unload VyvodNaPechat End Sub
Private Sub CommandButton2_Click() Sheets("Naryad").Select Worksheets("Naryad").PrintOut Copies:=TextBox1.Value, Collate:=False Unload VyvodNaPechat End Sub
StoTisteg, вчера так делал, не получилось. Поздно было, не стал разбираться. Сегодня попробую допилить. Отпишусь, думаю новичкам как я полезно будет. UPD: все работает, всем спасибо
StoTisteg, вчера так делал, не получилось. Поздно было, не стал разбираться. Сегодня попробую допилить. Отпишусь, думаю новичкам как я полезно будет. UPD: все работает, всем спасибоpips
Сообщение отредактировал pips - Четверг, 03.05.2018, 21:18