I am trying to code a spreadsheet from Access 2003 that will print in landscape on a 1-wide format. I can get the landscape setting but the code for 1-wide is not working or holding in the saved spreadsheet. I am trying with the following code:
xlsSheet.pagesetup.Orientation = xllandscape
' xlsSheet.pagesetup.printgridlines = True
xlsSheet.pagesetup.printheadings = True
xlsSheet.pagesetup.leftheader = "Weekly Handbag Report"
xlsSheet.pagesetup.rightheader = "&D &T"
xlsSheet.pagesetup.PrintArea = "A2:P" & LastLine
' xlsSheet.pagesetup.FitToPagesTall = ""
xlsSheet.pagesetup.fittopageswide = 1
xlsSheet.pagesetup.printtitlerows = activesheet.rows(1).Address