🚀 go-pugleaf

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--