Excel печать в несколько столбцов - Word и Excel - помощь в работе с программами

О том, как при помощи несложного макроса VBA в программе «Эксель» можно разместить данные из таблицы в две колонки для распечатки на принтере.

Приведенный в статье макрос является альтернативой опции «колонки» используемой в настройках «разметки страницы» программы Word .

Рассмотрим для примера таблицу с перечнем товаров хранящихся на складах. В данной таблице существует 4 столбца: номер подпункта, наименование товара, артикулярный номер товара на складе и место хранения (наименование склада).

№ п.п.	Наименование товара	Артикул	Место размещения
1	Яблоки	112	Склад №1
2	Щетка	18 445	Склад №4
3	Шаурма	65 631	Склад №3
4	Черничное варенье	31 754	Склад №5
5	Черника	30 544	Склад №4
6	Чаша	77 730	Склад №3
7	Чайный набор	40 223	Склад №2
8	Чай	58 372	Склад №2
9	Филе бобра	28 124	Склад №2
10	Тунец	52 322	Склад №2
11	Томаты	55 952	Склад №5
12	Тара Пластиковая	8 766	Склад №1
13	Сыр	63 211	Склад №1
14	Сывородка	64 421	Склад №2
15	Суши	46 273	Склад №2
16	Сливки	60 792	Склад №4
17	Слива	11 112	Склад №5
18	свежий карп	25 705	Склад №5
19	Сахар	41 433	Склад №3
20	Рыбий жир	26 914	Склад №1
21	Рыба мороженная	24 495	Склад №4
22	Поводок для собаки	20 865	Склад №1
23	Поводок для кошки	19 655	Склад №5
24	Пакет пластиковый	13 606	Склад №5
25	Пакет ПВХ	14 815	Склад №1
26	Оладьи замороженные	35 384	Склад №3
27	Носки мужские	74 101	Склад №5
28	Носки женские	72 891	Склад №4
29	Ножницы	11 186	Склад №3
30	Мякоть кокоса	29 334	Склад №3
31	Монитор 19″	36 594	Склад №4
32	Молоко	62 002	Склад №5
33	Мангал	48 693	Склад №4
34	Малина весовая	34 174	Склад №2
35	Лопата	66 841	Склад №4
36	Лом	68 051	Склад №5
37	Ложка чайная	42 643	Склад №4
38	Лодка надувная	47 483	Склад №3
39	Лавровый лист	37 804	Склад №5
40	Куртка стеганная	71 681	Склад №3
41	Красная краска	11 123	Склад №2
42	Кофе	59 582	Склад №3
43	Колготки женские	17 235	Склад №3
44	Клавиатура	12 396	Склад №4
45	Карп филе	51 112	Склад №1
46	Кабачки	57 162	Склад №1
47	Имбирь	43 853	Склад №5
48	Икра черная	23 285	Склад №3
49	Икра красная	22 075	Склад №2
50	Изюм	45 063	Склад №1
51	Земляника	32 964	Склад №1
52	Зелень (укроп)	2 112	Склад №3
53	Груша	1 222	Склад №4
54	Грибы	53 532	Склад №3
55	Горошек	54 742	Склад №4
56	Гиря	69 261	Склад №1
57	Вилки стальные	9 976	Склад №2
58	Ветошь	49 903	Склад №5
59	Весы	16 025	Склад №2
60	Ведро 8л	75 310	Склад №1
61	Ведро 10 л	76 520	Склад №2
62	Валенки	70 471	Склад №2
63	Бумага 400мг/м	39 013	Склад №1

Несмотря на то, что таблица имеет всего 4 столбца перечень товаров довольно обширный и при отправке на печать занимает не один печатный лист. При проведении ревизии на складе носить с собой кипу бумаги неудобно.

Чтобы сэкономить немного бумаги, тонера и электроэнергии затраченной на печать сама собой возникает идея распечатать таблицу в две колонки на каждом листе, но реализовать данную идею не так уж просто.

Если в программе Word есть функция во вкладке «Разметка страницы» называемая «Колонки», которая позволяет делить текст на несколько колонок, то в Excel такой опции найти не удается.

Поэтому, чтобы разделить данные из таблицы на две колонки, необходимо записать макрос, который будет выполнять указанные действия.

Макрос выглядит следующим образом:

Sub DveKolonki()

Dim sheetActive As Worksheet, sheetNoviy As Worksheet ‘добавляем переменные, как листы

Dim Vsego As Long, Perviy As Long ‘добавляем переменные для определения границ таблицы

Set sheetActive = ActiveSheet ‘присваиваем переменной активный лист

Vsego = sheetActive.Cells.Find(What:=»?», LookIn:=xlValues, LookAt:= _

xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _

, SearchFormat:=False).Row — 1 ‘определяем диапазон

Perviy = Application.WorksheetFunction.RoundUp(Vsego / 2, 0) ‘делим диапазон

Set sheetNoviy = Sheets.Add(, Sheets(Sheets.Count)) ‘определяем новый лист

sheetNoviy.Range(«A1:E1»).Value = sheetActive.Range(«A1:E1»).Value

sheetNoviy.Range(«F1:J1»).Value = sheetActive.Range(«A1:E1»).Value

sheetNoviy.Range(«A2»).Resize(Perviy, 5).Value = sheetActive.Range(«A2»).Resize(Perviy, 5).Value

sheetNoviy.Range(«F2»).Resize(Vsego — Perviy, 5).Value = _

sheetActive.Range(«A» & Perviy + 2).Resize(Vsego — Perviy, 5).Value ‘делим таблицу

End Sub

Необходимо в панели разработчика открыть просмотр кода и добавить код макроса в книгу Excel.

Запускать макрос можно из перечня макросов (книги макросов) или присвоить его активному элементу, например, кнопке или чекбоксу.

Подробнее о присвоение макроса кнопке далее по ссылке.

Источник

s7263808

Пользователь

Сообщений: 72
Регистрация: 18.11.2014

С Новым годом!
Данный вопрос обсуждался. Решение предлагалось при помощи надстройки PLEX.
Пробовал — у меня ничего не получилось.

Есть список 5-10 тыс строк. В списке 5 столбцов.
Список нужно распечатать в две колонки.

Прилагаю файл. В файле есть лист- ДАНО и лист как НАДО.
Спасибо.

Karataev

Пользователь

Сообщений: 2306
Регистрация: 23.10.2014

02.01.2015 21:24:22

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

Код

Sub Макрос()
    Dim shActive As Worksheet, shNew As Worksheet
    Dim total As Long, first As Long
    Set shActive = ActiveSheet
    total = shActive.Cells.Find(What:="?", LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False).Row - 1
    first = Application.WorksheetFunction.RoundUp(total / 2, 0)
    Set shNew = Sheets.Add(, Sheets(Sheets.Count))
    shNew.Range("A1:E1").Value = shActive.Range("A1:E1").Value
    shNew.Range("F1:J1").Value = shActive.Range("A1:E1").Value
    shNew.Range("A2").Resize(first, 5).Value = shActive.Range("A2").Resize(first, 5).Value
    shNew.Range("F2").Resize(total - first, 5).Value = _
        shActive.Range("A" & first + 2).Resize(total - first, 5).Value
End Sub

Korss Пользователь Сообщений: 72 Регистрация: 18.11.2014	Karataev, Огромное спасибо! Прошу прощения. Но я не знаю куда вставить этот код макроса и как его запустить.

Karataev Пользователь Сообщений: 2306 Регистрация: 23.10.2014	вам нужно один раз сделать работу или периодически надо делать эту работу?

Korss Пользователь Сообщений: 72 Регистрация: 18.11.2014

Karataev Пользователь Сообщений: 2306 Регистрация: 23.10.2014	вставил макрос в файл и сделал кнопку для запуска макроса Прикрепленные файлы Макрос.xlsm (55.43 КБ) Изменено: Karataev — 02.01.2015 21:54:17

Korss Пользователь Сообщений: 72 Регистрация: 18.11.2014	При запуске макроса всплывает окно

Karataev Пользователь Сообщений: 2306 Регистрация: 23.10.2014	при открытии файла вверху появляется панель с кнопкой,на которой написано про макросы ? я внес изменения в файл,поэтому на всякий случай скачайте файл еще раз

Korss Пользователь Сообщений: 72 Регистрация: 18.11.2014	Открыл книгу заново — работает. Огромное спасибо!

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970	Korss, у меня при первом скачивании сработало нормально Лень двигатель прогресса, доказано!!!

Leanna

Пользователь

Сообщений: 816
Регистрация: 15.01.2013

#11

02.01.2015 22:36:51

раз делала выкладываю
от выделения отталкивается.

Код

Sub Разбить_по_столбцам()
Const newrr = 15 'новое кол-во строк
Set output = Sheets("Дано").[G1] 'куда выводить

rr = Selection.Rows.Count
cc = Selection.Columns.Count
Set cell = Selection.Cells(2, 1)

ii = Application.WorksheetFunction.RoundUp((rr - 1) / (newrr - 1), 0)
title0 = cell.Offset(-1, 0).Resize(1, cc)

For i = 0 To ii - 1
output.Offset(0, cc * i).Resize(1, cc) = title0
output.Offset(1, cc * i).Resize(newrr - 1, cc).Value = _
    cell.Offset((newrr - 1) * i, 0).Resize(newrr - 1, cc).Value
Next

End Sub

Прикрепленные файлы

Печать списка в две колонки.xlsm (59.33 КБ)

Работать надо не 12 часов, а головой.

Korss

Пользователь

Сообщений: 72
Регистрация: 18.11.2014

Leanna,Спасибо. Попробовал.
С Вашего позволения уточню задачу.

Изначально список может быть до 20 000 строк по 5 столбцов.
Если будет 9000 строк две колонки будут занимать 4500 строк на листе.
Если 4000 то 2000 на листе.

Мне ответил

Karataev

у него все как надо.
Но Вам тоже спасибо.

Изменено: Korss — 03.01.2015 00:46:57

fater

Пользователь

Сообщений: 1
Регистрация: 11.03.2017

Здравствуйте может кто ни будь помочь необходимо поделить список на две колонки, но в данном макросе делится ровно пополам по всему тексту, а нужно чтоб каждая вторая страница поднималась к первой.
Сейчас делается
1 5
2 6
3 7
4 8
а нужно
1 2
3 4
5 6
7 8

Количество строк до 100000. Пример во вложение.

Прикрепленные файлы

п.xls (74.5 КБ)

Изменено: fater — 09.04.2017 09:40:29

Stane Пользователь Сообщений: 1 Регистрация: 30.01.2018	Актуально ? самому понадобилось… набросал программку

Svetllllana Пользователь Сообщений: 4 Регистрация: 21.12.2015	#15 13.11.2018 13:53:58 Stane, очень пригодился ответ! Спасибо большое!

Источник

Предположим, что в столбце A есть лист с более чем 200 именами, и если вы хотите распечатать этот лист, он займет довольно много страниц. Как можно перед печатью переформатировать такой длинный столбец на несколько столбцов, чтобы он поместился на одной печатной странице? Kutools for ExcelАвтора Разделить на столбцы Утилита может помочь вам разделить / переформатировать длинный столбец на несколько столбцов, чтобы быстро уместить его на одной печатной странице, и сэкономить чернила и бумагу для принтера, когда вам нужно напечатать такой длинный столбец в Excel.

Разделение / переформатирование длинного столбца на несколько столбцов для размещения на одной печатной странице для печати

Нажмите Кутулс Плюс >> Разделить на столбцы. Смотрите скриншоты:

Разделение / переформатирование длинного столбца на несколько столбцов для размещения на одной печатной странице для печати

1. Примените утилиту (Нажмите Кутулс Плюс > Разделить на столбцы) и выберите Диапазон данных и Диапазон названий следующим образом. Смотрите скриншот:

2. Задайте другие настройки следующим образом. Смотрите скриншот:

A: Укажите, сколько строк вы хотите отображать на каждой распечатанной странице.

B: Укажите, сколько сегментов вы хотите отображать на каждой распечатанной странице.

C: Будет создана ссылка на исходный лист. Примечание: эта утилита переформатирует / разделит длинный столбец на несколько столбцов на новом листе..

3. Нажмите Ok. Вы увидите результат на новом листе, как показано ниже. Смотрите скриншот:

Заметки:

1. Заголовки каждого столбца будут добавлены перед каждым столбцом.

2. Новые данные рабочего листа можно связать с исходными данными, если вы отметите Создать ссылку с активным листом опцию.

Демонстрация: печать списка в несколько столбцов для размещения на каждой печатной странице в Excel

Рекомендуемые инструменты для повышения производительности
Следующие ниже инструменты могут значительно сэкономить ваше время и деньги. Какой из них вам подходит?
Office Tab: Использование удобных вкладок в вашем офисе, как и в случае Chrome, Firefox и New Internet Explorer.
Kutools for Excel: Более 300 дополнительных функций для Excel 2021, 2019, 2016, 2013, 2010, 2007 и Office 365.

Kutools for Excel

Описанный выше функционал — лишь одна из 300 мощных функций Kutools for Excel.

Предназначен для Excel(Office) 2021, 2019, 2016, 2013, 2010, 2007 и Office 365. Бесплатно скачать и использовать в течение 60 дней.

Комментарии (0)

Оценок пока нет. Оцените первым!

Источник

Макрос выглядит следующим образом:

Sub DveKolonki()

Dim sheetActive As Worksheet, sheetNoviy As Worksheet ‘добавляем переменные, как листы

Dim Vsego As Long, Perviy As Long ‘добавляем переменные для определения границ таблицы

Set sheetActive = ActiveSheet ‘присваиваем переменной активный лист

Vsego = sheetActive.Cells.Find(What:=»?», LookIn:=xlValues, LookAt:= _

, SearchFormat:=False).Row — 1 ‘определяем диапазон

Perviy = Application.WorksheetFunction.RoundUp(Vsego / 2, 0) ‘делим диапазон

Set sheetNoviy = Sheets.Add(, Sheets(Sheets.Count)) ‘определяем новый лист

sheetNoviy.Range(«A1:E1»).Value = sheetActive.Range(«A1:E1»).Value

sheetNoviy.Range(«F1:J1»).Value = sheetActive.Range(«A1:E1»).Value

sheetNoviy.Range(«A2»).Resize(Perviy, 5).Value = sheetActive.Range(«A2»).Resize(Perviy, 5).Value

sheetNoviy.Range(«F2»).Resize(Vsego — Perviy, 5).Value = _

sheetActive.Range(«A» & Perviy + 2).Resize(Vsego — Perviy, 5).Value ‘делим таблицу

End Sub

Необходимо в панели разработчика открыть просмотр кода и добавить код макроса в книгу Excel.

Подробнее о присвоение макроса кнопке далее по ссылке.

Похожее:

Источник

Как напечатать несколько таблиц Excel на одной странице – Вокруг-Дом – 2023

Возможность печатающего устройства в автоматическом режиме наносить текст или изображения на обе стороны одного листа называется «дуплексной» (двухсторонней) печатью. В английской терминологии это свойство обозначается как «Duplex».

Как правильно сделать копию с двух сторон?

Поднимите крышку сканера, поместите документ на стекло сканера лицевой стороной вниз и закройте крышку сканера.
Выполните одно из следующих действий: …
Нажмите клавишу Дуплекс.
С помощью стрелок ↑ или ↓ выберите тип копирования (1-стор -> 2-стор Д. …
Нажмите OK.
Нажмите клавишу Старт для копирования документа.

Как распечатать всю книгу Excel двух сторон?

в драйвере принтера включаем режим печати с обеих сторон (обычно по умолчанию выключен)
в EXCEL выделяем 1й нужный лист нажатием на вкладку листа и в параметрах печати нужного принтера указываем, что печатать будем на 2х сторонах.
выделяем 2й нужный лист и делаем то же самое

Панель Печать в Microsoft Excel

В данном уроке мы разберем основной инструмент Microsoft Excel, позволяющий печатать документы на принтере. Этим инструментом является панель Печать, которая содержит множество самых различных команд и настроек. В рамках данной статьи мы подробно изучим все элементы и команды панели, а также последовательность вывода книги Excel на печать.

Со временем обязательно возникнет необходимость распечатать книгу, чтобы всегда иметь под рукой или передать кому-либо в бумажном виде. Как только макет страниц будет готов, вы тут же можете вывести книгу Excel на печать с помощью панели Печать.

Изучите уроки из серии Разметка страницы, чтобы подробнее узнать о подготовке книг Excel к печати.

Как правильно распечатать текст на принтере?

Откройте или перейдите к документу, который нужно распечатать. …
Перейдите в меню”Файл”. …
Сделайте предварительный просмотр страницы. …
Нажмите кнопку “Печать”. …
Выполните настройки в меню печати. …
Нажмите кнопку “Свойства”, “Свойства принтера” или “Настройка”. …
Нажмите кнопку “OK” или “Печать”.

Есть ли в моем принтере двухсторонняя печать?

Существует два способа определить наличие возможности техники выполнять подобные действия «на автомате».

При использовании нескольких устройств пункт «Двухсторонняя» присутствует, то обладать ее может только один из них. Важно знать какой именно.

Если у Вас МФУ, которое может делать копии на две стороны сразу, то, скорее всего, принтер тоже это «умеет».

Как убрать двустороннюю печать на принтере?

Чтобы отключить двустороннюю печать в текущем документе, заходим в «Файл», далее «Печать» (или используем комбинацию Ctrl + Р). Здесь в параметрах распечатки устанавливаем «Односторонняя печать» и жмем «Ок».

Можно ли печатать документы с двух сторон?

При изготовлении документов на двух и более страницах вторую и последующие страницы нумеруют. … С учетом этого правила можно сделать вывод, что изготовление (печатание) документов с использованием оборотной стороны листа бумаги допускается, считается возможным. При этом лицевая и оборотная стороны каждого листа, т. е.

Инструкция: как убрать двустороннюю печать

После выполнения работы необходимо вернуться в прежний формат выведения страниц. Если вы больше не будете обращаться к дуплексному в варианту расположения текста, можете зайти в настройки и вернуть исходный вариант. Сделать это достаточно просто, выполните все по описанному ниже плану:

После выполнения текущей задачи снова зайдите в диалоговое окно с настройками печати.
Для этого нажмите на соответствующую кнопку в левом верхнем углу экрана, после этого выберите свойства.
В предложенном контекстном меню из открывшегося списка выберите пункт односторонней распечатки. Программа автоматически перейдет на выбранный способ.

Важно! При желании можно выставить необходимый формат по умолчанию для автоматического его включения при работе. Для этого найдите соответствующее значение в параметрах работы принтера.

Как распечатать эксель на одном листе

Видео: Двухсторонняя печать документа в Word

Как правильно и красиво сделать оглавление в Ворде?
Как убрать номера страниц в Ворде?
Как отправить файл ВКонтакте?
Как редактировать PDF-документ?
Как составить резюме на работу на английском языке?

Как распечатать страницу или несколько страниц листа?

Выбрав в этом окне опцию «Страницы» можно задать регуляторами значения нужных страниц и при необходимости можно задать число копий в группе «Копии». Для отправки выбранных страниц на принтер нажимается кнопка «ОК».

Как распечатать несколько листов в нескольких книгах?

Мнение эксперта

Знайка, самый умный эксперт в Цветочном городе

Если у вас есть вопросы, задавайте их мне!

Задать вопрос эксперту

В Excel листы и книги можно печатать целиком, по частям, по одному листу или выборочно тут ограничений нет, главной знать где находиться все эти настройки. Если же вы хотите что-то уточнить, я с радостью помогу!

Для печати всех книг эксель для начала нужно перейти в настройки. Выберите Файл > Печать. В настройка выберите пункт «Напечатать всю книгу». Вот и все, осталось запустить в печать.

Печать таблицы (прайс-лист) в две колонки (два столбца)

Откройте вкладку передней или фоновой страницы, размер которой нужно изменить.
На вкладке Конструктор нажмите кнопку вызова диалогового окна Параметры страницы.
На вкладке Размер страницы в группе Размер страницы выберите нужный размер страницы документа.

На этом все, мы показали 7 вариантов как можно распечатать документ эксель. Если вы не нашли нужны вам вариант или в процессе возникли вопросы, вы можете написать комментарии к этой инструкции и мы постараемся вам помочь.

Как сделать таблицу в Экселе на лист а4? Подборки ответов на вопросы

Мнение эксперта

Знайка, самый умный эксперт в Цветочном городе

Если у вас есть вопросы, задавайте их мне!

Задать вопрос эксперту

С учетом этого правила можно сделать вывод, что изготовление печатание документов с использованием оборотной стороны листа бумаги допускается, считается возможным. Если же вы хотите что-то уточнить, я с радостью помогу!

Выберите Файл > Печать или нажмите клавиши CTRL + P. Затем в «Настройках» нужно выбрать «Вписать лист на одну страницу». Поле этого нажмите «Печать»

Как распечатать 2 лист Excel с двух сторон? Стройка от А до Я

Также в настройках можно выбрать формат бумаги начиная от 22х11 см до формата А3, если у вас закончилась бумага, приобрести ее можно на https://lucky-print.biz/fotobumaga-a3, это означает, что даже если у вас большая таблица вы без проблем ее можете распечатать в нужно вам формате.

Печать таблицы Excel на одном листе (странице)

Выберите меню «Файл» > «Печать». Во всплывающем меню «Масштаб страницы» выберите «Несколько страниц на одном листе». Во всплывающем меню «Страниц на листе» выберите значение.

Мнение эксперта

Знайка, самый умный эксперт в Цветочном городе

Если у вас есть вопросы, задавайте их мне!

Задать вопрос эксперту

Хотите распечатать документ на бумаге А3 не проблема. Перейдите в «Файл» пункт «Печать». Теперь в пункте размер страницы выберите «А3», затем нажми «Печать».

Печать таблицы в Excel — настройка области и границ печати Excel | Exceltip

Источник