サイズ指定なのですが
Printer.PaperSize = Printer.PaperSize
とうちその次に
各オプションに
Private Sub Option3_Click()
vbPRPSB3 = Printer.PaperSize
End Sub
や
Private Sub Option4_Click()
vbPRPSA3 = Printer.PaperSize
End Sub
などと打ったのですが実行してみるとオプションをクリックしたら
「定数に値を代入できません」とエラーがおきます。
しかしオプション3だけはエラー起きないのですが
4以降エラーが発生します。どうすればいいですか＞＜

とりあえず、VBでは代入式は 左辺 に 右辺の値 を 代入 するので
左辺は変数またはプロパティでなければなりません。
[= (代入) 演算子]:hhttp://www.microsoft.com/JAPAN/developer/library/Vbenlr98/vaoprassign.htm

ダメな例)
1 = 10
10 = vbYes
"ABC" = str ' strは変数名
vbNo = 10
vbPRPSA3 = Printer.PaperSize ' vbPRPSA3は定数 大体vb〜なのは定数です。

ちなみに、If文等で評価されるのは 論理式 となりますので 代入式 とは別の扱いになります。
[比較演算子]:hhttp://www.microsoft.com/JAPAN/developer/library/Vbenlr98/vagrpcomparison.htm

ものすごく基本的なことなので、いっていることがわからないようならばVB6系の参考書を購入して
学習されたほうがいいです。

ありがとうございました。無事にできました