Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Автоматическое нумерование копий в Excel-е / 4 сообщений из 4, страница 1 из 1
20.04.2005, 11:15
    #33024745
Korax
Korax
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматическое нумерование копий в Excel-е
Подскажите, как проще сделать, сам что-то не соображу...
Вообщем из Excel-я печатается какая-то страница, копий 100 например.
И надо сделать так, чтобы в каждой следующей копии, которая выходит из принтера, одна конкретная ячейка, пусть А1 например, содержала бы номер копии. Возможно ли такое?
Если ламерский вопрос, заранее прошу прощения... :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2005, 22:06
    #33026498
Yuraz.com
Yuraz.com
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматическое нумерование копий в Excel-е
Это и есть нумерация страниц вообще то...
А если надо нумеровать документы как талончики на тролейбус, у каждого свой номер, то тут надо подготовть файл, перегнать в bmp например, загнать его в одну из программ, которая умеет печатать переменные данные.
Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2005, 22:51
    #33026538
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматическое нумерование копий в Excel-е
KoraxПодскажите, как проще сделать, сам что-то не соображу...
Вообщем из Excel-я печатается какая-то страница, копий 100 например.
И надо сделать так, чтобы в каждой следующей копии, которая выходит из принтера, одна конкретная ячейка, пусть А1 например, содержала бы номер копии. Возможно ли такое?
Если ламерский вопрос, заранее прошу прощения... :)
Напрямую нельзя. Но можно сделать макрос типа:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub Print_With_Copies()
   Dim iCopyNumber as Integer, iTotalCopies as Integer

   iTotalCopies =  100  // можно заменить на константу, или как параметр функции или что угодно :)

   For iCopyNumber= 1  To iTotalCopies
       ActiveSheet.Range("A1") = "Copy #" & iCopyNumber
       ActiveSheet.PrintOut
   Next
End Sub
При желании можно номер копии записывать не в ячейку, а например в заголовок листа...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.04.2005, 09:59
    #33026870
Korax
Korax
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматическое нумерование копий в Excel-е
Спасибо большое за ответы! Буду пробовать...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Автоматическое нумерование копий в Excel-е / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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