通常使うプリンタを変更する方法を教えて

Thread View: fj.lang.basic

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by hss Mon, 20 Jan 1997 00:00

#271

Author: hss
Date: Mon, 20 Jan 1997 00:00

63 lines
2864 bytes

This is a multi-part message in MIME format.

------=_NextPart_000_01BC0714.E45A6140
Content-Type: text/plain; charset=ISO-2022-JP
Content-Transfer-Encoding: 8bit

$B$O$8$a$FEj9F$7$^$9!#(J


$B#V#B$N%5%s%W%k%W%m%0%i%`$r8+$?$H$3$m(J

Dim X As Printer
For Each X In Printers
	If X.Orientation = vbPRORPortrait Then
		' $B%W%j%s%?$r%7%9%F%`$NDL>o;H$&%W%j%s%?$K@_Dj$7$^$9!#(J
		Set Printer = X
		' $B%W%j%s%?$N8!:w$rCf;_$7$^$9!#(J
		Exit For
	End If
Next

$B$HM-$j$^$7$?$,!"$3$N#V#B%W%m%0%i%`Fb$G$OM-8z$K$J$j$^$7$?$,!"(J

$B$3$N8e$K!"#S#H#E#L#LJ8$rMxMQ$7$F0u:~$9$k%W%m%0%i%`$r5/F0$9$k$H(J

$BDL>o;H$&%W%j%s%?$NJQ99$,$5$l$^$;$s$G$7$?!#(J

$B#V#B$^$?$O!"#V#B$HCgNI$7$N0u:~%D!<%k$O!"0u:~B.EY$,CY$$$?$a(J

$B;d$O!"#C#O#B#O#L$r;H$C$F0u:~$7$h$&$H$7$F$$$^$9!#(J

$BDL>o;H$&%W%j%s%?$r1J5W$KJQ99$9$kJ}K!$rCN$C$F$$$kJ}65$($F2<$5$$!#(J

$B$h$m$7$/$*4j$$$7$^$9!#(J

E-Mail: hss@gix.or.jp


------=_NextPart_000_01BC0714.E45A6140
Content-Type: text/html; charset=ISO-2022-JP
Content-Transfer-Encoding: quoted-printable

<html><head></head><BODY bgcolor=3D"#FFFFFF"><p><font size=3D2 =
color=3D"#000000" face=3D"=1B$B#M#S=1B(J =
=1B$B#P%4%7%C%/=1B(J">=1B$B$O$8$a$FEj9F$7$^$9!#=1B(J<br><br><br>=1B$B#V#B=
$N%5%s%W%k%W%m%0%i%`$r8+$?$H$3$m=1B(J<br><br><font color=3D"#0000FF">Dim =
X As Printer<br>For Each X In Printers<br>&#009;If X.Orientation =3D =
vbPRORPortrait Then<br>&#009;&#009;' =
=1B$B%W%j%s%?$r%7%9%F%`$NDL>o;H$&%W%j%s%?$K@_Dj$7$^$9!#=1B(J<br>&#009;&#0=
09;Set Printer =3D X<br>&#009;&#009;' =
=1B$B%W%j%s%?$N8!:w$rCf;_$7$^$9!#=1B(J<br>&#009;&#009;Exit =
For<br>&#009;End If<br>Next<font =
color=3D"#000000"><br><br>=1B$B$HM-$j$^$7$?$,!"$3$N#V#B%W%m%0%i%`Fb$G$OM-=
8z$K$J$j$^$7$?$,!"=1B(J<br><br>=1B$B$3$N8e$K!"#S#H#E#L#LJ8$rMxMQ$7$F0u:~$=
9$k%W%m%0%i%`$r5/F0$9$k$H=1B(J<br><br>=1B$BDL>o;H$&%W%j%s%?$NJQ99$,$5$l$^=
$;$s$G$7$?!#=1B(J<br><br>=1B$B#V#B$^$?$O!"#V#B$HCgNI$7$N0u:~%D!<%k$O!"0u:=
~B.EY$,CY$$$?$a=1B(J<br><br>=1B$B;d$O!"#C#O#B#O#L$r;H$C$F0u:~$7$h$&$H$7$F=
$$$^$9!#=1B(J<br><br>=1B$BDL>o;H$&%W%j%s%?$r1J5W$KJQ99$9$kJ}K!$rCN$C$F$$$=
kJ}65$($F2<$5$$!#=1B(J<br><br>=1B$B$h$m$7$/$*4j$$$7$^$9!#=1B(J<br><br>E-M=
ail: hss@gix.or.jp<br><br><br></p>
</font></font></font></body></html>
------=_NextPart_000_01BC0714.E45A6140--

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads