febreze2009
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: febreze2009
тогда надо не на событие до печати, а на кнопку назначить макрос при нажатии увеличивающий номер и показывающий диалог печати
Подробнее... |
Это ближе, и это работает спасибо.
Однако задача стоит печатать каждый раз разное количество листов. Их количество можно и 10, и 50, и 80.
Может есть возможность указать диапазон печатаемых значений. И пока этот диапазон не будет закончен печать будет продолжаться. Например: мне нужно сегодня распечатать листы с нумерацией скажем с 1011 по 1050. Диапазон либо указывается (с какого номера начать, каким закончить), либо указывается количество нужных листов (50) и номер с какого начать. Запускаем печать и все листы распечатываются со сквозной нумерацией.
Добавлено:
Цитата: Цитата:
febreze2009
тогда надо не на событие до печати, а на кнопку назначить макрос при нажатии увеличивающий номер и показывающий диалог печати
Подробнее...
Это ближе, и это работает спасибо.
Однако задача стоит печатать каждый раз разное количество листов. Их количество можно и 10, и 50, и 80.
Может есть возможность указать диапазон печатаемых значений. И пока этот диапазон не будет закончен печать будет продолжаться. Например: мне нужно сегодня распечатать листы с нумерацией скажем с 1011 по 1050. Диапазон либо указывается (с какого номера начать, каким закончить), либо указывается количество нужных листов (50) и номер с какого начать. Запускаем печать и все листы распечатываются со сквозной нумерацией. |
Немного покрутил, сделал. Спасибо всем за подсказки и предложенные решения.
у меня получилось как нельзя проще:
Код: Private Sub CommandButton1_Click()
Dim MaxNum As Integer
ListNumCell = "G2"
k = TextBox1.Value
For i = 1 To k
' Считываем текущий номер
MaxNum = Range(ListNumCell).Value
' увеличиваем номер до печати
Range(ListNumCell).Value = MaxNum + 1
' или печать листа без диалога печати
ActiveSheet.PrintOut
Next i
End Sub |
Есть правда еще один нюанс. Все эти задания формируются как отдельные. И печать происходит долго, т.к. принтер "готовится" к каждому заданию и печатает как бы каждый лист в отдельности, и не одним большим заданием (читай быстро). Вопрос: можно это все как-то запихнуть в одно задание для Printer Spooler. Чтобы в Print Manager было одно задание и скорость печати соответствовала возможностям принтера.
|
Всего записей: 24 | Зарегистр. 26-07-2009 | Отправлено: 17:30 25-11-2010 | Исправлено: febreze2009, 18:21 25-11-2010 |
|
