郵便振替払込取扱票印刷 by Excel（フリーウェアソフト）

項　　　目 内　　　容
はじめに 　以前から仕事で使用しているファイルを汎用改良しました。このプログラムが、皆さんの業務に役立ってくれれば幸いです。
ソフト名 郵便振替払込取扱票印刷 by Excel
登録名 Yuubin43.zip
ファイル名 郵便振替払込取扱票印刷43.xls（Excelファイル）
郵便振替払込取扱票印刷レーザー専用43.xls（Excelファイル）
ReadmeYuubin43.txt（テキストマニュアル）
irainushiY43.txt（依頼主データ入力の説明書）
kanarazuY43.txt（レーザープリンタ印刷の説明書）
ファイルの
使い分け		 [郵便振替払込取扱票印刷43.xls]
　インクジェットプリンタ専用です。操作は、非常に簡単です。専用紙を縦長の向きに挿入して印刷します。払込取扱票は、定形の用紙ではありません。ダミーのA5用紙を横方向印刷に設定しています。幅の長い分上余白3.6cm（用紙を右端にセットするプリンター）、1.9cm（用紙を中央にセットするプリンター）をとって払込取扱票にあわせています。

[郵便振替払込取扱票印刷レーザー専用43.xls]
　上記ファイルで印刷できない場合は、こちらを使ってください。レーザープリンタおよびインクジェットプリンタのどちらでも使えます。但し、ユーザー定義サイズの登録が必要になります。専用紙を縦長の向きに挿入して印刷します。
バージョン 4.3
著作権者 ＡＤＥＫＩ　　info@adeki.jp
開発環境 Windows 7 上の Excel 2003(PC-DOS/V)
動作確認 Windows 7 上の Excel 2010
Windows 7 上の Excel 2007
Windows 7 上の Excel 2003
Windows Xp 上の Excel 2003
Windows Xp 上の Excel 2002
Windows 2000 上の Excel 2000
登録日 2013/11/21　Ver.4.3
2013/08/26　Ver.4.2
2013/08/24　Ver.4.1
2013/07/17　Ver.4.0
2012/08/12　Ver.3.1
2012/07/21　Ver.3.0
2012/01/05　Ver.2.2
2010/10/30　Ver.2.1
2010/07/11　Ver.2.0
2009/07/30　Ver.1.1
2009/07/22　Ver.1.0
解凍方法 LHAユーティリティソフトにて解凍　（Vector推奨ソフトで紹介）
ソフトウェア種別 フリーウェアソフト
転載条件 内容を変更しなければ可（但し商用は要許可）
ソフト紹介 　郵便局の払込取扱票の印刷をExcelを使ってお助けします。

データ入力は、お手持ちのデータを加工すればコピーして使用することが可能です

実際の取扱用紙ふうな伝票画面を使って操作ができますので、誰もが簡単にできると思います。

又、VBAプロジェクトのプロテクトを解除して、ソースコードが参照できます。VBAをこれから始める方には参考になりますし、経験者はご自身で改造し活用して下さい。
使用方法 ダウンロードしたYuubin43.zipは、圧縮ファイルになっております。ZIPユーティリティを使って解凍して下さい。 解凍後、以下のようなファイルが作成されます。

　\Yuubin43
　　├郵便振替払込取扱票印刷43.xls(Excelファイル)
　　├郵便振替払込取扱票印刷レーザー専用43.xls(Excelファイル)
　　├ReadmeYuubin43.txt(テキストマニュアル)
　　├irainushiY43.txt(依頼主データ入力の説明書)
　　└kanarazuY43.txt(レーザープリンタ印刷の説明書)

[Excel2003以前のバージョンの場合]
Excelから「郵便振替払込取扱票印刷43.xls」のファイルを開く前に、Excel上のツールバーより、＜ツール＞＜マクロ＞＜セキュリティ＞と進み＜セキュリティレベル＞内の中(M)か低(L)のどちらかにチェックをつけてから上記のファイルを開いて下さい。

開く際に「マクロを有効にするか」と尋ねてきますので「有効にする」を選択して下さい。

[Excel2007バージョンの場合]
Excelから「郵便振替払込取扱票印刷43.xls」のファイルを開くと、メッセージバーに「セキュリティの警告　マクロが無効にされました。」と表示されます。メッセージバーの[オプション]ボタンをクリックします。

「このコンテンツを有効にする」をクリックして選択し、[OK]ボタンをクリックすると、マクロが有効になります。

[Excel2010バージョンの場合]
　Excelから「郵便振替払込取扱票印刷43.xls」のファイルを開くと、メッセージバーに「セキュリティの警告　マクロが無効にされました。」と表示されます。メッセージバーの[コンテンツの有効化]ボタンをクリックすると、マクロが使用可能になります。

常にマクロを有効にするのではなく、開いた時だけマクロを有効にしたい場合は、[ファイル]タブをクリックし、[コンテンツの有効化]をクリックして、[詳細オプション]をクリックします。[このセクションのコンテンツを有効にする]をクリックし、[OK]ボタンをクリックすると、マクロが有効になります。

このファイルのExcelVBAマクロには、悪質なマクロウイルスは含んでいませんので安心してご使用下さい。
操作説明 　「郵便振替払込取扱票印刷43.xls 」ファイル本体の各シートにあります。

　データ入力についてサンプルデータが入力してありますので、参考にして下さい。又、下記のように数の制限があります。

「依頼主データ入力」シートの依頼主データは、10,000までです。
アカサタナで抽出される依頼主データは、最大　2,000までです。

　ユーザ様のお手持ちデータをコピー可能にすることを優先にしたかったので、上記のようにデータを制限しました。入力形式は、カードフォームではなく一覧表からの直接入力となります。Excelの操作性を考慮しました。

[使用用紙]

郵便局の払込取扱票(幅180mm、長さ114mm)
郵便局の振替払込用紙請求書(幅180mm、長さ114mm)

[使用プリンター]

インクジェットプリンタ
レーザープリンタ（機種によって対応できない場合があります）
全てのプリンターに対応しているわけではございません。ご了承願います。

[印刷位置の調整]

開発段階では、エプソンのインクジェットプリンターのフチ有り印刷で、水平方向左寄せ設定で印字位置が合うように設定しています。

フチ無しの印刷では、水平方向にズレが生じるので「印刷位置の調整フォーム」で修整してください。

レーザープリンターにおいては、垂直方向にズレが生じるようです。上記と同様に修整してください。

※初めて印刷する時は、[印刷位置の調整]ボタンより、用紙位置の選択を必ず行ってください。プリンターの種類により用紙を右端か、中央に揃えてセットします。

右端に揃えてセットする場合は、上余白が約36mmです。中央に揃えてセットする場合は、上余白が約19mmです。約17mmの差があるため垂直方向に大きなズレが生じてしまいます。初めて印刷する前に、どちらか必ず選択してください。

「郵便振替払込票印刷レーザー専用43.xls」ファイルにおいては、上記のような設定はありません。
パスワードおよび注意点 　このファイル上のシート保護やVBAプロジェクトには、パスワード付きのプロテクトをかけています。 数式やVBAコードなどを参考にする場合は、下記パスワードで解除すれば表示することができます。

　パスワード：　yuubin

このファイルを元に改変する場合は、個人の責任の上で行って下さい。
制限事項 VBAコードを参照できるようになってます。ご自由に試用して下さい。
免　　責 本アプリケーションをご利用になって万一、ユーザー様が損害等を被られても作者は一切の責任を持ちません。個人の責任でご利用下さい。
変更履歴 2013/11/21　Ver.4.3
　ユーザー様よりCannon ip2700プリンターにおいて、垂直方向に大きく下方に１９mm前後ズレが生じる報告がありました。新たに用紙位置の設定を選択できるようにして、垂直方向にズレが生じないよう修正しました。

インクジェットプリンターの用紙サポートは、右端に揃えるタイプと中央に揃えるタイプがあります。上記の問題は、用紙を中央に揃えるタイプのプリンターです。払込取扱票の専用紙は、定形用紙ではありません。ここでは、A5の用紙をダミーとして設定しています。両者の間では、印刷の上余白に約１７mmの差がでることがわかりました。

よって用紙を右端に揃えるプリンター（上余白3.6cm)、用紙を中央に揃えるプリンター（上余白1.9cm)を選択できるよう設定しました。

シート内の表示において、専用紙の挿入方向に間違いがあったので修正しました。「専用紙を縦長に挿入する」が正解になります。尚、「郵便振替払込票印刷レーザー専用43.xls」ファイルにおいては、上記のような変更は一切ありません。

2013/08/26　Ver.4.2
　プリンターによっては、多数の連続印刷をすると、「斜め印刷が発生する場合がある」と報告がありました。専用紙を[横長に挿入→縦長に挿入]、印刷用紙の設定を[B5→A5]、印刷方向を[縦→横]、上余白[無し→3.6cm]に変更して対処しました。尚、「郵便振替払込取扱票印刷レーザー専用42.xls」ファイルにおいては、変更はありません。

2013/08/24　Ver.4.1
　印刷プレビューを表示してから印刷を実行するように変更しました。但し、連続印刷専用では、プレビュー表示はありません。

払込取扱票の印刷範囲において、依頼主のデータがない場合「依頼人の名前」など、２箇所で"０"表示になるバグがありました。セルの書式設定のユーザー定義で修正しました。

2013/07/17　Ver.4.0
　印刷位置の微調整ができるよう、新規にフォームを作成しました。垂直方向±５mm（104行又は、103行の高さの調整）、水平方向０～＋５mm（E列の幅の調整）、 水平方向の中央寄せ・左寄せができます。

　連続印刷でプリンターのエラー防止のためにWindowsAPIのsleep関数を使ってウェイトしてました。Excel2010の64bit版では、32bit版と互換性がないため 64bit版使用時には、エラーがでます。今回それを取り止め、40枚ほど印刷したらメッセージボックスを表示させて、一度に大量のデータを送信することを回避するよう変更しました。よって64bit版でも動作します。

　Excel2010の32bit版で列幅を変更すると、「オブジェクトがシートからはみだします。その操作は、できません。」という警告がでます。警告表示がでないバージョンまでさかのぼり、新たにファイルを作り直しました。

　通信欄１の前に、発送日を選択するようになっていましたが、無しにしてほしい要望が多くありましたので、無しにしました。通信欄１が長くなりシンプルになりました。

　印刷位置の調整にユーザーフォームを使用しています。各コントロールのリンクセルがわかるよう、新たに「ActiveXコントロール」シートを追加しました。現在非表示になっています。「メニュー」シートも新規に加え、全体の内容がわかるように努めました。

2012/08/12　Ver.3.1
　郵便振替払込取扱票印刷30.xls(インクジェットプリンター専用ファイル)の連続印刷専用シートにおいて、連続印刷すると住所２が二重に印刷される不具合を修正しました。

2012/07/21　Ver.3.0
　連続印刷において、○印を再選択すると最終行を取得できない不具合を修正しました。

　払込取扱票の印刷において、印刷部数を選択できるように新規追加しました。

　一部のレーザープリンター(RICOH imagio Neo C385)などにおいて払込取扱票の印刷が、一枚におさまりきれない報告がありました。印刷範囲を狭くして修正しました。

　払込取扱票の印刷において、旧タイプの払込取扱票にも対応させていましたが、現行の用紙のみにあう印刷位置に変更しました。

　連続印刷命令を10件につき15秒休止していましたが、余裕をみて5件につき20秒休止するよう変更しました。

2012/01/05　Ver.2.2
　払込取扱票を150枚以上連続印刷した場合、プリンターの機種によっては、一度に大量のデータを送りつけられるとエラーとなって印刷できないことがわかりました。API(Application Programming Interface)を使用して、印刷命令を10件につき15秒休止することで対処しました。

　依頼主データ入力シートにおいて、新規に「シートの保護・シートの保護解除」のオプションボタンをつけました。お手持ちのデータを簡単にコピーすることができます。以前は、シートを選択するたびに保護がかかりました。コピーしずらいという問い合わせがありましたので、新規に追加しました。

　依頼主のデータを削除する際、新規にフィールド(行)を追加しています。テーブルの範囲が、削除する度に可変(1行づつ減る)しているバグを修正しました。

　郵便振替払込取扱票シートの入力画面と印刷画面（E103セル～AQ122セル）の間で、セルの書式設定が一部不一致なところがありましたので修正しました。

　印刷プレビューを見た後に、シート上のコントロールボタンなどの位置がずれるバグを修正しました。コントロールを右クリックし、[コントロールの書式設定]のプロパティより、"セルに合わせて移動やサイズを変更する"を選択して対処しました。

2010/10/30　Ver.2.1
　「郵便振替払込取扱票印刷レーザー専用21.xls」というレーザープリンタ専用のファイルを新規に追加しました。

　郵便振替払込取扱票の印刷、連続印刷、振替払込用紙請求書の印刷オフセットのフォームにより不必要な余白が残るバグを修正しました。

上記に伴い印刷のオフセットを削除しました。

2010/07/13
　Greva!　初公開

2010/07/11 Ver.2.0
　新規に郵便振替払込取扱票の連続印刷と振替払込用紙請求書の印刷が可能になりました。

　依頼主データ入力シートにおいて、顧客番号、請求金額、通信欄の項目を新規に追加し、 顧客番号の昇順や印刷、連続印刷に必要なデータ入力が可能になりました。

　印刷のオフセットを新規に追加しました。

2009/07/30 Ver.1.1
　郵便振替払込取扱票シート上において
「口座記号、口座番号、加入者名の入力後にデータを保護する」というボタンをクリック後、実行をキャンセルしても上記内容を処理してしまう不具合を修正しました。

2009/07/22　Ver.1.0
　（株）Vector初公開
郵便局より 払込書への記入上の注意（抜粋）

払込用紙は、太枠部分（口座記号、口座番号、金額、料金、備考欄）を直接機械で読み取って処理しますので、口座番号等の記入については、次の点に注意してください。

金額には、「￥」や「金」の文字は記載しないでください。備考欄には何も記載しないでください。（備考欄はゆうちょ銀行または郵便局で使用します。）口座記号、口座番号、金額に使用する文字は、なるべく機械処理に適した文字を使用してください。

機械印字に適した文字→ＯＣＲ－Ｂフォント0123456789

当ソフトでは、ＭＳ　Ｐゴシックフォントを使用しています。
参考書 渡辺ひかるさん著作「ExcelVBA実用サンプルコレクション」
古川順平さん著作「仕事に役立つExcelデータベース有効活用テクニック」
雑誌の掲載 フリーソフトTHE BEST 1500+α(晋遊舎)2012/08/23発売
超厳選フリーソフト1001(コスミック出版) 2012/03/15発売
Windows100％ 2012年03月号(晋遊舎) 2012/02/13発売
使えるEXCEL･WORDフリー＆シェアソフト　2012年版(成美堂出版) 2012/01/20発売
使えるEXCEL･WORDフリー＆シェアソフト厳選360　2011年版(成美堂出版) 2011/01/20発売
Windows100％ 2011年01月号(晋遊舎) 2010/12/13発売
Windows100％ 2009年10月号(晋遊舎) 2009/09/12発売
Vector掲載 http://www.vector.co.jp/soft/win95/writing/se477521.html
Copyright (C) ADEKI_ExcelVBA_FreeSoftware All Rights Reserved.