[SRC vba]Set ws = ThisWorkbook.Worksheets.Add
ws.Name = listname
With ws.PageSetup
    If CheckBox5.Value Then
        .Orientation = xlLandscape
    Else
        .Orientation = xlPortrait
    End If
    .LeftMargin = 10
    .RightMargin = 10
    .TopMargin = 30
    .BottomMargin = 30
    .FooterMargin = 10
    .CenterHorizontally = True
    .PrintTitleRows = "A3:A4"
    .RightFooter = "&N èç &P"
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = False
End With