Michael Wolfstone
asked on
How do I set printing options that work for Excel 2003 created in Access 2003 with VBA
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.Orienta tion = xllandscape
' xlsSheet.pagesetup.printgr idlines = True
xlsSheet.pagesetup.printhe adings = True
xlsSheet.pagesetup.lefthea der = "Weekly Handbag Report"
xlsSheet.pagesetup.righthe ader = "&D &T"
xlsSheet.pagesetup.PrintAr ea = "A2:P" & LastLine
' xlsSheet.pagesetup.FitToPa gesTall = ""
xlsSheet.pagesetup.fittopa geswide = 1
xlsSheet.Activate
xlsSheet.pagesetup.printti tlerows = activesheet.rows(1).Addres s
xlsSheet.pagesetup.Orienta
' xlsSheet.pagesetup.printgr
xlsSheet.pagesetup.printhe
xlsSheet.pagesetup.lefthea
xlsSheet.pagesetup.righthe
xlsSheet.pagesetup.PrintAr
' xlsSheet.pagesetup.FitToPa
xlsSheet.pagesetup.fittopa
xlsSheet.Activate
xlsSheet.pagesetup.printti
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER