お世話になります。
先日は、クリスタルレポートの件ありがとうございました。
環境はＶＢ２００５＋Ａｃｃｅｓｓ２０００で開発しております。
その中で帳票印刷を「クリスタルレポート」を使用して行っております。
今回プリンタの「通常使うプリンタ」の設定を変更しようと、
たとえばプリンタの設定が縦設定になっているものを
「Ａ４　横」に設定しようとおもっております。
調べたところ下記のコードがサンプルであったので
使用したところ、「通常使うプリンタ」の設定はかわりませんでした。
下記のコードは検討違いでしょうか？
宜しく尾根がします。

        'Dim strPapaerSZ As String
        Dim pPaperSz As System.Drawing.Printing.PaperKind



        '用紙サイズ-'A3にする
        pPaperSz = Printing.PaperKind.A3
        Dim pkSize As System.Drawing.Printing.PaperSize



        For Each pkSize In PrintDocument1.PrinterSettings.PaperSizes
            If pkSize.Kind = pPaperSz Then
                PrintDocument1.DefaultPageSettings.PaperSize = pkSize
            End If
        Next



        '用紙を横長に設定
        PrintDocument1.DefaultPageSettings.Landscape = True

> 使用したところ、「通常使うプリンタ」の設定はかわりませんでした。

用紙サイズは変わっていませんか？
それでは、プリンターのプロパティの値は変更できないはずですが。

> > 使用したところ、「通常使うプリンタ」の設定はかわりませんでした。
>
> 用紙サイズは変わっていませんか？
> それでは、プリンターのプロパティの値は変更できないはずですが。
現在しているのが、クリスタルレポートからの印刷をおこなっているのですが、
おそらく用紙サイズは変わっていると思うのですが、
印刷すると、「プリンタの設定」に依存されているような状態です。
プリンタの設定を手動で「A4　横」サイズに変更すると正常に印刷されます。
プリンタのプロパティ値を変更するのはまた別に方法があるのでしょうか？
以上の件宜しくお願いします。

私は、CrystalReport を使った事無いので知りませんが、CrystalReportの用紙設定は
CrystalReportの方の設定でできるのではないでしょうか？

http://tinyurl.com/5ljvhl

通常使うプリンターの用紙サイズを設定したいなら、Win32API関数を使ってもできます。