Ｐａｇｅ 77 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼プリンタを探したいのです。 ちょび 02/9/13(金) 15:56 ┗Re:プリンタを探したいのです。 ぴかる 02/9/13(金) 17:49 ┗Re:プリンタを探したいのです。 ちょび 02/9/13(金) 18:58 ─────────────────────────────────────── ■題名 ： プリンタを探したいのです。 ■名前 ： ちょび ■日付 ： 02/9/13(金) 15:56 -------------------------------------------------------------------------
| こんにちは。ちょびです。 またまたお願いいたします。 前に通常のプリンタを設定する方法のことで助けていただきました。 それに似ているかもしれないのですが・・・・ 学習能力がなくて、すみません(^_^;) 指定するプリンタが無い場合、メッセージを出したいのです。 前の時の例を使わせてください。 Private Sub SaveButton1_Click() ' 現在表示中の計算結果をPDFに出力 Application.ActivePrinter = "Acrobat PDFWriter on LPT1:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "Acrobat PDFWriter on LPT1:" End Sub 現在上のように書いているのですが、これだとAcrobat PDFWriter が入ってないパソコンではエラーになってしまいます。 そこで、記述の中にプリンタ（Acrobat PDFWriter）を探して、無ければメッセージを 出すようにしたいのですが・・・ どなたか助けてくれませんか？お願いします。 |
| ちょびさん、こんにちは。 エラーが出るということでしたら、それを活用するのが簡単かも？。 こんなんでどうかなぁ〜？。 Private Sub SaveButton1_Click() ' 現在表示中の計算結果をPDFに出力 On Error GoTo エラー処理 Application.ActivePrinter = "Acrobat PDFWriter on LPT1:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "Acrobat PDFWriter on LPT1:" Exit Sub エラー処理: MsgBox "このプリンタはないよ。" End Sub |
| ぴかる さん、こんばんは〜 そっくりコピペしたら、成功しました。＼(^o^)／ ありがとうございました。 うれしーーーーー！ |