Setting excel to landscape and setting print area from access

  • Thread starter Thread starter .
  • Start date Start date
?

.

I have an excel file that I create from access and I was wondering if there
is an easy way to set the page setup to landscape and to set the print area
width from access.
Is there an easy way to do this?

I created a macro with the excel macro recorder but I am not sure if I can
somehow use this code to have access do this. Any direction on this would be
appreciated.

thanks

Code: 
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.LargeScroll Down:=-1
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
Set ActiveSheet.HPageBreaks(1).Location = Range("A39")
 
Hi,

you can use the PageSetup object as in the example:

application.ActiveSheet.pagesetup.Orientation = xlLandscape

kind regards
Noëlla
 
Back
Top