Форум

Sub Макрос3()

    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.31496062992126)
        .RightMargin = Application.InchesToPoints(0.31496062992126)
        .TopMargin = Application.InchesToPoints(0.31496062992126)
        .BottomMargin = Application.InchesToPoints(0.31496062992126)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
End Sub

Private GlobalTask1:="144",GlobalTask6:=Mdoc->dopcode,GlobalTask7:=Mdoc->NNOPER,GlobalTask8:=""
GlobalTask:="05"
Public ReestrParam:={;
                      {"Код реестра", "C", 3, 0,"{||GlobalTask1}"},;
                      {"Регистрационный номер документа", "C", 6, 0,"{||GlobalTask6}"},;
                      {"Уникальный код документа", "C", 22, 0,"{||GlobalTask7}"},;
                      {"Сортировка строк", "C", 0, 0,"{||GlobalTask8}"};
}
InitTaskParam()

GlobalTask:="05"
Public ReestrParam:={;
                      {"Код реестра", "C", 3, 0,"{||GlobalTask1}"},;
                      {"Регистрационный номер документа", "C", 6, 0,"{||GlobalTask6}"},;
                      {"Уникальный код документа", "C", 22, 0,"{||GlobalTask7}"},;
                      {"Сортировка строк", "C", 0, 0,"{||GlobalTask8}"};
}
InitTaskParam()

Memvar ReestrParam,GlobalTask1,GlobalTask2,GlobalTask3,GlobalTask4,GlobalTask5,GlobalTask6,GlobalTask7,GlobalTask8
Private GlobalTask1:="144",GlobalTask2:="",GlobalTask3:="",GlobalTask4:="",GlobalTask5:="",GlobalTask6:=Mdoc->dopcode,GlobalTask8:=Mdoc->NNOPER,GlobalTask8:=""
GlobalTask:="05"
Public ReestrParam:={;
                      {"Код арма", "C", 2, 0,"{|| GlobalTask}"},;
                      {"Код реестра", "C", 3, 0,"{|| GlobalTask1}"},;
                      {"Сортировка реестра", "C", 2, 0,"{|| GlobalTask2}"},;
                      {"Фильтр реестра", "C", 2, 0,"{|| GlobalTask3}"},;
                      {"Scope реестра", "C", 2, 0,"{|| GlobalTask4}"},;
                      {"Фильтр индекса реестра", "C", 2, 0,"{|| GlobalTask5}"},;
                      {"Регистрационный номер документа", "C", 6, 0,"{|| GlobalTask6}"},;
                      {"Уникальный код документа", "C", 22, 0,"{|| GlobalTask7}"},;
                      {"Сортировка строк", "C", 2, 0,"{|| GlobalTask8}"};
}//имена переменным выдумывать не стал, всё равно "тренировка"