逆引きヘルプ一覧表から、印刷関係を参照して
プリンタ設定ダイアログボックスの表示（その２）を
作ってみました
ダイアログボックスを使って、用紙サイズ、向きを変更して
快適に出力ができる様になりました。
しかし、プログラム終了後はその変更状態が残ってしまうため
プログラム終了時に、変更前の状態に戻したいと思います

何か良い方法はありますか？

> 出力が上手く行きましたがプログラム終了後、
> プログラム立ち上げ時の状態に戻したのですが

何を立ち上げ時の状態に戻したいのですか
あのプログラムは、単にプリンタ設定ダイアログボックスを表示しているだけですが。

> なかなか上手くいきません
何のどこが上手くいかないのですか？

タイトルや本文にも誤字のようなものが見受けられますが、［はじめにお読み下さい］の中の
掲示板ご利用に際しの5番と6番の内容をよく読んで質問内容をまとめて下さい。

>プログラム終了後、プログラム立ち上げ時の状態にする。

プログラム(※１)が終了しているのに、プログラム(※２)立ち上げ時の状態にする。
言っている意味がわかりません。
手を抜かず、５Ｗ１Ｈを加え説明してみてはいかがでしょうか？

質問内容をを修正しました

> 逆引きヘルプ一覧表から、印刷関係を参照して
> プリンタ設定ダイアログボックスの表示（その２）を
> 作ってみました
> ダイアログボックスを使って、用紙サイズ、向きを変更して
> 快適に出力ができる様になりました。
> しかし、プログラム終了後はその変更状態が残ってしまうため
> プログラム終了時に、変更前の状態に戻したいと思います
>
> 何か良い方法はありますか？

よろしくお願いします

CommonDialog を使ってみたら。
変更前の状況又は（変更した部分を）記録しておき後で元に戻せばいいのでは。

いろいろとお手間を取らせます
> CommonDialog を使ってみたら。
　　以前は使っていたのですが　WindowsXP、2000では用紙の変更がプリンタ上に
　　上手く伝わりませんでした（Windows98はOK)
　　そこで「VB友の会」の掲示板に出したところ、こちらを紹介され
　　「印刷関係」の掲載記事から「プリント設定ダイアログの表示」を
　　見つけ、早速プログラム作ってみたところです　　

> 変更前の状況又は（変更した部分を）記録しておき後で元に戻せばいいのでは。
　　私もそう思い、変数を使ってプリンタを変更したところで下記のようなステートメント
　　を挿入したところ、それまで出来ていた、変更したプリンタへの、用紙変更、向きが
　　NE00のプリンタの設定値を持ってくるようになりました
　　ここがどうしても分からないのですが？

          Dim Psize as Variant
          Dim Porient as Variant

          Private Sub Combo1_Click()
             'プリンターが変更されたら
              Dim objPrinter   As Printer
              Dim strMyPrinter As String
    
             '選択されているプリンター名を取得
              strMyPrinter = Combo1.Text
             '使用可能プリンターを調べ
              For Each objPrinter In Printers
                 '見つかったら
                  If objPrinter.DeviceName = strMyPrinter Then
                     'オブジェクトに代入
                      Set Printer = objPrinter
                  End If

          '****
　　　　　　      Psize = Printer.PaperSize
                  Porient = Printer.Orientation
          '****

              Next
          End Sub

      
　　今は、ここの掲載記事を参考に自分で簡単なプリンタ設定画面を
　　作ってみようとも考えています

いろいろありがとうございました
もし参考になるものが有りましたらよろしくお願いします

印刷する物の用紙サイズや向きが最初から決まっているなら、ダイアログを
表示してユーザに選択させなくてもプログラムで指定すればいいのでは
私の場合は殆どダイアログは使わず、プログラムで設定しています。
ユーザに印刷設定を任す場合は、データをExcelやWordに吐き出してユーザが
自由な形で印刷できるようにしています。（目的にあった手段を取っています）

>以前は使っていたのですが　WindowsXP、2000では用紙の変更がプリンタ上に
>上手く伝わりませんでした（Windows98はOK)

出尽くしている質問なので過去のログ等に対策がでているかと思うのですが（ここに限らず）
hhttp://www.bcap.co.jp/hanafusa/logbbs/wforum.cgi?mode=allread&no=7933

又、下記にも掲載されています。
hhttp://support.microsoft.com/default.aspx?scid=kb;ja;173981

こう言った問題に限らず質問する場合は、使用環境を詳しく明記して頂かないと
（必要により、周辺機器・IEやExcel＆Word等）無駄なやり取りが増えるばかりです。
「初めにお読み下さい」をよくご覧願います。

> こう言った問題に限らず質問する場合は、使用環境を詳しく明記して頂かないと
> （必要により、周辺機器・IEやExcel＆Word等）無駄なやり取りが増えるばかりです。
> 「初めにお読み下さい」をよくご覧願います。

いろいろありがとうございました
今後、気をつけますのでよろしくお願いいたします