| 投稿日 | ： 2005/01/05(Wed) 10:05 |
| 投稿者 | ： 高野俊憲 |
| Ｅメール | ： goma_nippon@r8.dion.ne.jp |
| ＵＲＬ | ： |
| タイトル | ： Re^3: プリンターの設定を元に戻す方法 |
いろいろとお手間を取らせます
> 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
今は、ここの掲載記事を参考に自分で簡単なプリンタ設定画面を
作ってみようとも考えています
いろいろありがとうございました
もし参考になるものが有りましたらよろしくお願いします