東北関東大震災義援金

3月11日の震災では多くの方が犠牲になられました、心よりご冥福をお祈りいたします。

14日から日本赤十字の義援金の受け付けが始まりました。
我々が役にたてるのはこれぐらいしかありません。
以下日本赤十字のホームページからのコピーです



東北関東大震災義援金を受け付けます
11/03/14

　日本赤十字社では、今回の震災の被害が甚大かつ広範囲に及んでいることから、被災県組織に代わり、皆さまからの義援金を受け付けております。

義援金窓口1　 郵便局・ゆうちょ銀行
口座記号番号 　　00140-8-507
口座加入者名 　　日本赤十字社 東北関東大震災義援金
取扱期間 　　　　平成23年3月14日（月）～平成23年9月30日（金）

※郵便局窓口での取り扱いの場合、振替手数料は免除されます。
※郵便窓口でお受取りいただきました半券（受領証）は、大切に保管してください。
※通信欄にお名前、ご住所、お電話番号を記載してください。


救援金窓口２
■　クレジットカード・コンビニエンスストア・Pay-easyによるご協力
詳しくは、こちらをご覧ください。

※「寄付目的」の選択項目で、義援金名を指定してください。
※寄付金額は、2,000円以上から受け付けています。


［担当窓口］日本赤十字社 東北関東大震災義援金担当
Tel: 03-3437-7081 　E-mail: info@jrc.or.jp

テスコパソコン教室　テキスト販売

PHPで日付の計算

ちょっとPHPで日付の処理をすることがあったので調べたことを書き留めておきます。

日付の処理で覚えておくと便利なのがdateとstrtotime関数ですかね。
これらの関数を使った例をいくつか

今日の日付を求める
date("Y-m-d")

今日から3日後の日付を求める
date("Y-m-d",strtotime("+3 day"))

今日から3か月後の1日前の日付を求める
date("Y-m-d",strtotime("+3 month -1 day"))

特定の日から3か月後の1日前の日付を求める
Xday="2010-12-10"
date("Y-m-d",strtotime(Xday . " +3 month -1 day"))

date関数に関してはこちらを
strtotime関数に関してはこちらをご覧ください。

テスコパソコン教室　テキスト販売

VBAでPDFの印刷

テキストは5台のパソコンにそれぞれ6台のプリンタをぶら下げ、合計30台のプリンタを使って印刷しています。
てなわけで、手作業で印刷していたのでは大変なので1台別のパソコンを用意してそのパソコンでWordのVBAを使って5台のパソコンを制御しています。

印刷はWord2010を使ってWordのデータで印刷していたのですが、Wordの処理が非常に重たくてうまく印刷できないテキストが増えてきました。

PDFなら6台でも同時に印刷できそうなのでWordのデータを印刷するのをやめてPDFに変換してから印刷することにしました。


１．Adobe Reader を使って印刷

Webを探すといろいろ出てきましたが、とりあえず無料のAdobe Reader を使って印刷する方法を試してみました。


Set MyShell = CreateObject("WScript.Shell")
MyShell.Run ("AcroRd32.exe /t " & Chr(34) & FileName & Chr(34) & " " & Chr(34) & PrinterName & Chr(34))
Set MyShell = Nothing

これでAdobe Reader で FileName で指定したファイルを PrinterName で指定したプリンターから印刷できます。

Chr(34)は文字の「"」で、FileName や PrinterNameにスペースがある場合に備えて「"」でくくるようにしています。

これでとりあえずPDFの印刷はできたのですが、問題がありました。
Adobe Readerが終了しないのとページを指定できないのです。



2．Adobe Acrobat を使って印刷


無料のAdobe ReaderでだめでもAdobe Acrobat がインストールしてあればもっといろいろできます。が、
私のパソコンにはインストールされていません。

ということで、とりあえず体験版をダウンロードすることにしました。
体験版には30日の使用期限がありますが、うまくいけば購入することにしましょう。


VBAでAcrobatを操作するための設定。

VBEを起動後、「ツール」－「参照設定」で「Adobe Acrobat　10.0　Type Library」にチェックを入れます。
（最初の表示はAcrobatだけだったように気がしますが・・・）


ページ指定して印刷するためのソースがこれです。

Dim objAcroAVDoc As New Acrobat.AcroAVDoc
Dim lRet As Long

Sub PDFの印刷()
　Dim MaxPage As Integer 　'最大ページ数
　Dim FileName As String　'ファイル名
　Dim PrinterName As String　'プリンター名
　Dim ISP As Integer　'印刷先頭ページ
　Dim IEP As Integer　'印刷最終ページ
　　　　　　｜
　　　　　　｜
　'PDFファイルのオープン
　MaxPage = OpenPDF(FileName)
　If MaxPage > 0 Then
　　　　　　｜
　　　　　　｜
　　'PDFファイルの印刷実行
　　PDFprint PrinterName, ISP, IEP
　　'PDFファイルを閉じる
　　ClosePDF
　End If
End Sub


Function OpenPDF(PDF_FILE As String) As Integer
　Dim AcroExchPDDoc As Object
　Dim buf As Long

　If Dir(PDF_FILE) <> "" Then
　　lRet = objAcroAVDoc.Open(PDF_FILE, "")
　　Set AcroExchPDDoc = objAcroAVDoc.GetPDDoc()
　　OpenPDF = AcroExchPDDoc.GetNumPages
　　Set AcroExchPDDoc = Nothing
　Else
　　MsgBox "ファイルが見つかりません", vbExclamation
　　OpenPDF = 0
　End If
End Function

Sub ClosePDF()
　lRet = objAcroAVDoc.Close(0)
　Set objAcroAVDoc = Nothing
End Sub

Sub PDFprint(PrinterName As String, PageS As Integer, PageE As Integer)
　Dim Cprint As String　'現在のアクティブプリンタ

　Cprint = ActivePrinter
　ActivePrinter = PrinterName
　lRet = objAcroAVDoc.PrintPages(PageS - 1, PageE - 1, 2, 0, 1)
　ActivePrinter = Cprint
End Sub

テスコパソコン教室　テキスト販売

PowerPointでビデオの作成

久しぶりの投稿です。

今、PowerPoint2010基礎3のテキストを作っているのですが、そのテキストで作成するスライドショーをビデオにしてみました。




PowerPoint2010はなかなか遊べますね。

テスコパソコン教室　テキスト販売

FTPサイトをコンピュータに登録する

FTPサイトにデータをアップしたりサイトからデータをダウンロードする場合FFFTPなどのツールを使いますが、IEのアドレスバーに直接FTPサイトのURLを入力してもデータのやり取りができます。

たとえばテスコのサイトだとアドレスバーに「FTP://tesco7.com」と入力します。
次に、FTPサーバーにログオンするための「ユーザー名」と「パスワード」を入力すれば
「tesco7.comのFTPルート」という画面が現れます。

ただ、この画面ではちょっと作業がしづらいので「エクスプローラー」で表示しましょう。
「ページ」－「エクスプローラーでFTPサイトを開く」

これでパソコン内のフォルダと同じように扱えます。


さらに便利なのが、「スタート」－「コンピュータ」の中にネットワークの場所として登録です。

「スタート」－「コンピュータ」の画面の右側の空いているところで右クリックします。
「ネットワークの場所を追加する」をクリックし、「次へ」をクリック。
「カスタムのネットワークの場所を選択」をクリックして、「次へ」をクリック。
アドレスに「ftp://tesco7.com」と入力して、「次へ」をクリック。
「匿名でログオンする」のチェックはそのままで「次へ」をクリックします。（ここがポイントです）
「名前」は適当につけて、「次へ」をクリック。
「完了」をクリック。

次に、FTPサーバーにログオンするための「ユーザー名」と「パスワード」を入力すれば
エクスプローラーで表示されます。

テスコパソコン教室　テキスト販売

TeamViewer 5を入れてみた

教室と工場のパソコンのデータは WindowsLiveSync で同期をとっているのだけれど、何かのタイミングで同期がとれなくなることがあるんですよね。

そんな時は工場まで行って強制的に同期をとったりしないといけないので、遠隔操作のフリーのソフトを探していたらいいのがありました。

TeamViewer 5　です

もともとVNCという遠隔操作のソフトは工場内で使っていたのですが、ルーター越しとなるといろいろ設定を変えないといけないので、試しにTeamViewerというのを入れてみました。

結論から言うと

非常に良いです。

遠隔操作をする側とされる側にTeamViewerをインストールして、遠隔操作をされる側に表示されるＩＤとパスワードを遠隔操作をする側に入力すればそれでつながってしまうんです。

パスワードは起動のたびに変わるのですが、固定することもできるので工場のパソコンはパスワードを固定して無人で遠隔操作もできます。

また、サーバーに登録すればパートナーリストを作ることもできるので、遠隔操作をしたいパソコンがいっぱいあっても管理がとても楽ですね。


それにTeamViewerは遠隔操作だけではなくファイルの転送もできるので、もう教室と工場を行ったり来たりしなくて済みそうですね。

インストールは
http://www.teamviewer.com/ja/index.aspx
からどうぞ

テスコパソコン教室　テキスト販売

Windows7でセキュリティーの警告をキャプチャする

［コントロールパネル］->［システムとセキュリティ]->[管理ツール］
->［ローカルセキュリティーポリシー］->[ローカルポリシー]
->［セキュリティオプション］
->[ユーザーアカウント制御：昇格のプロント時にセキュリティで保護されたデスクトップに切り替える]を無効に設定。

テスコパソコン教室　テキスト販売