過去ログ

記事一覧

【EXCEL VBA】指定したネットワークプリンターで印刷するマクロ

ネットワーク接続の共用プリンターがオフィスでは最早当たり前でありますが、エクセルVBAにおいてはそのネットワークプリンターを選択するというのは中々難しいのが現状です。

「何が難しいのか、プリンター名で選択すればいいのでは?」とまぁそうなんですが、Windowsで認識されるネットワークプリンターというのはプリンター名の他に「NeXX:」というプリンタードライバー名には記載されないポート名が付与されています。

このXXの部分は概ねプリンターをインストールした順に連番が振られるのですが、プリンターセットアップ時に取得したXXと再起動後のXXが一致しないなど結構面倒でして、また個人でプリンターを追加/削除した際にXX部分の番号が入れ替わるなど汎用マクロを配布するには少々ハードルが高くなります。

通常の対策としてはプリントダイアログを表示させ、手動で印刷プリンターを選んでもらうのが一般的。


Application.Dialogs(xlDialogPrint).Show

一度選んだら複数枚印刷は前のプリンター名を引き継ぎますが、現在選択されているプリンター名だけではXXの部分が分からないので再指定に引数としては利用できません。(印刷処理をループさせていればいいですけどね)

複数枚印刷に毎回プリントダイアログで処理が中断するのでは省力化のためのマクロであるのにその意義が失われますし、なんとか指定プリンター印刷で自動化したいところ。

数年来の課題であったこの分がなんとか解消できたので自分メモとして残しておきます。



 '印刷できたかどうかのチェック用変数
 nechk = 0

 'プリンターポートの配列、同じネットワーク上に存在するプリンター台数以上にセットするのが好ましい
 ne = Array("P1", "Ne00:", "Ne01:", "Ne02:", "Ne03:", "Ne04:", "Ne05:", "Ne06:", "Ne07:", "Ne08:", "Ne09:", "Ne10:")

 For i = 0 To UBound(ne)
   Sheets("印刷シート名").Select
   On Error Resume Next
   Application.ActivePrinter = "指定プリンター名 on " & ne(i)
     If Err.Number <> 0 Then
     Else
       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
       nechk = 1
       Exit For
     End If
     On Error GoTo 0
   Next

nechk=0ならプリントダイアログを出す事で未印刷を防げます。
単純にResume Nextを使うだけでは印刷がスルーされるだけで根本的な解決になりません。On Error GoTo 0(※ラベル0行は作らない)を使う事で、プリンターの取得に失敗してもループが継続するようになりました。

パラレル-LAN変換機器によっては"on P1"などの様にポート名を固定されるものもあり、それはこうしたポート名の変更による影響を受けないのですが、機器が混在する場合などにはやはり対策が必要でしょう。

以上俺メモ

「百度」提供のアプリ、スマホ乗っ取られる恐れ

【IT】 「百度」提供のアプリ、スマホ乗っ取られる恐れ (読売新聞) [無断転載禁止]©2ch.net
http://www.yomiuri.co.jp/national/20160115-OYT1T50013.html
http://daily.2ch.net/test/read.cgi/newsplus/1452798095/

>中国検索大手の百度(バイドゥ)が提供するアンドロイド用アプリ「Simejiプライバシーロック」(SPL)。情報セキュリティー会社トレンドマイクロ(東京)が昨年秋、百度の提供するアプリ開発キットに、外部からの侵入を許すバックドアを確認した。このキットで作られたアプリにはバックドアが仕込まれる。

simejiって顔文字が豊富だったり、キーボード背景を変更できたりと若い人には大人気なんですが中国産のアプリに対しては警戒感を持って利用するよう注意しましょう。

ちなみにsimejiは過去に入力データの内容がインターネット上に流出した事件を起こしています。たしか官公庁の業務メールだったと思いますけれど。

始業時間よりずっと前に従業員がそろう会社は良い会社?

【コンサル】良い会社を見分ける簡単な方法 「始業時間よりずっと前に従業員がそろう会社は良い会社」
http://diamond.jp/articles/-/83905
http://potato.2ch.net/test/read.cgi/bizplus/1452742164/

んなわけない。
定められた始業時間前に自主的に出社して段取りを終え、無駄な時間なく仕事に取り掛かる、それはまことに結構なことだ。

しかしそれが常態化し「そうでなければならない」へと変化するのに大して時間はかからない。いずれどこでも「あいつだけ遅い」「なんで時間前にこないんだ」などと言われ始める。善意や勤労意欲の顕れであったものはいつしか「義務」へと変貌を遂げるのだ。

それが従業員同士の会話ならまだいい。
経営者がそういう話を始めたらそこはブラック。(雇用側が無給の早出を要求するのは労基法違反)
残業出さない会社と同じ。

auショップ元店員、女性客のメール転送し1,200通をのぞき見る

【社会】auショップ元店員、女性客のメール転送し1,200通をのぞき見る 女性のプライベートな画像も6,000枚見つかる
http://www.fnn-news.com/news/headlines/articles/CONN00313569.html
http://daily.2ch.net/test/read.cgi/newsplus/1452742645/

>のぞき見したメールは、あわせて1,200通に及び、中村容疑者の携帯からは、女性のプライベートな画像6,000枚も見つかったという。

危ないパターンとして

・AppleIDやGoogleIDをパスワードと共に紙に書く
・スマホのロックを解除した状態で店員に渡す

でしょうか。iPhoneであれAndroidであれPCに繋げばDCIM(写真)フォルダが丸見えになりますから取りあえず写真は丸ごと抜かれてしまいますし、Androidの場合は「*.jpg」などでフォルダー検索しますと2chブラウザのキャッシュ画像まで漁られてしまいます。

またAppleIDやGoogleIDが知られればクラウドにバックアップするだけでいつでも最新の写真フォルダが覗けてしまいますし、AppleID/パスワードが割れていて「iPhoneを探す」機能のONか、AndroidであればGoogleIDの分からない状態でもGPSデータ送信アプリを潜ませるだけで位置情報がバレバレになってしまいます。

携帯電話会社のショップというのはキャリア直営店もありますけれど、地方に行けばフランチャイズ方式なわけで窓口の対応は○×商店のバイトくんかもしれません。そういう正体の知れない人に個人情報の塊を預けねばならないのだという事を十分理解したうえで行動しましょう。

対策としては、ショップに行く前にSDカードに写真や電話帳をすべてバックアップし、端末を初期化しておくのが良いでしょう。キャリアで購入した端末であればキャリアが用意するバックアップツールもありますから「えーわかんない」とか思考停止しないで自分の身を守るための対策を施すのが最善です。

フィーチャーホンの起源はオーストリア(元記事に画像あり)

【オーパーツ】800年前の携帯電話が出土(画像あり) ©2ch.net
http://amenama.on.arena.ne.jp/?p=2441
http://daily.2ch.net/test/read.cgi/newsplus/1451019949/

>オーストリアで、800年前の「携帯電話」が発見されました。
>13世紀頃の発掘現場から出土した奇妙な遺物。
>くさび形文字のような記号が書かれたボタンの並び型など、
>たしかに一昔前の携帯電話のような形状をしています。

俺が昔付き合ってた女に買ってやった携帯に似てる(嘘)