[Q]VB5:Ｐrinter オブジェクトを使用したプリンタの切り替え方法について

Article View: fj.lang.visualbasic

Article #1130

Back to fj.lang.visualbasic Previous Next

#1130

From: Masaaki Mishiba
Date: Thu, 06 Nov 1997 00:00

27 lines
1532 bytes

$B#V#B#5$K$F(B Printers $B%3%l%/%7%g%sFb$N%W%j%s%?$rA*Br$7$F(B
Printer$B%*%V%8%'%/%H$K@_Dj(B(Set Printer = Printers(n))$B$7(B
$B%W%j%s%?$r@Z$jBX$($F0u:~$7$h$&$H$7$?$H$3$m!"(B
Set Printer = Printers(n) $BD>8e$O(B $B#P(Brinter $B%*%V%8%'%/%H(B
$B$,@Z$jBX$o$C$F$$$k$N$K(BPrinter.Print$B$K$F0u:~$9$k%W%j%s%?(B
$B$O85$KLa$C$F$7$^$$$^$9!#(B

$B$I$N$h$&$K@Z$jBX$($?$i$$$$$N$G$7$g$&$+!#(B

Dim i%
For i% = 0 To Printers.Count - 1
    Set Printer = Printers(i%)

    ' $B%W%j%s%?$,@Z$jBX$o$k(B
    Debug.Print i%; "Printer.Print$BA0(B:"; Printer.DeviceName
    
    Printer.Print Printer.DeviceName ' $B@Z$jBX$o$C$?%W%j%s%?$G0u:~$7$J$$(B

    ' $B%W%j%s%?$,La$C$F$$$k(B
    Debug.Print i%; "Printer.Print$B8e(B:"; Printer.DeviceName

    Printer.EndDoc
Next i%
---
Masaaki Mishiba
masaaki@alles.or.jp

Technical Details

Message-ID: <63ru0r$170$1@news.alles.or.jp>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: Japanese,JIS
X-Google-Thread: 105c2e,75dcd802c4b0c469,start
X-Google-Attributes: gid105c2e,public
From: masaaki@alles.or.jp (Masaaki Mishiba)
Subject: [Q]VB5:Ｐrinter オブジェクトを使用したプリンタの切り替え方法について
Date: 1997/11/06
Message-ID: <63ru0r$170$1@news.alles.or.jp>
X-Deja-AN: 287369163
X-Posting-Software: WSNews 2.022
X-pgp-fingerprint: 6C 86 14 AC BB E7 57 4C  3A 09 49 E9 0A 4E 12 87
X-public-key-fail: http://www.venus.dtinet.or.jp/~jacky/hirano1024.asc
Organization: AllesNet
Newsgroups: fj.lang.visualbasic