Export in code not working

[jrisebo]

I have this code below. When it exports, it only picks a PDF size of 16.04x2075. How Do I get it just to be letter size?

Private Sub CommandButton1_Click()


For x = 2 To 100 'increase the 100 to a larger number if you ever have more than 100 sheets

If Sheets("Sheet1").Range("A" & x).Value = "" Then Exit Sub

Sheets("Table1").Range("A1").Value = Sheets("Sheet1").Range("A" & x).Value

Sheets("Table1").Range("A19").Value = Sheets("Sheet1").Range("A" & x).Value

Sheets("Table1").Range("E1").Value = Sheets("Sheet1").Range("C" & x).Value

Sheets("Table1").Range("E19").Value = Sheets("Sheet1").Range("C" & x).Value

Sheets("Table1").Range("H24").Value = Sheets("Sheet1").Range("C" & x).Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.path & "\S&R" & x & ".pdf"

Next
End Sub

 

[DanteAmor]

Before running the macro you must set the sheet printing settings, I assume it is the sheet "Table1". Then select the sheet Table1.
Use the Page Setup dialog box to set up layout and print options of a page.
Click on the Page Layout tab, then in the Page Setup group, click the Dialog Box Launcher .
Set Letter in Papper size option:

Try your macro.