Sub Test() If ActivePage.Paper <> "Letter" Then ActivePage.SizeWidth = 8.5 ActivePage.SizeHeight = 11 End IfEnd Sub
The following VBA example displays a warning if the selected paper size is not a standard one.Sub Test() If ActivePage.Paper = "Custom" Then MsgBox "Attention: non-standard page size used!" End IfEnd Sub