MyTetra Share
Делитесь знаниями!
изменение внешних границ печати
Время создания: 16.03.2019 23:43
Текстовые метки: границы печати, PrintArea, excel , sheet
Раздел: !Закладки - VBA - Excel - Листы
Запись: xintrea/mytetra_db_adgaver_new/master/base/15167997560p9pvyoch0/text.html на raw.githubusercontent.com

'================================================================================

' ##### изменение внешних границ печати

'!!!!!нельзя одновременно изменить оба измерения границ печати

Function FnPrintArea()

On Error Resume Next

strDelim = "$"

strPrintArea = ActiveSheet.PageSetup.PrintArea

iNbRowEnd = Columns(2).Rows(Rows.Count).End(xlUp).Row

m = Split(strPrintArea, strDelim, -1, vbTextCompare)


' 1. выравниваем по столбцу

strPrintArea = strDelim & m(1) & strDelim & m(2) & strDelim & "E" & strDelim & m(4)

ActiveSheet.PageSetup.PrintArea = strPrintArea

' 2. выравниваем по строке

strPrintArea = strDelim & m(1) & strDelim & m(2) & strDelim & "E" & strDelim & iNbRowEnd

ActiveSheet.PageSetup.PrintArea = strPrintArea

'ActiveSheet.PageSetup.PrintArea = "$A$1:$E$9" & iNbRowEnd

'ActiveSheet.HPageBreaks(1).DragOff Direction:=xlDown, RegionIndex:=1

End Function

'================================================================================

Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования