Dim oXLApp As Excel.Application       'Declare the object variables
    Dim oXLBook As Excel.Workbook
    Dim oXLSheet As Excel.Worksheet
36  Set oXLApp = New Excel.Application    'Create a new instance of Excel
38  Set oXLBook = oXLApp.Workbooks.Add    'Add a new workbook
40  Set oXLSheet = oXLBook.Worksheets(1)  'Work with the first worksheet
 
42  With oXLSheet.PageSetup
44      .LeftMargin = Application.CentimetersToPoints(0.5)
46      .RightMargin = Application.CentimetersToPoints(0.5)
48      .BottomMargin = Application.CentimetersToPoints(0.5)
50      .TopMargin = Application.CentimetersToPoints(0.5)
52      .RightHeader = "&R Seite &P von &N"
54      .CenterHeader = MeineDatenNachname
56      .LeftHeader = "Stand:" & Format(Date, "dd.mm.yyyy")
60      .HeaderMargin = Application.CentimetersToPoints(1)
62      .PrintHeadings = False
64      .PrintGridlines = True
66      .PrintComments = xlPrintNoComments
68      .PrintTitleRows = "$1:$4"
70      .CenterHorizontally = False
72      .CenterVertically = False
74      .Orientation = xlLandscape
76      .Draft = False
78      .PaperSize = xlPaperA4
80      .FirstPageNumber = xlAutomatic
82      .Order = xlDownThenOver
84      .BlackAndWhite = False
86      .Zoom = 100
88  End With