Двухсторонняя печать в EXEL. Код VBA

@Karina4 · Регистрация: 09.11.2020

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

Здравствуйте. Хочу привязать к кнопке печать макрос для печати два листа но одной бумаге с функцией Переворачивать страницы относительно короткого края

Файл во вложении

@Zeag · 22.05.2021, 12:33

И в чем вопрос? ПКМ по кнопке - Назначить макрос - пишем/выбираем имя макроса. А в нем уже необходимый код.

@Karina4 · 23.05.2021, 13:58 **[ТС]**

Zeag, Мне нужен необходимый код

@АЕ · 23.05.2021, 14:27

Сообщение от Karina4

Мне нужен необходимый код

Еще пару одноименных тем и ваша настойчивость будет возграждена баном!
Лично я - за.

@Zeag · 23.05.2021, 14:37

У вас пустой лист. Откуда знать, какой диапазон и какие листы печатаются?

"Нет ТЗ - результат ХЗ" (с)

@Karina4 · 23.05.2021, 20:57 **[ТС]**

Zeag, Зачем вы всё усложняете ? Вы даже не пытаетесь мне помочь, вы только пытаетесь унизить.

Там же написано Лицевая сторона, обратная сторона. Что непонятного ? Область печати уже установлен

Области печати:

Лицевая сторона A1 J48

Обратная сторона K1 T48

Вот так понятно ?

Что еще вы придумаете чтобы меня унизить ?

@Karina4 · 23.05.2021, 21:05 **[ТС]**

Напишите пожалуйста код для печати двух страниц на одном листе с функцией Переворачивать страницы относительно короткого края

Области печати:

Лицевая сторона A1 J48

Обратная сторона K1 T48

Файл во вложении

@Zeag · 23.05.2021, 21:16

У меня ваш файл показывается как на скрине, так что печатает по 2 листа. Но вроде то, что хотели.
Если в файл (сперва, чтобы не тратить бумагу), то убрать апострофы.

Visual Basic

Sub TwoPage()
   ActiveSheet.Range("A1:J48").PrintOut 'PrintToFile:=True, PrToFileName:=ThisWorkbook.Path & "\out1.xps"
   MsgBox "Переверните страницу"
   ActiveSheet.Range("K1:T48").PrintOut 'PrintToFile:=True, PrToFileName:=ThisWorkbook.Path & "\out2.xps"
End Sub

@Karina4 · 24.05.2021, 23:15 **[ТС]**

Zeag, У вас почему то страничный режим, не знаю почему, я сохраняла в обычном режиме

Спасибо за код. Проверю на работе

@Zeag · 24.05.2021, 23:38

Я поставил страничный режим, чтобы посмотреть границы страниц.

@Alex77755 · 25.05.2021, 07:58

с функцией Переворачивать страницы относительно короткого края

У вас есть такая функция в принтере? сам переворачивает?
Тогда попробуйте задать вывод на печать с этой функцией с записью макроса
Возможно запишет параметр
У меня такого нет - проверить не могу

@Karina4 · 25.05.2021, 10:46 **[ТС]**

Zeag, Zeag, Ваш код не печатает вьдвухстороннем режиме, он печатает листы по отдельно, у меня принтер с функцией двухсторонней печати

@Zeag · 25.05.2021, 10:52

Мы на удаленке. У меня дома вообще никакого принтера нет. На работе без двухсторонки. Тыкать пальцем в небо в программировании проблематично. И сколь я вижу в гугле при поиске "excel двусторнняя печать", это вообще проблема не экселя, а настроек принтера - в нем отмечается соответствующий пункт. Для примера выведите в ОДИН (!) файл и потом из проводника его отправьте на ваш принтер и посмотрите результат.

@Karina4 · 25.05.2021, 12:00 **[ТС]**

Alex77755, Это хорошая идея, получился вот такой код

PureBasic

1 2	ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False

Только как бы мне сделать чтобы на печать вывелить область печати "A1:I52" "J1:R52"

@Zeag · 25.05.2021, 12:03

Посмотрите на разницу кодов:

Visual Basic

1	ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Visual Basic

1	ActiveSheet.Range("A1:J48").PrintOut

Ничего не замечаете в части до PrintOut?

@Karina4 · 25.05.2021, 12:28 **[ТС]**

Zeag, на рабочем принтере область печати почему то изменилась. у меня дома по другому, я изменила область печати на A1:R52

@Zeag · 25.05.2021, 12:30

Я к тому, что попробовал бы указать область печати и затем Copies:=1, Collate:=True, IgnorePrintAreas:=False
Но без принтера сложно сказать, какой будет результат.
Область печати от настроек принтера зависит, похоже. Я делал одну задачу, где надо было вставлять границы листов - и тоже на разных ПК отличалось.

@Karina4 · 25.05.2021, 13:40 **[ТС]**

Zeag, У меня уже есть рабочий код

Bash

1	ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False

этот код печатает с двух сторон заданую обрасть печати

Мне его нужно переделать чтобы код сам задавал область печати, область печати A1:R52

@Zeag · 25.05.2021, 13:49

Проверьте так. Но еще раз - вслепую работать трудно.

Visual Basic

1	ActiveSheet.Range("A1:R52").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

@Karina4 · 03.06.2021, 22:09 **[ТС]**

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

при нажатии на кнопку печать эти два листа выходят в функцией двухсторонней печати так как мы сохраняли файл в таком виде

Всем спасибо за отзывчивость

@Zeag 834 / 484 / 186 Регистрация: 09.03.2009 Сообщений: 1,664
	25.05.2021, 12:30	17
	Сообщение было отмечено Karina4 как решение Решение Я к тому, что попробовал бы указать область печати и затем Copies:=1, Collate:=True, IgnorePrintAreas:=False Но без принтера сложно сказать, какой будет результат. Область печати от настроек принтера зависит, похоже. Я делал одну задачу, где надо было вставлять границы листов - и тоже на разных ПК отличалось. 1

@Zeag 834 / 484 / 186 Регистрация: 09.03.2009 Сообщений: 1,664
	22.05.2021, 12:33	2
	И в чем вопрос? ПКМ по кнопке - Назначить макрос - пишем/выбираем имя макроса. А в нем уже необходимый код. 0

@Karina4 2 / 4 / 0 Регистрация: 09.11.2020 Сообщений: 347
	23.05.2021, 13:58 [ТС]	3
	Zeag, Мне нужен необходимый код 0

@АЕ ᴁ® 3813 / 2148 / 453 Регистрация: 13.12.2016 Сообщений: 7,360 Записей в блоге: 5
	23.05.2021, 14:27	4
	Сообщение от Karina4 Мне нужен необходимый код Еще пару одноименных тем и ваша настойчивость будет возграждена баном! Лично я - за. 0

@Zeag 834 / 484 / 186 Регистрация: 09.03.2009 Сообщений: 1,664
	23.05.2021, 14:37	5
	У вас пустой лист. Откуда знать, какой диапазон и какие листы печатаются? "Нет ТЗ - результат ХЗ" (с) 0

@Karina4 2 / 4 / 0 Регистрация: 09.11.2020 Сообщений: 347
	23.05.2021, 20:57 [ТС]	6
	Zeag, Зачем вы всё усложняете ? Вы даже не пытаетесь мне помочь, вы только пытаетесь унизить. Там же написано Лицевая сторона, обратная сторона. Что непонятного ? Область печати уже установлен Области печати: Лицевая сторона A1 J48 Обратная сторона K1 T48 Вот так понятно ? Что еще вы придумаете чтобы меня унизить ? 0

@Karina4 2 / 4 / 0 Регистрация: 09.11.2020 Сообщений: 347
	24.05.2021, 23:15 [ТС]	9
	Zeag, У вас почему то страничный режим, не знаю почему, я сохраняла в обычном режиме Спасибо за код. Проверю на работе 0

@Zeag 834 / 484 / 186 Регистрация: 09.03.2009 Сообщений: 1,664
	24.05.2021, 23:38	10
	Я поставил страничный режим, чтобы посмотреть границы страниц. 0

@Alex77755 11513 / 3799 / 681 Регистрация: 13.02.2009 Сообщений: 11,217
	25.05.2021, 07:58	11
	с функцией Переворачивать страницы относительно короткого края У вас есть такая функция в принтере? сам переворачивает? Тогда попробуйте задать вывод на печать с этой функцией с записью макроса Возможно запишет параметр У меня такого нет - проверить не могу 1

@Karina4 2 / 4 / 0 Регистрация: 09.11.2020 Сообщений: 347
	25.05.2021, 10:46 [ТС]	12
	Zeag, Zeag, Ваш код не печатает вьдвухстороннем режиме, он печатает листы по отдельно, у меня принтер с функцией двухсторонней печати 0

@Zeag 834 / 484 / 186 Регистрация: 09.03.2009 Сообщений: 1,664
	25.05.2021, 10:52	13
	Мы на удаленке. У меня дома вообще никакого принтера нет. На работе без двухсторонки. Тыкать пальцем в небо в программировании проблематично. И сколь я вижу в гугле при поиске "excel двусторнняя печать", это вообще проблема не экселя, а настроек принтера - в нем отмечается соответствующий пункт. Для примера выведите в ОДИН (!) файл и потом из проводника его отправьте на ваш принтер и посмотрите результат. 1

@Karina4 2 / 4 / 0 Регистрация: 09.11.2020 Сообщений: 347
	25.05.2021, 12:28 [ТС]	16
	Zeag, на рабочем принтере область печати почему то изменилась. у меня дома по другому, я изменила область печати на A1:R52 0

@Karina4 2 / 4 / 0 Регистрация: 09.11.2020 Сообщений: 347
	03.06.2021, 22:09 [ТС]	20
	Разобралась. Спасибо. Оказывается всё было очень просто, просто нужно было один раз распечатать лист с функцией двухсторонней печати и сохранить файл, потом в коде печати указать диапазон печати двух листов, и всё, больше ничего не нужно при нажатии на кнопку печать эти два листа выходят в функцией двухсторонней печати так как мы сохраняли файл в таком виде Всем спасибо за отзывчивость 0

Двухсторонняя печать в EXEL. Код VBA

Решение

Решение