define page size

i use the code below to print a PDF...for some reason the page size is coming out as 11.81X15.28...is there a way to define the page size as 8.5x11?

  PdfFile = ActiveWorkbook.FullName
  i = InStrRev(PdfFile, "CURRENT PROJECTS")
  If i > 1 Then PdfFile = Left(PdfFile, i - 1)
  PdfFile = "CURRENT PROJECTS" & ".pdf"
 
  ' Export activesheet as PDF
    Worksheets("ACTIVE PROJECTS").Range("B3:H175").ExportAsFixedFormat _
     Type:=xlTypePDF, Filename:="S:\" & PdfFile, Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
  Shell "cmd /S " & """" & PdfFile & """", vbNormal

.
Resource: http://stackoverflow.com/questions/1...t-in-excel-vba

Resource: http://blogs.adobe.com/acrolaw/2015/...nd-dimensions/

Resource: http://www.mrexcel.com/forum/excel-q...lications.html

Everything I've read indicates it is not your coding. Has to do with the Printer Selection or settings in Windows.

Yeah that's how i was adjusting it in the past...something must have changed on my end that caused the paper layout to change. Thanks for the links! I will look into further, if i find anything different I'll post a reply. Thanks again!

Thank you for the Add Rep.