キーボードのPowerキー

私の使っているパソコンのキーボードには「Power」キーと「Sleep」キーがついています。
「Power」キーを押すとパソコンはシャットダウンされ、「Sleep」キーを押すとスリープモードになります。

「Power」キーって『電源ボタンとおんなじ！』なんですね。

なんと恐ろしいキーが知らん顔してついているのでしょう。

間違って触ってもいいようにキーを無効にしましょう。

Windows7の場合
コントロールパネル　－　システムとセキュリティ　－　電源ボタン動作の変更
「電源ボタンを押したときの動作」を「何もしない」に変更。

これで「Power」キーは無効になります。
もっとも本体の電源ボタンも無効にはなりますが。まぁいいでしょう。

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

東北関東大震災義援金

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はなかなか遊べますね。

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