Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как сделать автоматические квитанции на 650 квартир?
 
#1
09.08.2016 18:30:00
Как сделать автоматическую печать на 650 квартир? В квитанции нужно только номер личного счета, номер квартиры, сумма, месяц и адрес. Пример прилагаю.
 
 
 
#2
09.08.2016 18:39:10
Цитата
Всеволод Гаврилов написал: Как сделать автоматическую печать ...?
Макросом
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
09.08.2016 19:00:35
Цитата
Sanja написал: Макросом
Очень "геморройно"!  :D
Посмотрите на шаблон квитанции!
Полагаю, самый простой и очень быстрый вариант:
1. шаблон "перетащить" в Word,
2. слияние в Word.
Изменено: Мотя - 09.08.2016 19:06:44
 
 
 
#4
09.08.2016 19:00:35
Сделал примерный файл.
Думаю суть ясна.
Вот эти строки:
Код
Sheets("квит").[C3].Value = a(i, 1)
Sheets("квит").[C5].Value = a(i, 2)
Sheets("квит").[C7].Value = a(i, 3)
Sheets("квит").[C9].Value = a(i, 4)
Sheets("квит").[C11].Value = a(i, 5)
Sheets("квит").[C13].Value = a(i, 6)
Переделываете под себя.

Нажимаете кнопку "Начинай"
Макрос поочередно проставит данные из каждой строки и сохраняет каждую квитанцию в папку, указанную в настройках как по умолчанию (которую можно поменять)
Потом обычным путём заходите в эту папку, выделяете нужное количество этих файлов квитанций, нажимаете ПКМ, выбираете "Печать".

Или же добавляете в макрос (после строки ActiveWorkbook.SaveAs a(i, 3), xlNormal) строку:
Код
ActiveSheet.PrintOut Copies:=1
Тогда макрос сам будет печатать. (Но нужно заранее 1 раз настроить лист таким образом, чтобы всё красиво укладывалось на одном листе бумаги)

Если не нужно сохранение в файл, а нужно только печать, то удаляете строки:
Код
Sheets("квит").Copy
ActiveWorkbook.SaveAs a(i, 3), xlNormal
ActiveWorkbook.Close

PS.
У вас строк много, не советую печатать макросом всё сразу (бумага, картридж, ...) Или можно как-то макрос изменить и запускать на каждые 100 строк что-ли. Или данные грузить в лист порциями, ...
Изменено: Бахтиёр - 09.08.2016 19:22:09
 
 
 
#5
09.08.2016 19:01:56
Надо будет разнести по разным ячейкам
Плательщик: ________________________________________                                                                              
г. Екатеринбург, ул.___________, д.___, кв.____      л/счет :_________                                                                                      (ФИО, л/с)
Сейчас это все в одной объединенной ячейке
 
 
 
#6
09.08.2016 19:05:15
кнопка цитирования не для ответа [МОДЕРАТОР]

Я честно пытался все сделать сам, но выходит какой то бред
 
 
 
#7
09.08.2016 19:05:23
Бахтиёр, почему только одна открытая?
650 файлов... зачем создавать книги, если можно в цикле подставлять данные и печатать?
 
 
 
#8
09.08.2016 19:05:24
Использую Слияние, меня устраивает, попробуйте. Нужен шаблон бланка в Wordе.
Для меня сложно, писать макрос под каждую хотелку, поэтому пользуюсь стандартными функциями.
 
 
 
#9
09.08.2016 19:06:26
Бахтиёр, там был шаблон квитанции, и самих печатаемых квитанций я не увидел
 
 
 
#10
09.08.2016 19:07:19
P.S.
И с печатью никаких проблем: принтер, ножницы.
Ну, а если использовать макрос Николая Павлова ("порезать" свиток квитанций на отдельные файлы), то можно и без ножниц обойтись: файлы "толпой" - на принтер!
 
 
 
#11
09.08.2016 19:17:32
Цитата
Kuzmich написал:
Надо будет разнести по разным ячейкам
...
Сейчас это все в одной объединенной ячейке
и заново прочтите пост №4 я там подправил
 
 
 
#12
09.08.2016 19:18:39
Цитата
gling написал: Использую  Слияние
как перенести экселевский файл без изменений в ворд, и сделать несколько квитанций на 1ом листе?
 
 
 
#13
09.08.2016 19:19:51
Цитата
Мотя написал:  самый простой и очень быстрый вариант: 1. шаблон "перетащить" в Word...
в ворде из этого файла получается какая то фигня, все границы не совпадают.
 
 
 
#14
09.08.2016 19:37:54
См.
 
 
 
#15
09.08.2016 19:53:21
кнопка цитирования не для ответа [МОДЕРАТОР]
да да, так же получалось, но опять же все наименования в 1ой строчке, и квитанция на целый лист а4, хотелось бы несколько квитанций на 1 листе с автоматической печатью.
 
 
 
#16
09.08.2016 19:57:53
Всеволод Гаврилов!
Судя по шаблону квитанции, Ваша контора дает "пропуск" жильцам к их квартирам.  :D
А почему в квитанции не указан месяц и год расчетного периода?
При использовании Слияния Вам надо в WORD-шаблоне учесть эти данные.
Еще у Вас в шаблоне есть суммы прописью: их в шаблоне проставить не удастся, ибо они у всех - разные.
Значит, Вам придется это учесть: в EXCEL-таблице вставить столбы с суммами прописью.
На форуме есть непревзойденный специалист по функциям "сумма прописью" - MCH.
 
Изменено: Мотя - 09.08.2016 20:21:32
 
 
 
#17
09.08.2016 20:04:07
Цитата
Всеволод Гаврилов написал:
хотелось бы несколько квитанций на 1 листе
В Мастере слияния выберите вариант Наклейки
 
 
 
#18
10.08.2016 00:08:45
Цитата
Pelena написал: В Мастере слияния выберите вариант Наклейки
Наклейки не могут заменить квитанции.
Цитата
Всеволод Гаврилов написал: квитанция на целый лист а4, хотелось бы несколько квитанций на 1 листе с автоматической печатью.
Ваша контора экономит бумагу по российскому принципу: водку пьём, на спичках экономим?  :D
Я, как и все россияне, получаю "море" квитанций для оплаты: все конторы, предоставляющие услуги, используют для квитанций формат А4.
Изменено: Мотя - 10.08.2016 00:36:20
 
 
 
#19
10.08.2016 07:20:37
Вы прежде, чем обсуждать нашу контору, помогли бы конкретно с заданием, а то обсуждать чужих любой горазд, а помощи от вас в это ветке ноль. Ничего плохого в экономии я не вижу.
 
 
 
#20
10.08.2016 09:58:30
Цитата
Всеволод Гаврилов написал: помогли бы конкретно с заданием...
Однако, очень занимательно - для тех, кому любопытны хотелки ТС или же не жаль для него своего времени:
- http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=80122&TITLE_SEO=80122-avtomat...
- http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=7&TID=80133&TITLE_SEO=80133-avtomat...
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#21
10.08.2016 10:16:48
Цитата
Всеволод Гаврилов написал:
помогли бы конкретно с заданием
Изменено: Геннадий - 10.08.2016 11:13:40
 
 
 
#22
10.08.2016 10:18:27
Связать сможете?
Чтобы помочь, сделайте в Ворде квитанцию
А где место "месяц"?,  Куда вставлять "цена"?
И "ИНН/КПП получателя платежа"  и "номер счета получателя платежа" должны быть связаны с адресом
Изменено: Геннадий - 10.08.2016 11:14:55
 
 
 
#23
10.08.2016 11:09:40
Геннадий, файлы удалены: превышение допустимого размера вложения. Не нужно раскидывать их по разным сообщениям, это не проходит. Для ПРИМЕРА обычно достаточно 10-20 строк
 
 
 
#24
12.08.2016 09:42:53
Всем спасибо мне помогли, тему можно закрыть.
 
 
 
Страницы: 1
Читают тему
Наверх