ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Разбивка при печати в Excel
11 сообщений из 11, страница 1 из 1
Разбивка при печати в Excel
    #36831097
Фотография Конякула
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Конякула
Участник
Други есть в Excel такая разбивка (см. приложенный файл). Надо чтобы при печати всегда разбивка была как обведено красным. Можно ли это сделать? Если да, то как.
...
Рейтинг: 0 / 0
06.09.2010, 11:18
| Ответить | Цитировать | Написать  
Разбивка при печати в Excel
    #36831123
Фотография Cat2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cat2
Участник
Конякула,

Не понял. Что меняется-то припечати?
...
Рейтинг: 0 / 0
06.09.2010, 11:25
| Ответить | Цитировать | Написать  
Разбивка при печати в Excel
    #36831190
Фотография Славик 02
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Славик 02
Участник
В Excel (у меня 2007) в нижнем правом углу есть три иконки: 'обычный', 'разметка страницы', 'страничный'. Два последних отображают таблицу на экране так, как она будет выглядеть при печати. Останется только подогнать размер ваших ячеек, чтобы они располагались на нужных страницах.
...
Рейтинг: 0 / 0
06.09.2010, 11:43
| Ответить | Цитировать | Написать  
Разбивка при печати в Excel
    #36831264
Фотография Конякула
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Конякула
Участник
Славик 02В Excel (у меня 2007) в нижнем правом углу есть три иконки: 'обычный', 'разметка страницы', 'страничный'. Два последних отображают таблицу на экране так, как она будет выглядеть при печати. Останется только подогнать размер ваших ячеек, чтобы они располагались на нужных страницах.
А сделать так, чтобы автоматом при печати не разбивались ячейки ни как нельзя? Подогнать по высоте - это не вариант.
...
Рейтинг: 0 / 0
06.09.2010, 12:06
| Ответить | Цитировать | Написать  
Разбивка при печати в Excel
    #36831273
Фотография Славик 02
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Славик 02
Участник
КонякулаА сделать так, чтобы автоматом при печати не разбивались ячейки ни как нельзя? Подогнать по высоте - это не вариант.
Выгрузить ячейки на разные листи и распечатать каждый лист?
...
Рейтинг: 0 / 0
06.09.2010, 12:09
| Ответить | Цитировать | Написать  
Разбивка при печати в Excel
    #36831329
Фотография Конякула
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Конякула
Участник
Славик 02КонякулаА сделать так, чтобы автоматом при печати не разбивались ячейки ни как нельзя? Подогнать по высоте - это не вариант.
Выгрузить ячейки на разные листи и распечатать каждый лист?
Такой вариант тоже не подойдет. Надо чтобы всё было на одном листе, но чтобы ячейка не разбивалась. Если не помещается переносилась целиком. Есть такая возможность?
...
Рейтинг: 0 / 0
06.09.2010, 12:30
| Ответить | Цитировать | Написать  
Разбивка при печати в Excel
    #36831631
Фотография Папа Игорь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Папа Игорь
Участник
Конякула, это не подойдет?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
With ActiveSheet.PageSetup
	'....

        .FitToPagesWide =  1 
        .FitToPagesTall =  1 

	'....
End With

Затем выделить необходимые для печати ячейки и послать на печать выделенный диапазон.
...
Рейтинг: 0 / 0
06.09.2010, 13:51
| Ответить | Цитировать | Написать  
Разбивка при печати в Excel
    #36840300
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Конякула,

Приведу кусок своего кода, не стал его переделывать, привожу как есть, думаю разберётесь:
Конкретно сама разбивка происходит в самом нижнем цикле кода.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
 'Установка параметров страницы.
 With ActiveSheet.PageSetup
   .Orientation = xlLandscape
   .PaperSize = xlPaperA4
   .LeftMargin = Application.CentimetersToPoints( 2 ) 'Ширина левого поля.
   .RightMargin = Application.CentimetersToPoints( 2 ) 'Ширина правого поля.
   .TopMargin = Application.CentimetersToPoints( 2 . 5 ) 'Высота верхнего поля.
   .BottomMargin = Application.CentimetersToPoints( 2 . 5 ) 'Высота нижнего поля.

   .Zoom = False 'Отключение маштабирования при печати.
   .FitToPagesWide =  1  '1 страница в ширину.
   .FitToPagesTall = False 'нужное количество страниц в высоту.
 End With
 
 
 ActiveWindow.View = xlPageBreakPreview 'Переключение в режим разметки страниц.
 ActiveSheet.ResetAllPageBreaks 'Сброс разметок активной страницы
 
 ActiveSheet.PageSetup.PrintArea = "A:AT" 'Установка области печати.
 
 
 ActiveWindow.Zoom =  85  'Установка маштаба текущей страницы.
 
 'Установка разметки страниц для печати.
 On Error Resume Next
 k =  0 
 For i =  85  To  20000  Step  80 
  k = k +  1 
  Set ActiveSheet.HPageBreaks(k).Location = Cells(i,  1 ) 'Установка обрыва страницы.
  If Err.Number <>  0  Then
   Err.Clear
   Exit For
  End If
 Next i
 On Error GoTo  0
...
Рейтинг: 0 / 0
10.09.2010, 13:57
| Ответить | Цитировать | Написать  
Разбивка при печати в Excel
    #36849780
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Конякула,

один из вариантов решения
...
Рейтинг: 0 / 0
16.09.2010, 11:55
| Ответить | Цитировать | Написать  
Разбивка при печати в Excel
    #36849816
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Конякула,
...
Рейтинг: 0 / 0
16.09.2010, 12:07
| Ответить | Цитировать | Написать  
Разбивка при печати в Excel
    #36850211
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sergeyvg
Гость
Вот пример процедуры расстановки горизонтальных разделителей в тех строках, где ячейка имеет верхнюю границу, т.е. поставит на границе объединенных ячеек колонки A.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Sub test()
'расстановка страниц по ячейке имеющей верхнюю границу в колонке A
Dim I As Long, RowUpN As Long, ErrHP As Long, FlagOut As Boolean
If ActiveSheet.Name = "Расчетки" Then
  Application.ScreenUpdating = False: ActiveSheet.DisplayPageBreaks = True
  ActiveWindow.View = xlPageBreakPreview: ActiveSheet.ResetAllPageBreaks
  For I =  1  To  10000 
    On Error Resume Next
    RowUpN = ActiveSheet.HPageBreaks(I).Location.Row 'строка с разделителем страницы
    ErrHP = Err.Number
    On Error GoTo  0 
    If ErrHP =  0  Then
      FlagOut = False
      Do While Cells(RowUpN,  1 ).Borders(xlEdgeTop).LineStyle = xlNone
        RowUpN = RowUpN -  1 : FlagOut = True
      Loop
      If FlagOut Then ActiveSheet.HPageBreaks.Add Rows(RowUpN)
    Else
      Exit For 'кончились страницы
    End If
  Next I
  ActiveWindow.View = xlNormalView: Application.ScreenUpdating = True
End If
End Sub
...
Рейтинг: 0 / 0
16.09.2010, 14:07
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Разбивка при печати в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36831190&tid=2177674]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 164ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 205ms
total:  445ms
созд. / загр.: 445ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]