Изменить параметры печати

[Vitek.i]

Вопрос следущего характера: у меня создаётся таблица, но при печати не умещается на один лист, вот хотелось что бы уместилось. Ведь можно программно изменить параметры печати, но как??? РАсчитываю на ваш талант, и не плохо бы с кодом.

[gsg]

With ActiveWorkbook.Sheets(1).PageSetup
.PrintArea = "$A$1:$C$10"
.LeftMargin = Application.CentimetersToPoints(1)
.RightMargin = Application.CentimetersToPoints(0.5 )
.TopMargin = Application.CentimetersToPoints(2.5 )
.BottomMargin = Application.CentimetersToPoints(0.5 )
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Zoom = 85
.и т.п.
End With

или

сервис>макрос>начать запись>смотрим результат

[Vitek.i]

Я как правильно пологаю это дело достигается масштабированим???

[EducatedFool]

это дело достигается масштабированим?

Нет.
Надо, наоборот, отменить масштабирование, и задать ограничения по количеству страниц в высоту и ширину:

Sub МакросДляРаспечаткиНаОДНОМЛисте()
    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
End Sub

[Vitek.i]

Спасибо за понимание