Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Печать нескольких страниц на одном листе
 
#1
25.04.2008 18:09:08
Всем доброго дня!  
 
Просьба помочь вот в каком вопросе. Есть таблица из 4-х столбцов и энного количества строк. Нужно распечатать эту таблицу. Конечно же, в самом простом случае, можно просто вывести лист на печать и готово...  
 
Но я бы хотела, чтобы на одном печатном листе с альбомной ориентацией были бы размещены 2 табличные страницы, т.е. на первом листе слева шла бы таблица со строками, например, с 1 по 20, на том же листе справа будет продолжение таблицы со строками с 21 по 40, на 2-м листе слева пойдет все та же таблица со строками 41-60, справа - таблица со строками с 61 по 80.  
 
Распределение по 20 строк задано произвольно, это кол-во может меняться в зависимости от высоты строк.  
 
Я пробовала менять настройки в параметрах страницы (вкладка "размещать не более чем на..."), но пока безуспешно.  
 
Как бы сделать так, чтобы на одном листе печатались бы 2 страницы таблицы?  
 
Заранее признательна.
 
 
 
#2
25.04.2008 22:30:09
Посмотрите меню Параметры страницы - Лист и слева внизу "Вправо, затем вниз". Может Вы это ищете?
 
 
 
#3
26.04.2008 00:01:43
{quote}{login=Юрий}{date=25.04.2008 10:30}{thema=}{post}Посмотрите меню Параметры страницы - Лист и слева внизу "Вправо, затем вниз". Может Вы это ищете?{/post}{/quote} неее... Я пробовал повсяк. Никак не выходит, только отписать не успел, с работы убег ;)
 
 
 
#4
26.04.2008 08:47:11
Юрий - нет, точно не это, так как это я видела и в пятницу, не помогло и проблему не решило.  
 
Мазай - в настройках принтера где-то есть опция "выводить на печать ... листов". И далее выбираешь количество: 1, 2 или 4.  
 
Заходим: Файл - Параметры Страницы - Свойства - тут-то и выбираем опцию "количество страниц на стороне". По-моему, оно. В понедельник попробую.
 
 
 
#5
27.04.2008 00:04:09
{quote}{login=ГлавБух}{date=26.04.2008 08:47}{thema=}{post}Юрий - нет, точно не это, так как это я видела и в пятницу, не помогло и проблему не решило.  
 
Мазай - в настройках принтера где-то есть опция "выводить на печать ... листов". И далее выбираешь количество: 1, 2 или 4.  
 
Заходим: Файл - Параметры Страницы - Свойства - тут-то и выбираем опцию "количество страниц на стороне". По-моему, оно. В понедельник попробую.{/post}{/quote}  
 
и это тоже пробовал  
и пробовал баловаться с размерами страниц. и с ориентацией. и с порядком печати...  
извел кучу бумаги :-) черновиков, правда, но извел...  
 
ну не выходит каменный цветок!  
а вам брошюру надо сделать чтоли?    
да? может поиграться с ПДФ? печатать в пдф, а в акробате пробовать разместить две страницы А5 на одной А4 (лежа)?  
чесслово, в понедельник, если будет время, попробую!
 
 
 
#6
27.04.2008 01:01:06
Попробуйте вариант, я только-что распечатал 4 страницы на двух листах:  
ориентация страницы - книжная;  
свойства печати - ориентация книжная, 2 страницы на листе;  
установить разметку страницы и задать требуемую ширину страницы для печати - чтобы поместилось  2 страницы на листе.
 
 
 
#7
27.04.2008 02:00:00
---  
Есть специальная программа-драйвер, которая  позволяет печатать из любого Windows-приложения на одном листе разное количество страниц, создавать буклеты и т.п. Называется FinePrint, в Интернете на нее много ссылов, вот одна из них:  
http://fineprint.chat.ru/  
---  
ZVI
 
 
 
#8
27.04.2008 10:04:22
Мазай(он_же_mazayZR) - нет, не брошюру. Вышестоящая контора прислала шаблон отчета именно вот в такой форме, ну и меня замучил вопрос: а мы (т.е. наш филиал) что, пальцем деланные? Неужто не смогЁм такое изобразить? Так что, с нетерпением жду понедельничка!  
 
С праздником Вас!
 
 
 
#9
27.04.2008 12:18:25
Бух (главный), совсем ведь не факт, что они это сделали каким-то хитрым способом. Я могу это и руками сделать (часть таблички вырезать и вставить её правее). А потом макрос такой организовать. Нужно только определиться с количеством строк, оставляемых каждый раз для левой половинки.
 
 
 
#10
29.04.2008 14:55:08
прочитав вопрос про изменение полей по умолчанию, вспомнил и про эту тему :-)  
получается!  
но коряво, но получается  
такое нужно? врядли...  
лучше руками собрать, как и было предложено в предыдущем ответе от неподписавшегося коллеги.
 
 
 
#11
29.04.2008 20:38:11
Печать нескольких страниц на одном листе - исключительно вопрос к принтеру.  есть ли в ПО такая фишка.(примочки к Экс - это само собой)  
Пожалуйста подскажите кто работал с двух сторонним принтером и добился печати на лицевой и обратной стороне док-та соответственно данных с двух листов экс?
 
 
 
#12
29.04.2008 22:49:58
{quote}{login=ник}{date=29.04.2008 08:38}{thema=вопрос в тему}{post}Печать нескольких страниц на одном листе - исключительно вопрос к принтеру.  есть ли в ПО такая фишка.(примочки к Экс - это само собой)  
Пожалуйста подскажите кто работал с двух сторонним принтером и добился печати на лицевой и обратной стороне док-та соответственно данных с двух листов экс?{/post}{/quote}  
я печатал нечто подобное.  
Наши пользователи сподобились - разработали документ,  
на одном из листов данные через ВПР собирались с других листов. Этот печатный лист (АКТ разграничения) имел 2 размеченные области печати, при отправке на печать в опциях принтера указываешь, что печатать с двух сторон - принтер печатает первую область, переворачивает листик и печатает вторую( т.е. с точки зрения Excel - он просто отправляет два листа подряд на печать). ну, как вы догадываетесь, это по сути лицевая и обратная сторона акта.
 
 
 
#13
30.04.2008 21:06:50
спасибо!  
по другому наверное и не прокатит.
 
 
 
#14
01.05.2008 14:15:27
Есть в Windows стандартная программа - Document Image Printer - выводит файли в формате .mdi (типа .tiff), соответсвенно, поддерживает несколько страниц. Так вот, сначала необходимо напечатать документ так, как вы хотите, чтобы было на одной странице - т.е. ставите в настройках параметров страниц "книжная", выравниваете по количеству строк на листе и печатаете на этом принтере. У Вас получается файл, состоящий из нескольких страниц, который в последствие можно напечатать уже на нормльном (не виртуальном принтере), используя насройки принтера - 2, 4 страниц на листе. Попробуйте - решение достаточно простое и стандартными средствами без какого либо скачивания и установки доп. программ.
 
 
 
#15
14.01.2012 17:12:20
{quote}{login=sasa}{date=01.05.2008 02:15}{thema=про печать на одной странице нескольких листов}{post}Есть в Windows стандартная программа - Document Image Printer - выводит файли в формате .mdi (типа .tiff), соответсвенно, поддерживает несколько страниц. Так вот, сначала необходимо напечатать документ так, как вы хотите, чтобы было на одной странице - т.е. ставите в настройках параметров страниц "книжная", выравниваете по количеству строк на листе и печатаете на этом принтере. У Вас получается файл, состоящий из нескольких страниц, который в последствие можно напечатать уже на нормльном (не виртуальном принтере), используя насройки принтера - 2, 4 страниц на листе. Попробуйте - решение достаточно простое и стандартными средствами без какого либо скачивания и установки доп. программ.{/post}{/quote}  
Респект
 
 
 
#16
15.01.2012 00:33:15
Sub e120114_0009()  
'в первом приближении  
'дополнительно добавить размер шрифта  
'и выравнивание  
Dim j1, s1, s2  
Open "c:\00.doc" For Output As #1  
Print #1, "<html >"  
Print #1, "<head>"  
Print #1, "<style>"  
Print #1, "@page Section1"  
Print #1, "    {size:841.9pt 595.3pt;"  
Print #1, "    mso-page-orientation:landscape;"  
Print #1, "    margin:66.7pt 2.0cm 66.75pt 2.0cm;"  
Print #1, "    mso-header-margin:35.4pt;"  
Print #1, "    mso-footer-margin:35.4pt;"  
''''''''''''''''''''''''количество столбцов  
Print #1, "    mso-columns:2 even 14.2pt;"          
Print #1, "    mso-paper-source:0;}"  
Print #1, "div.Section1"  
Print #1, "   {page:Section1;}"  
Print #1, "</style>"  
Print #1, "</head>"  
Print #1, "<body lang=RU >"  
Print #1, "<div class=Section1>"  
Print #1, ""  
Print #1, "<thead>"  
Print #1, ""  
Print #1, ""  
Print #1, ""  
j1 = 0  
Do While j1 < 1000  
j1 = j1 + 1  
If Len(Excel.ActiveSheet.Rows(j1).Columns(1) & "") = 0 Then  
Exit Do  
End If  
Print #1, ""  
Print #1, ""  
Loop  
Print #1, "</html>"  
Close #1  
j1 = Shell("winword.exe c:\00.doc", vbNormalFocus)  
End Sub
ст1"  
Print #1, "		ст2"  
Print #1, "		ст3"  
Print #1, "		ст4"  
Print #1, "
"; Excel.ActiveSheet.Rows(j1).Columns(1)  
Print #1, "		"; Excel.ActiveSheet.Rows(j1).Columns(2)  
Print #1, "		"; Excel.ActiveSheet.Rows(j1).Columns(3)  
Print #1, "		"; Excel.ActiveSheet.Rows(j1).Columns(4)  
Print #1, "
 
 
 
Страницы: 1
Читают тему
Наверх