Дана накладная реестра со значениями. Необходимо форматировать таблицу для печати в альбомной ориентации, таким образом чтобы поля умещались на одну страницу, без потери вида и уменьшений.
Sub applyStyles()
Dim tblRn As Range
If ActiveSheet.ListObjects.Count > 0 Then
For Each LO In ActiveSheet.ListObjects
LO.Unlist
Next
End If
Set tblRn = Range([A1].End(xlToRight), Cells(Rows.Count, 1).End(xlUp))
With tblRn
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
End With
ActiveSheet.ListObjects.Add(xlSrcRange, tblRn, , xlYes).Name = "ТаблицаЗаказа"
With ActiveSheet.ListObjects("ТаблицаЗаказа")
.TableStyle = "TableStyleLight9"
.ShowTotals = True
For i = 9 To 12
.ListColumns(i).TotalsCalculation = xlTotalsCalculationSum
Next i
End With
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub