Вопрос по excel. Как задать всем листам одинаковые параметры страницы? #299119

мож ли где-нить в параметрах задать всем листам одинаковые параметры страницы, или это через шаблон

поподробнее...

отчет запоминаю в exel, в нескольких листах, затем печатаю и каждый раз переходя на новый лист нужно задавать параметры страницы, чтоб распечатать

Если отчет сразу запомнаешь в exel- это одно, а если сначала выводишь в 1с на экран, то это функция ПараметрыСтраницы.

нет я про exel? в 1с я знаю, я их тупо запоминаю ,создаю листы и пытаюсь печатать

Заходишь в макрос exel в режиме конструктора. Форматируешь лист как угодно и смотришь текст в макросе.

выдели все листы (с Ctrl), зайди в Параметры страницы....

спасибо, разберусь дальше... я думала это назначить можно просто через меню...откопала вид-представление, что-похожее, но не получается...

ой, спасибо огроменное получилось...а то я наклепала листов ...

[1C] Sub ps    On Error Resume Next    Dim ps As PageSetup, c As Worksheet    Set ps = ThisWorkbook.Worksheets.PageSetup    For Each c In ThisWorkbook.Worksheets        With c.PageSetup        .BlackAndWhite = ps.BlackAndWhite        .BottomMargin = ps.BottomMargin        .CenterFooter = ps.CenterFooter        .CenterHeader = ps.CenterHeader        .CenterHorizontally = ps.CenterHorizontally        .CenterVertically = ps.CenterVertically        MsgBox ps.ChartSize        .ChartSize = ps.ChartSize        .Draft = ps.Draft        .FirstPageNumber = ps.FirstPageNumber        .FitToPagesTall = ps.FitToPagesTall        .FitToPagesWide = ps.FitToPagesWide        .FooterMargin = ps.FooterMargin        .HeaderMargin = ps.HeaderMargin        .LeftFooter = ps.LeftFooter        .LeftHeader = ps.LeftHeader        .LeftMargin = ps.LeftMargin        .Order = ps.Order        .Orientation = ps.Orientation        .PaperSize = ps.PaperSize        .PrintArea = ps.PrintArea        .PrintComments = ps.PrintComments        .PrintErrors = ps.PrintErrors        .PrintGridlines = ps.PrintGridlines        .PrintHeadings = ps.PrintHeadings        .PrintNotes = ps.PrintNotes        .PrintQuality = ps.PrintQuality        .PrintTitleColumns = ps.PrintTitleColumns        .PrintTitleRows = ps.PrintTitleRows        .RightFooter = ps.RightFooter        .RightHeader = ps.RightHeader        .RightMargin = ps.RightMargin        .TopMargin = ps.TopMargin        .Zoom = ps.Zoom        End With    Next End Sub [/1C]