• ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：printers コレクションについて）

プリンターの検索と指定方法について

nakashiの回答

  • ベストアンサー
  • nakashi
  • ベストアンサー率51% (21/41)
回答No.1

Private Sub Form_Load() 　 Dim lLoop As Long 　 For lLoop = 0 To Printers.Count - 1 　　 Debug.Print Printers(lLoop).DeviceName 　 Next lLoop End Sub で確認可能

xiaolong_goo
質問者

お礼

ありがとうございました。 すっきりしました。

この回答がついた質問に戻る
回答 全件
プリンターを指定するなら set printer=x でOK
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • WINDOWS2000でのプリンタの選択について

    通常使うプリンタにしていないプリンタを一時的に通常使うプリンタにして出力するようにしたいのですが、 WINDOWS2000だと、うまくいきません。 プログラム実行前に通常使うプリンタの名前をＡ、 プログラムを実行すると同じPCに設定されているＢのプリンタから出力したいのですが、下記のようにしてみたのですが、 Dim PrinterScale as Single Dim Name as String Dim X As Printer For Each X In Printers If X.DeviceName =　Ｂ Then Set Printer = X 　　　Name = Printer.DeviceName　・・・・　(1) 　　　PrinterScale = Printer.ScaleWidth 　　　Name = Printer.DeviceName ・・・・　(2) Exit For End If Next 上記の場合、(1)のときNameの文字列はＢなのですが、プロパティを参照したりすると(2)の段階でNameがＡに戻ってしまうのです。結局実行後プログラム上で指定したプリンタから出力されず、実行前に通常使うプリンタに設定していたプリンタから出力されてしまいます。 だけどこれはＯＳがWINDOWS2000の時だけで、WIN98やXPのときはプログラム上で指定したプリンタから出力してくれます。WINDOWS2000でプロパティの変更や参照をしても元にもどらない方法があれば教えてください。因みにAdmin権限でログインしています。

  • 全てのプリンター名を取得したい

    エクセルで全てのプリンターのプリンター名・ドライバー名・ポート名を取得する コードを実行したいのですが Sub Sample() Dim prtLoop As Printer For Each prtLoop In Application.Printers With prtLoop Debug.Print "Device name: " & .DeviceName Debug.Print "Driver name: " & .DriverName Debug.Print "Port: " & .Port End With Next prtLoop End Sub これをそのまま貼り付けて実行しようとすると、 「prtLoop As Printer」が、ユーザー定義型は定義されていません。 になります。 何に参照設定すればいいのかわからないので、 とりあえず Dim prtLoop As Object にしたのですが、 今度は For Each prtLoop In Application.Printers で 実行時エラー438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。 になります。 どうすればいいか教えてください。

  • CANON LBP-470ドライバでLIPS4以外のダウンロードが出来ませんか？

    みなさんこんばんは。 キャノンのレーザーショットでLBP-470のCDドライバを紛失してしまって、再インストールの際、キャノンのホームページからダウンロード　http://cweb.canon.jp/drv-upd/lasershot/drv_winxp.html したんですが、以前のような拡大縮小やページ指定等の事が出来ない簡易なドライバになっているんです。以前はたしかLIPS4ではなく、たしか　CANON LASERSHOT LBP470　というような感じで印刷選択の時書いてあったと思います。要するにプロパティ開いても詳細設定がまったく出来ないのです。 ちなみに　プリンタとFAX　から、プリンタの追加を行っても、メーカー名でCANONを選択してもLIPS4になっちゃうんです。 みなさんどうか是非教えてください。拡大縮小と、ページ指定が出来るようになりますようご指導願います。

  • プリンターを指定して印刷するには

    アクセスです。 フォームのコマンドボタンをクリックしてレポートを開きます。 ＶＢＡコードは Private Sub コマンド0_Click() DoCmd.OpenReport "レポート1" End Sub です。 レポートが開いたら、自動で印刷されますが、 それは、通常使うプリンタに設定しているプリンタで印刷されてしまいます。 そうではなく、 Bullzip PDF PrinterでＰＤＦ化させたいのですが、 レポートのイベントで、 Private Sub Report_Open(Cancel As Integer) End Sub で、プリンタを指定することは可能でしょうか？ 通常使うプリンタは Bullzip PDF Printerにはしたくないのです。 わがまま言ってごめんなさい。

  • レーザープリンターのカートリッジ

    エプソンのLP―S２１０というレーザープリンターを使っています。 http://www.epson.jp/products/printer/biz/lps210/ 消耗品のカートリッジを購入しようと思うのですが、 LPA４MTU２（３２５００円）、LPB４T１２V（１２１００円）、LPB４T１２（１５２００円）、 と三種類あり、何が違うのかよくわかりません。 http://www.epson.jp/products/supply/shoumouhin/data/printer/lp-s210.htm １２１００円と１５２００円のは型番も近いですし、ほぼ同じものと考えて良いのでしょうか。 １２１００円のほうが、環境に配慮したリサイクル品、ということでしょうか。 だったら正直、１２１００円のほうで良いと思うのですが、１５２００円のほうを 買うメリットはあるでしょうか。 また、３２５００円のはカートリッジの他にも何か付いてくる、ということでしょうか。 レーザープリンター自体に詳しくないのですが、それは絶対に必要なものでしょうか。 インクジェットプリンターは無くなるたびにインクを替えていればよかったですが、 レーザープリンターはインクが無くなるたびにカートリッジを替えるだけではいけないのでしょうか。 他にも定期的に何かしないといけないのでしょうか。 回答をお待ちしております。

  • どのプリンタを買うか悩んでいます。

    エプソンのモノクロレーザープリンタを買う予定です。 LP-S1100 http://www.epson.jp/products/offirio/printer/lps1100/index.htm もしくは LP-7900 http://www.epson.jp/products/offirio/printer/lp7900/ この二つで悩んでいます。 出したいものはイラストで、アミなどもつかっています。 1100の方は解像度が600dpi固定だそうで、イラストを出すのに600dpiの解像度でも問題ない感じでしょうか？ 7900は解像度も1200dpi相当とあり「ディテールまで鮮明に再現」とあるのでかなり惹かれていますが どうやらMacにあまり対応していないようなのです。 当方Macのtiger使用です。 http://www.epson.jp/support/taiou/os/appendix/osx_esc_page.htm#hikaku3 これを見てもいまいちよくわかりません。 使えない部分でこれはないと何が不便なのかというのもまったくわからず。 詳しい方々にアドバイスいただきたいと思い、質問いたしました。 貴方ならどちらを購入しますか？ よろしくお願い致します。

  • ドットプリンタでバーコードの印刷

    こんにちは。いつもお世話になっています。 現在、ドットプリンタにバーコードの印刷を試みていますが、 数値のままの表記になってしまい、うまくいきません。 他の方の質問・回答も検索し、いろいろ試したのですが 状況に変わりがなかったので改めて質問を書かせていただきました。 現在使用しているプリンタは、NECのMultiImpactです。 （VB6.0で作業しています。） 実際に現在組んでいるコードは下記のようなものです。 Public Sub AA() 　 ～略～ 　 Printer.FontName = "OCR-B 10cpi" 　 Printer.FontSize = 12 　 Call Prt_set(10, 200, strNo) '※1 　 Printer.Font.Charset = 0 　 Printer.Font = "Code39" 　 Call Prt_set(280, 240, "*123456*")　　'※2 　 Printer.Font.Charset = 128 　 Printer.FontName = "OCR-B 10cpi" 　 Call Prt_set(280, 500, strC) '※3 　 ～略～ End Sub '指定された位置に印字する Public Sub Prt_set(i As Integer, j As Integer, Moji As String) 　　 Printer.CurrentY = i 　　 Printer.CurrentX = j 　　 Printer.Print Moji End Sub 実行すると、 ※1と※3の文字は正常に出力されますが、※2はそのまま"*123456*"数値（文字列？）で印刷されてしまいます。 初心者のため、見苦しいコードになっているかもしれませんが、どなたかなにか教えていただけないでしょうか。 よろしくお願いします。

  • epsonのLP-S2290が動かない

    epsonのLP-S2290が動かない epsonのLP-S2290というプリンタをWindows Server2013のサーバーにつないで、ネットワーク越しに使っていましたが、今日使えなくなった。 同時にLP-S210も使えなくなった。 両方、単体では動きます。 PCに直接つなぐと動く Windows Server2013のコンソール端末からは動く サーバーと印刷機の接続はUSBで、 サーバーがネットワーク上にいるので Pcからサーバー上の印刷機という形で印刷していました。 昨日までできていました。 Windows server2013のサーバーのwindowsアップデートに関係する気がします。 何かわかる方おられませんか。 LP-S2290 https://shop.epson.jp/printer/laser/LP-S2290/ LP-S210 https://www.epson.jp/support/portal/support_menu/lp-s210.htm

  • プリンタ電源が入らない

    EPSON プリンタ　LP-S300N　の電源が入りません。きちんと使えるケーブルで試してみましたが入らないので、本体に原因があるようです。どのように対処すればよいのでしょうか？ ※OKWAVEより補足：「EPSON社製品」についての質問です。

  • SPOOLSV.EXEの異常？

    最近SPOOLSV.EXEが異常にCPUを占有し困っています。 印刷もしていないのに（もちろん起動してから何度かプリンタは使用していますが。）CPUを90%程度占有し、再起動するまでそのままです。 また、この状態が発生したときにインストールしているはずのプリンタが全てなくなってしまうという状態になることもあります。 どちらの事象も再起動すると消滅します。 システムはPen3 Win2000 SP2 512RAM です。 なお、システムにインストールしているプリンタは、 EPSON PM950C（直結） EPSON LP1900（共有） EPSON PM3500C（共有） ALPS MD5500（共有） CANON A304G2（共有） EPSON LP8800（LAN接続） EPSON PX9000（LAN接続） 以上７台です。 特にどのプリンタを使ったから発生するというものでもなく、いずれを使用しても発生するときには発生し、しないときにはしないので、単にPC側の問題だと思うのですが、今までに経験したことのない事象ですので対処に困っています。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する