Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Наклейки - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Наклейки (Печать наклеек)
Наклейки
Hugo Дата: Суббота, 20.11.2010, 12:10 | Сообщение № 21
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
Можно комментарий вставить? Я сам что-то никак до дела не доберусь, но слежу smile
Николай, мой код печатает по одному листу заданное количество наклеек, и даже если будет задано 1000 штук wer, он будет выплёвывать листы с наклейками (но можно отказаться любой печатать), пока это wer не будет распечатано. По крайней мере, так задумывалось.
И Leekc похоже его понял и изменил под себя (я не изучал, так слегка глянул).
Задавать сразу определённое количество листов имхо неправильно - или не хватит, или лишная небесплатная бумага будет переводиться.


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеМожно комментарий вставить? Я сам что-то никак до дела не доберусь, но слежу smile
Николай, мой код печатает по одному листу заданное количество наклеек, и даже если будет задано 1000 штук wer, он будет выплёвывать листы с наклейками (но можно отказаться любой печатать), пока это wer не будет распечатано. По крайней мере, так задумывалось.
И Leekc похоже его понял и изменил под себя (я не изучал, так слегка глянул).
Задавать сразу определённое количество листов имхо неправильно - или не хватит, или лишная небесплатная бумага будет переводиться.

Автор - Hugo
Дата добавления - 20.11.2010 в 12:10
nilem Дата: Суббота, 20.11.2010, 12:27 | Сообщение № 22
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
То был промежуточный вариант. Вот теперь с подписью. Вроде все учел.
(извел 2 (два) листа бумаги cry )
smile

Для Игоря. Можно и по-твоему сделать. Лекс говорит, что, мол, листов 10-15 максимум. Поэтому подумалось сделать шаблон сразу на все листы, а печатать и сохранять только нужную часть. Так быстрее и вообще лучше (ну, я так думаю).
(не нашел думающего смайлика. что есть:) wacko - это вот типа я так думаю.

К сообщению приложен файл: 7478936.zip (22.5 Kb)


Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Суббота, 20.11.2010, 12:35
 
Ответить
СообщениеТо был промежуточный вариант. Вот теперь с подписью. Вроде все учел.
(извел 2 (два) листа бумаги cry )
smile

Для Игоря. Можно и по-твоему сделать. Лекс говорит, что, мол, листов 10-15 максимум. Поэтому подумалось сделать шаблон сразу на все листы, а печатать и сохранять только нужную часть. Так быстрее и вообще лучше (ну, я так думаю).
(не нашел думающего смайлика. что есть:) wacko - это вот типа я так думаю.


Автор - nilem
Дата добавления - 20.11.2010 в 12:27
Hugo Дата: Суббота, 20.11.2010, 12:47 | Сообщение № 23
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
Мой вариант распечатки.
Сохранение новой книги с распечатанными листами не писал, можно добавить, если нужно.
К сообщению приложен файл: 5853939H.xls (59.5 Kb)


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеМой вариант распечатки.
Сохранение новой книги с распечатанными листами не писал, можно добавить, если нужно.

Автор - Hugo
Дата добавления - 20.11.2010 в 12:47
Hugo Дата: Суббота, 20.11.2010, 12:51 | Сообщение № 24
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
Для Николая -
Извини, я в твой код не вникал - такой подход разумен, если точно много листов не будет. Но тогда сперва вероятно юзеру нужно сказать, сколько листов наклеек в принтер сунуть нужно smile
Просто мой код из другой задачи растёт, там про количество ничего не говорилось вроде (уже не помню...)


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеДля Николая -
Извини, я в твой код не вникал - такой подход разумен, если точно много листов не будет. Но тогда сперва вероятно юзеру нужно сказать, сколько листов наклеек в принтер сунуть нужно smile
Просто мой код из другой задачи растёт, там про количество ничего не говорилось вроде (уже не помню...)

Автор - Hugo
Дата добавления - 20.11.2010 в 12:51
Leekc Дата: Суббота, 20.11.2010, 12:58 | Сообщение № 25
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Получилось как-то так... Только надо еще доработать ...
1. не работает если не создан пустой файл 123.xls
2. 123.xls надо все время чистить, удалять созданные ранее листы, лучше бы каждуй раз создавалась новая книгас именем допустим дата-время, ну или все равно каким
а так с Вашей помощью потихоньку продвигается smile
К сообщению приложен файл: 2402014.xls (82.0 Kb)
 
Ответить
СообщениеПолучилось как-то так... Только надо еще доработать ...
1. не работает если не создан пустой файл 123.xls
2. 123.xls надо все время чистить, удалять созданные ранее листы, лучше бы каждуй раз создавалась новая книгас именем допустим дата-время, ну или все равно каким
а так с Вашей помощью потихоньку продвигается smile

Автор - Leekc
Дата добавления - 20.11.2010 в 12:58
Leekc Дата: Суббота, 20.11.2010, 13:02 | Сообщение № 26
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Hugo,
выдает ошибку на wb.Sheets(1).Delete
 
Ответить
СообщениеHugo,
выдает ошибку на wb.Sheets(1).Delete

Автор - Leekc
Дата добавления - 20.11.2010 в 13:02
Hugo Дата: Суббота, 20.11.2010, 13:15 | Сообщение № 27
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
Странно, у меня ошибки нет.
Ну и оставьте его smile


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеСтранно, у меня ошибки нет.
Ну и оставьте его smile

Автор - Hugo
Дата добавления - 20.11.2010 в 13:15
Leekc Дата: Суббота, 20.11.2010, 13:19 | Сообщение № 28
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Спасибо smile доработаю, что у меня получилось) но это уже не сегодня...
 
Ответить
СообщениеСпасибо smile доработаю, что у меня получилось) но это уже не сегодня...

Автор - Leekc
Дата добавления - 20.11.2010 в 13:19
Hugo Дата: Суббота, 20.11.2010, 13:42 | Сообщение № 29
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
По сохранению файла вот код, который я использую:
[vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error GoTo finish

strDate = Format(Now, "yyyy.mm.dd-hh.mm.ss")

       ActiveWorkbook.SaveAs Filename:="c:\!WORK!\AKT." & strDate & ".xls", _
       FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
           ReadOnlyRecommended:=False, CreateBackup:=False

finish:
End Sub
[/vba]

Думаю, вполне можно
wb.SaveAs Filename:="....
приспособить в конце кода.
Что удобно - всегда можно сортировкой легко найти нужный файл.

Да, и по теме - там ещё нужно с кнопкой разобраться - убрать из печати, из сохранённых копий листов (я кстати потому код из листа убрал, чтобы он в копиях не сохранялся...)
Или может код запускать не кнопкой, а по горячим клавишам или по кнопке на листе с данными?


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеПо сохранению файла вот код, который я использую:
[vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error GoTo finish

strDate = Format(Now, "yyyy.mm.dd-hh.mm.ss")

       ActiveWorkbook.SaveAs Filename:="c:\!WORK!\AKT." & strDate & ".xls", _
       FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
           ReadOnlyRecommended:=False, CreateBackup:=False

finish:
End Sub
[/vba]

Думаю, вполне можно
wb.SaveAs Filename:="....
приспособить в конце кода.
Что удобно - всегда можно сортировкой легко найти нужный файл.

Да, и по теме - там ещё нужно с кнопкой разобраться - убрать из печати, из сохранённых копий листов (я кстати потому код из листа убрал, чтобы он в копиях не сохранялся...)
Или может код запускать не кнопкой, а по горячим клавишам или по кнопке на листе с данными?

Автор - Hugo
Дата добавления - 20.11.2010 в 13:42
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Наклейки (Печать наклеек)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!