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?
VBA Code:
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