おやじプログラマー日記: 2017年6月

VB.NET:SpreadSheetGearを使って印刷処理

以前はVB.NETからエクセルを使って印刷処理を行うプログラムを作成したことがありました。

エクセル上に雛形となるシートを作成しておいて、そのシートをコピーし、該当するデータを指定されたセルに当てはめて、印刷を行うというものです。
連続帳票ではなく、A4単票の印刷ではよく行ったものです。

エクセル印字をVBのプログラムから行うためには、エクセルのインストールが必須だったり、「Microsoft.Office.Interop.Excel」を使ったCOM参照での処理が必要だったりします。
このCOM参照が曲者で、参照を開放しないとエクセルのプロセスがメモリ上に残ったままになったりします。メモリに残ったままだと、次の印刷ができなかったりと、いろいろ悪さをします。 COM参照をしっかり開放してやれば、問題はないのですが...

やはりパソコンにエクセルがインストールしていないと動かないのがネックです。
そこで、サードパーティ製でエクセル互換のツールが無いかと探したら、「XLSOFT」から直接エクセルファイルを操作できるツールが出ていました。
それが「SpreadSheetGear」という製品です。（外国製の様で、日本語対応したもののようです）

このツールですがDLLファイルを参照設定して利用しますが、上記のエクセルのCOM参照のオブジェクト内の関数とほぼ同等の名称を使用している様です。

今回は印刷処理での利用がメインなので、サンプル等を見てみたのですが、「WorkbookView」を使った印字例はあるのですが、このオブジェクトを使用しない例がなかったので以下の様なソースで試すと、とりあえず印刷はできました。（何かのご参考までに...）

EXEと同じフォルダに存在する「TEST.xlsx」内の先頭のシートを単に印刷するサンプルです。

.NET開発テクノロジ入門2016年版Visual Studio 2015対応版

投稿時刻 16:13 VB.NET | 個別ページ | コメント (0) | トラックバック (0)

BHT-BASIC4.0:[BS／C]キー入力ではまった件について

BHT-BASICのシステムで処理の実行を行うかどうかを、 [BS／C][ENT]キーで処理を行っているのですが、もちろん[BS／C]キーは処理中断で、[ENT]キーは処理続行としています。

処理を中断しようとして[BS／C]キーを押すのですが、中断できない場合があるとの現象が発生しました。

ソース的には以下の様な組み方で、[BS／C][ENT]キーのどちらかのキーのみの反応行う様にしています。

'---------------------------------------
'定数宣言:共通⇒(これは別ファイルにすべき)
'---------------------------------------
	Global GcTrue% : GcTrue% = -1
	Global GcFalse% : GcFalse% = 0
	Global GcKeyENT$ : GcKeyENT$ = Chr$(&H0d)
	Global GcKeyBS$ : GcKeyBS$ = Chr$(&H08)
	Global GcKeyC$ : GcKeyC$ = Chr$(&H18)
'---------------------------------------
'処理の続行のYES/NO入力関数
'---------------------------------------
'Function GsKeyTest%
'戻り値:
'	GsKeyTest%	:続行OK(GcTrue%),NG(GcFalse%)
'---------------------------------------
    Function GsKeyTest%
		GsKeyTest% = GcFalse%
		'エラー処理宣言
		On Error Goto GsKeyTest.ErrProc

Private intLoop%, intRet%, strBuff$
		Print "GsKeyTestの実行"
		Print "[ENT]開始 [BS／C]中止"
    	intLoop% = GcTrue%
    	While intLoop% = GcTrue%
    		'--- キー取得
			Wait 0, &h01 'キー入力待ち
			strBuff$ = Input$(1) '入力されたキーを取得して戻す。
			intRet% = ASC(strBuff$)
    		Select strBuff$
    			Case GcKeyENT$ '開始
					Print "処理中…"
					GsKeyTest% = GcTrue%
					intLoop% = GcFalse%

Case GcKeyBS$ '中止
					Print "...中止"
					intLoop% = GcFalse%
    		End Select
    	WEnd
GsKeyTest.Return	'関数戻り
		On Error Goto 0
		Exit Function
'エラー処理
GsKeyTest.ErrProc
		Resume GsKeyTest.Return
	End Function

'-----
'実行はここから処理
'-----
Main
	SCREEN 1				'漢字モード
	LOCATE , , 2			'カーソルをブロック表示

DIM nRet%
	nRet% = GsKeyTest%
	If nRet% = GcTrue% Then
		Call GsPrintFull("処理戻り")
	Else
		Call GsPrintFull("中断戻り")
	Endif
	WAIT 0, &H1
	END

DENSOさんのサンプルプログラムを見ても、処理の中断の判定は「バックスペース(&H08)」のみで処理しているので、深く考えずに「BS」のみで中断処理をしていました。

しかし、たまに「BS」が利かない場合があるとのことで、バグの連絡を受けたので、少し調べてみました。なんと、「BHT1300_Programmers_Manual_J1.pdf」にはちゃんと説明がされていました。「付録Ｅキーボードとキー番号」のページからの引用ですが、以下の通りです。

==========================
[BS／C] *1 *2

*1 BSはバックスペース(08h）、CRはキャリッジリターン(0Dh）、Cはキャンセル(18h）、SPはスペース(20h)コードを表します。

*2 一定時間(デフォルト500ms)以上長押しでキャンセル(18h)コードを返します。
==========================
[BS／C]キーの長押しだとキャンセル(18h)コードが返ってくるのでした。

そこで、中止の判定をキャンセル(18h)コードでも行う様に変更し、バグを解消しました。

'---------------------------------------
'処理の続行のYES/NO入力関数
'---------------------------------------
'Function GsKeyTest%
'戻り値:
'	GsKeyTest%	:続行OK(GcTrue%),NG(GcFalse%)
'---------------------------------------
    Function GsKeyTest%
		GsKeyTest% = GcFalse%
		'エラー処理宣言
		On Error Goto GsKeyTest.ErrProc

Private intLoop%, intRet%, strBuff$
		Print "GsKeyTestの実行"
		Print "[ENT]開始 [BS/C]中止"
    	intLoop% = GcTrue%
    	While intLoop% = GcTrue%
    		'--- キー取得
			Wait 0, &h01 'キー入力待ち
			strBuff$ = Input$(1) '入力されたキーを取得して戻す。
			intRet% = ASC(strBuff$)
    		Select strBuff$
    			Case GcKeyENT$ '開始
					Print "処理中…"
					GsKeyTest% = GcTrue%
					intLoop% = GcFalse%

Case GcKeyBS$ '中止
					Print "...中止"
					intLoop% = GcFalse%
				'*** この部分が最初は無かった↓
    			Case GcKeyC$ '中止2
					Print "...中止2"
					intLoop% = GcFalse%
				'*** この部分が最初は無かった↑
    		End Select
    	WEnd
GsKeyTest.Return	'関数戻り
		On Error Goto 0
		Exit Function
'エラー処理
GsKeyTest.ErrProc
		Resume GsKeyTest.Return
	End Function

投稿時刻 18:47 BHT-BASIC, パソコン・インターネット | 個別ページ | コメント (0) | トラックバック (0)

BHT-BASIC4.0:ハンディBHT-1306Bへの送信エラー（Active USB-COMポートドライバ）

私事なのですが、最近更新したシステムで客先より「データファイルをハンディへ送信できない」との連絡が在りました。
1か月以上は問題なく稼働していたのですが、ある日送信できなくなった様です。その日の午前中には送信できたのですが、午後での送信でエラーが発生しました。

その日の1回目は送信できたが、 2回目には送信できないとはプログラムのエラーでもなさそうですが、原因がすぐには分かりませんでした。
DENSOにも問い合わせましたが、いままでそんな事例は無いとのことで、原因がはっきりしませんでした。

よくよく客先に伺ってみると、去年の2016年にはOSがWindows7だったものをWindows10にアップされたとのことでした。
（マイクロソフトが無償でWindows10へのアップを推奨していたので、お客様もアップされた様です）

DENSOの「Active USB-COMポートドライバ」を確認すると、最新バージョンが「2.1.0.0」でWindows10に対応となっていました。去年の「2.0.1.8」からは既にWindows10対応だった様です。

客先のバージョンは「2.0.1.5」でWindows8.1までの対応だったので、早速、バージョン「2.1.0.0」のものを再インストールしてもらい、通信が出来る様になりました。

Windows8.1までのUSB-COMドライバで、 OSがWindows10にアップしても動いていたことも不思議なのですが、途中までは何とか動いていたが、ついに限界が来たんでしょうか？
とにかく、ドライバのバージョンアップで事無き得て良かったというところでしょうか。 USB-COMドライバが以前のドライバのままで、人知れずWindows10にOSがアップされていてハンディへの通信が出来なくなった場合には、ドライバのアップをお勧めします。

■DENSO
Active-USB-COMポートドライバ

転職を本気で考えている方向けのプログラミングスクール！【WebCampPRO】

投稿時刻 14:52 BHT-BASIC | 個別ページ | コメント (0) | トラックバック (0)

おやじプログラマー日記

コンピュータ業界に身をおいて３０年あまり…VB.NET・OracleなどのTIPS、おやじの独り言

おすすめ本

最近の記事

最近のトラックバック

Ranking

最近のコメント

アーカイブ

AccRanking

Ad

2017年6月

2017年6月26日 (月)

VB.NET:SpreadSheetGearを使って印刷処理

2017年6月21日 (水)

BHT-BASIC4.0:[BS／C]キー入力ではまった件について

2017年6月17日 (土)

BHT-BASIC4.0:ハンディBHT-1306Bへの送信エラー（Active USB-COMポートドライバ）

検索

admax

カテゴリ

リンク

LSF

LPOP