удалось объединить два макроса, но возникла проблема, при печати нескольких листов просит каждый раз выбрать принтер
Код
Sub soglashenie()
Dim v, s
'запоминаем текущий принтер, чтобы можно было вернуть его после выбора
s = Application.ActivePrinter
'показываем окно выбора принтера
v = Application.Dialogs(xlDialogPrinterSetup).Show
'если принтер был выбран - запоминаем выбор
If v = True Then
sNowPrinter = Application.ActivePrinter
End If
Dim i&
For i = Range("'форма'!j10") - 1 To Range("'форма'!k10") - 1
i = i + 1
Range("'S'!C2") = i
Sheets("S").PrintOut
Next i
Sheets("форма").Select
'возвращаем принтер по умолчанию, чтобы стандартная печать шла на него
Application.ActivePrinter = s
End Sub
макрос печати с возможностью выбора принтера
Пользователь
Сообщений: Регистрация: 01.01.1970
21.06.2023 21:59:55
Здравствуйте. есть два макроса. необходимо их объединить, что б при нажатии на кнопку печать, была возможность выбрать принтер. макрос печати:
Код
Sub soglashenie()
Dim i&
For i = Range("'форма'!j10") - 1 To Range("'форма'!k10") - 1
i = i + 1
Range("'www'!C2") = i
Sheets("www").PrintOut
Next i
Sheets("форма").Select
End Sub
макрос выбора принтера автор Щербакова Д.(нашел на смежном ресурсе)
Код
Sub ChangePrinter()
sNowPrinter = "Set"
Dim v, s
'запоминаем текущий принтер, чтобы можно было вернуть его после выбора
s = Application.ActivePrinter
'показываем окно выбора принтера
v = Application.Dialogs(xlDialogPrinterSetup).Show
'если принтер был выбран - запоминаем выбор
If v = True Then
sNowPrinter = Application.ActivePrinter
End If
'возвращаем принтер по умолчанию, чтобы стандартная печать шла на него
Application.ActivePrinter = s
End Sub
к сожалению не совсем понимаю, как это можно сделать. с более простой печатью сделал сам, а тут ... если не затруднит, то прошу проверить правильность...
Код
Sub печать()
sNowPrinter = "Set"
Dim v, s
s = Application.ActivePrinter
v = Application.Dialogs(xlDialogPrinterSetup).Show
If v = True Then
sNowPrinter = Application.ActivePrinter
End If
Sheets("naz").Select
ActiveSheet.PrintOut Copies:=Sheets("форма").Range("j17")
Sheets("форма").Select
Application.ActivePrinter = s
End Sub
заранее спасибо за помощь.
Изменено: - 21.06.2023 22:56:51
Макрос печати таблицы только с текстом
Пользователь
Сообщений: Регистрация: 01.01.1970
04.03.2022 17:12:17
На смежном ресурсе, Елена (Pelena), предложила макрос, суть которого заключается в скрытии столбцов которые не заполнены перед печатью. Время печати увеличилось с нескольких секунд ~1, до 56 сек. Не совсем могу понять, почему так сильно увеличилось время.
Возник вопрос:как в макросе можно ограничить поле вычисления например с 8 по 400 строки "E" (больше не будет), это по моему должно в разы уменьшить время обработки. Можно ли сделать макрос для заполнения таблицы:с ячейки ... текст в ячейку ... и возможно ли путем копирования макроса заполнить нужные ячейки
Изменено: - 04.03.2022 17:13:44
Макрос печати таблицы только с текстом
Пользователь
Сообщений: Регистрация: 01.01.1970
03.03.2022 20:58:05
попробую сформировать вопрос по другому: вообще такое возможно?
Макрос печати таблицы только с текстом
Пользователь
Сообщений: Регистрация: 01.01.1970
03.03.2022 14:39:49
здравствуйте. у меня есть макрос, который выводит на печать страницу:
Код
Private Sub Макрос8()
Application.ScreenUpdating = False
Sheets("журнал постановлений").Visible = True
Sheets("журнал постановлений").Select
ActiveSheet.PrintOut copies:=1
Sheets("журнал постановлений").Visible = True
Sheets("форма").Select
Application.ScreenUpdating = True
End Sub
Хотелось бы, что бы на печать выводились только страницы, где в ячейках E8-E... есть информация. Я попробовал добавить в макрос строку: Range("Е2:E1000") = Range("Е2:E1000").Value, но понял, что моя попытка скопировать с похожего варианта успехом не увенчалась (не хватает знаний). Строку вставлял после Sheets("журнал постановлений").SelectПрошу подсказать, если это не сложно.
Еще возник момент момент, когда печатается, то на второй стороне листа (двухсторонняя печать) страница выходит к верх ногами (надеюсь что объяснил) Как вариант, может возможно сделать так, что бы: 1.1. печаталось не с двух сторон. 1.2. если печаталось с двух сторон, то по нормальному
прикрепил файл 1. заполняется страница "дела". 2. страница "журнал постановлений", заполняется со страницы дела. 3. на странице форма кнопка печати.
заранее спасибо за помощь.
Изменено: - 03.03.2022 15:08:13
заполнение ячейки выбором из нескольких колонок и размещением информации построчно
Пользователь
Сообщений: Регистрация: 01.01.1970
01.01.2021 10:34:16
шайтанама а я всю голову сломал...
теперь остается понять как сделан выплывающий список...
заполнение ячейки выбором из нескольких колонок и размещением информации построчно
Пользователь
Сообщений: Регистрация: 01.01.1970
01.01.2021 10:26:35
как я вас правильно понял, создать еще одну колонку, которая будет делать текст построчно? попробовал - выдает #ИМЯ?
заполнение ячейки выбором из нескольких колонок и размещением информации построчно
Пользователь
Сообщений: Регистрация: 01.01.1970
01.01.2021 09:54:34
, в ответе на помог создать выборку.
вопрос: можно ли сделать, что бы выборка распределяла текст в ячейке построчно:
дата
сейчас
предпочтительный вариант
01.01.01
ленинский суд судья: Иванов Иван Иванович Тамбов, К.Маркса,
ленинский суд судья: Иванов Иван Иванович Тамбов, К.Маркса,
и не совсем понял, как Игорь сделал.
Изменено: - 01.01.2021 09:55:35(добавление файла)
Заполнение ячейки выбором с другого листа из нескольких колонок
По сути это моя хотелка, которая возможно излишнее, поскольку на листе "орган" все равно заполнять надо. Однако стало интересно, возможно такое или нет. Если это сложно реализовать, то естественно не нужно.
Изменено: - 31.12.2020 00:35:34
Заполнение ячейки выбором с другого листа из нескольких колонок
Пользователь
Сообщений: Регистрация: 01.01.1970
31.12.2020 00:10:26
Здравствуйте.
Прошу помочь, по возможности, если такое возможно. 1. есть лист"дела" с колонкой "наименование органа" 2. есть лист "орган", с колонками: орган, должность, фио, адрес.
Вопрос: возможно ли сделать выпадающий список (вероятно так), что бы заполнять колонку "наименование органа" путем выбора нужного органа с листа "орган" путем объединением данных: орган, должность, фио, адрес, с переносом по строкам (возможно тут многоуровневый выбор по критерию орган, фио)
Заранее спасибо за помощь
Печать выделенных листов
Пользователь
Сообщений: Регистрация: 01.01.1970
27.05.2015 18:52:16
возникла проблема. при переделке файла под другие табличные данные, что то не так сделал. в итоге: 1. кнопка печати стала неактивна 2. так же прошу поправить макрос печати выделенных страниц.
в свое время мне уже помогали разрешить такую проблему - но с того времени прошло добрых 6 лет. к сожалению уже не помню способ правки. однако надеюсь на помощь
заранее спасибо.
*** к сожалению файл без архива не загружается, поскольку 150 кб
Изменено: - 27.05.2015 18:54:03
программа печати конвертов и уведомлений к ним
Пользователь
Сообщений: Регистрация: 01.01.1970
12.01.2010 11:13:39
ИТОГ:
все вроде как работает... однако:
лист - ФОРМА - окно - отправитель: с одной стороны удобно что есть выбор (организации) с другой стороны создает куче неудобств в том, что имея в наличии одну фирму с разными адресами возникает сложность с их выбором...
лист ФОРМА - окно - получатель уведомления:
в связи со сложностью функциями сделать так что бы происходили изменения получателя, но в связи с тем, что функция выбирает только верхнюю позицию, то остальные остаются незадейственными
лист ФОРМА - окно - получатель отправления:
выбирая: Кому (Организация) наименование получателя платежа Кому (должность) далее выбираем кто будет получать Кому (ФИО) (заполняется автоматом исходя из (организация+должность) индекс(заполняется автоматом исходя из (организация+должность) Адрес(заполняется автоматом исходя из (организация+должность)
минусы - при смене всплывающего окна в наименовании получателя платежа, массив не всегда обновляется... тем самым постоянно нужно проверять - произошло обновление данных или нет....
в связи с чем возникает вопрос: в чем была допущена ошибка в построении базы??? для примера выкладываю то что было в опен офисе и то что получилось в Excel.
решена проблемка путем добавления всплывающего окна... попробовал сделать тоже самое для получателя - ничего не получилось - почему?
Ссылка для скачивания файла Template_for_Print1.zip ( 58.35 Кб )
Ссылка для скачивания файла ШРИФТЫ ДЛЯ ПЕЧАТИ ИНДЕКСОВ.zip ( 150.33 Кб )
что я делаю не так:?
программа печати конвертов и уведомлений к ним
Пользователь
Сообщений: Регистрация: 01.01.1970
11.01.2010 10:04:41
уважаемые гуру Excel...
Вновь с просьбой, помочь доделать одну малость - поменять функцию... понимаю что это для вас мелочь, но для меня эта мелочь является непреодалимым препятствием.
сущность проблемы:
Думал, что все нормалек, но.... внес данные и понял что не все так гладко:
внеся все данные обнаружил, что некоторые ссылки не работаю..., вернее сказать работают но не корректно...
... вкладка форма выбирая отправителя в данных организация не проставляется информация... например есть три Крыловских - просто (-), адвокат и представитель по доверенности. почему то не меняется если выбираешь адвоката или представителя по доверенности...
тоже самое и с получателем отправлений..., если идет несколько подряд одноименных получателей, то последующие почемуто не воспринимаются...
Ссылка для скачивания файла ШРИФТЫ ДЛЯ ПЕЧАТИ ИНДЕКСОВ.zip ( 150.33 Кб )
программа печати конвертов и уведомлений к ним
Пользователь
Сообщений: Регистрация: 01.01.1970
25.12.2009 16:45:42
По существу объясняю, у меня есть программка, сам писал, в свое время в Excel-е, потом в Опенофисе... на одной странице у меня данные о клиентах, фио, место жительства, на дугой форма... так вот, я забыл напрочь как делал до этого, но мне бы хотелось сделать так (а главное понять как это сделать): В форме выбрать лицо - например Иванов, и чтоб адрес его автоматически внесся с другого листа, где указаны данные иванова
программа печати конвертов и уведомлений к ним
Пользователь
Сообщений: Регистрация: 01.01.1970
25.12.2009 16:38:19
короче говоря мне надо выбрать в одной ячейке лицо- например Иванов а адрес что бы автоматически внесся с другого лица, где указаны данные иванова
программа печати конвертов и уведомлений к ним
Пользователь
Сообщений: Регистрация: 01.01.1970
25.12.2009 13:47:11
Господа товарищи, программисты и программистски, я понимаю, что моя проблема скорее не является таковой... однако, у меня встал вопрос: я несколько увлекаюсь написанием программ в таблицах типа ОпенОфиса и Excel. ситуация такова, до определённого момента я работал в опене. но став обладателем пакета с Excel-ем, решил вспомнить старое и попробовать написать аналогичное. проблема в том, что до этого у меня был Excel-2003, сейчас Excel-2007...
что я хочу узнать (тупая помощь - типа я сделал пользуйся - приветствуется, но хотелось бы понять суть).... 1. возможно ли в Excel-2007 сделать пользовательское меню (типа окна меню в котором будет возможность выбора из данных с другой страницы) - и как это сделать - где почитать 2. как сделать что бы выпадающие ячейки кроме тех данных, что выбираются с другого листа добавляли еще рядом расположенные данные. (понимаю, что звучит сумбурно, но что бы было понятно прикладываю файл)
(и еще - почему то перестал работать макрос в опене. до определенного времени работал и умер. понимаю что не в тему, но если вы поймете почему - буду рад за подсказку. нужна будет моя помощь - ICQ#: 249546690)
прошу прощения за развернутое повествование. просто сложно описать техническим языком, то что нужно.
