Макрос для вывода на печать выбранных листов

@Жора7 · Регистрация: 14.10.2015

Студворк — интернет-сервис помощи студентам

здравствуйте, помогите написать макросс. хотелось бы чтобы при нажатии кнопки Распечатать, проверялся столбик с флажками и если он стоит выводить на печать те листы которые отмечены, с определенным количеством копий

@Burk · 26.11.2021, 12:28

Жора7, ну и славненько

I can · 26.11.2021, 12:34

Сообщение от Жора7

копирую макрос в другую книгу

А четвёртый лист с настройками печати?

@Жора7 · 26.11.2021, 12:45 **[ТС]**

вот книга куда встраивал макрос
макрос как изменил
Sub PrintI()
Dim I&, Sh As Shape, S As String
With Sheets("Лист1")
For Each Sh In .Shapes
If InStr(Sh.Name, "Check") > 0 Then
If Sh.OLEFormat.Object = 1 Then
S = .Cells(Sh.TopLeftCell.Row, 2)
' MsgBox Sh.Name & " " & Sh.OLEFormat.Object & " " & S
Sheets(S).PrintOut Copies:=.Range("J7")
DoEvents
End If
End If
Next
End With
End Sub

@Жора7 · 26.11.2021, 12:54 **[ТС]**

работает раз через раз, то печатал всё кроме листов " накладные"
теперь в примере "путевые листы" вообще не хочет печатать
вставить файл с макросом не смог пишет не корректный файл

Добавлено через 3 минуты

Сообщение от I can

А четвёртый лист с настройками печати?

я прописал имя листа

I can · 26.11.2021, 12:55

Сообщение от Жора7

"путевые листы" вообще не хочет печатать

Нет такого листа у тебя.

Добавлено через 1 минуту

Сообщение от Жора7

"путевые листы"

Или это листы типа "ТАТА 1" ?

@Жора7 · 26.11.2021, 12:56 **[ТС]**

"путевые листы" название файла к которому применял макрос

I can · 26.11.2021, 12:57

Названия не совпадают.

@Жора7 · 26.11.2021, 12:58 **[ТС]**

и в нем макрос выдает ошибку в этой строчке:

Sheets(S).PrintOut Copies:=.Range("J7")

Добавлено через 33 секунды
посмотрю

I can · 26.11.2021, 13:01

Сообщение от Жора7

посмотрю

Тут нечего и смотреть, бросается в глаза - название листа "ТАТА 1" а в ячейке написано "ТАТА 1"

Не по теме:

Во блин, форумный движок пробелы режет в кавычках

@Burk · 26.11.2021, 13:28

Жора7, к слову, у вас накладные в имени листов с пробелами, а в листе1 нет.

@Жора7 · 26.11.2021, 13:34 **[ТС]**

Всем спасибо,ОГРОМНОЕ, за понимание и терпение. работает.

Добавлено через 4 минуты
всё изменил и проверил. Заработало

Новые блоги и статьи Все статьи Все блоги /
Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	26.11.2021, 12:28
	Жора7, ну и славненько 0

@Жора7 0 / 0 / 0 Регистрация: 14.10.2015 Сообщений: 28
	26.11.2021, 12:56 [ТС]
	"путевые листы" название файла к которому применял макрос 0

I can jump 5006 / 4775 / 852 Регистрация: 13.04.2015 Сообщений: 10,030
	26.11.2021, 12:57
	Названия не совпадают. 0

@Жора7 0 / 0 / 0 Регистрация: 14.10.2015 Сообщений: 28
	26.11.2021, 12:58 [ТС]
	и в нем макрос выдает ошибку в этой строчке: Sheets(S).PrintOut Copies:=.Range("J7") Добавлено через 33 секунды посмотрю 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	26.11.2021, 13:28
	Жора7, к слову, у вас накладные в имени листов с пробелами, а в листе1 нет. 0

@Жора7 0 / 0 / 0 Регистрация: 14.10.2015 Сообщений: 28
	26.11.2021, 13:34 [ТС]
	Всем спасибо,ОГРОМНОЕ, за понимание и терпение. работает. Добавлено через 4 минуты всё изменил и проверил. Заработало 0