Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Настройки печати в VBA, вписать на 1 стр.
 
#1
30.12.2013 09:14:10
Доброе всем утро!
Подскажите, пожалуйста, как в VBA вписать содержимое листа на 1 стр?
Количество строк будет меняться плюс-минус несколько
Написала две строки (в файле), но их оказалось недостаточно - чего-то ему не хватает  :(
В полете голова - важнее крыльев
 
 
 
#2
30.12.2013 09:38:01
В модуль книги:
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$D$" & Cells(Rows.Count, 1).End(xlUp).Row
.FitToPagesWide = 1
.FitToPagesTall = 1
.CenterHorizontally = True
End With
End If
End Sub
 
 
 
#3
30.12.2013 10:09:22
k61, сделала, но все равно 2 страницы выходит...
В полете голова - важнее крыльев
 
 
 
#4
30.12.2013 10:16:46
Я, наверное, вопрос снимаю

Получилось вот так:
Код
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.HPageBreaks(1).DragOff Direction:=xlDown, RegionIndex:=1

Через эти никак не хочет делать
Код
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1

Спасибо за участие
И -  С Наступающим всех!
В полете голова - важнее крыльев
 
 
 
Страницы: 1
Читают тему
Наверх