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

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

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

        .FitToPagesWide =  1 
        .FitToPagesTall =  1 

	'....
End With

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

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

Код: 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
| Ответить | Цитировать | Написать  
16.09.2010, 11:55
    #36849780
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбивка при печати в Excel
Конякула,

один из вариантов решения
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.09.2010, 12:07
    #36849816
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбивка при печати в Excel
Конякула,
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.09.2010, 14:07
    #36850211
sergeyvg
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбивка при печати в Excel
Вот пример процедуры расстановки горизонтальных разделителей в тех строках, где ячейка имеет верхнюю границу, т.е. поставит на границе объединенных ячеек колонки 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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Разбивка при печати в Excel / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 550ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2177674]:
 0ms
get settings:
 11ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 191ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 252ms
total:  550ms
x
x
Закрыть


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