PS/55 さま。ありがとうございます。

Print1 の Exit For の前に

PrintDocument1.DefaultPageSettings.PaperSource = pt

と入れたらうまくいきました。

PrinterSettings　のデータを　PageSettings　に入れてやらないとだめと云う事ですね。
僕の読解力ではＭＳのＨＰから読み取ることができませんですね。
簡単に書いてくれればいいのにねぇ。
ヒントをいただき、ありがとうございました。