Accessについて先ほどの質問の続きです。VBAの最後の方でコードがエラーになってる可能性が高いということなので一部をコピーしました。これだけでどこかおかしい部分がありますでしょうか?


'//ラベル送信(レイアウト編集)
'*******************************************************************
Sub Label_Send(TRinfo As ADODB.Recordset)
Dim StrPrtCmd As String
Dim vBmpWK As Variant 'BMP編集ワーク(バイト型配列のバリアント型)
Dim SCD4 As String
Dim LRet As Integer
'STX指定 ***************************
StrPrtCmd = Chr(&H2)
StrPrtCmd = Chr(&H1B)

'ETX指定    *****************************
StrPrtCmd = StrPrtCmd & Chr(&H3)

'データ送信開始指定
StrPrtCmd = StrPrtCmd & ESC & "A"

'=====================================
'
'B1サイズ
'
'=====================================
'回転 0
StrPrtCmd = StrPrtCmd & ESC & "%0"
|

 省略



'データ送信終了指定
StrPrtCmd = StrPrtCmd & ESC & "Z"

'印字データをプリンタに送信
SubData_Send StrPrtCmd
'プリンタドライバの終了
' SubPrinterDriver_End lPrinterHandl
End Sub

回答の条件
  • 1人10回まで
  • 登録:2006/07/14 15:30:16
  • 終了:2006/07/21 15:35:03

回答(1件)

id:kn1967 No.1

kn1967回答回数2915ベストアンサー獲得回数3012006/07/14 15:48:35

ポイント60pt

http://q.hatena.ne.jp/1152838188

前の質問の後、どのような話の展開があって今回の質問にいたっているのでしょうか?

話の展開によっては記述しておられる部分以外のところがエラーの原因となっていることは十分に考えられます。


ちなみに私はSubData_Sendの見直しを第一とし、SubPrinterDriver_StartからSubPrinterDriver_Endまでの一連の流れを再確認する必要があると考えますが、、、、


これ以上はソースを全て曝け出す事になるかと思いますが、よろしいのでしょうか?

そうではなく、前回質問の最後にありますように、引き続き専門の方と直接やりとりなさることをお勧めします。


余談になりますが、

Windows98/98SE/MEからWindowsXPへの移植だと思われますがいかがでしょう?

その場合は、MDBファイルをコピーして、そのファイルに手を加えるのではなく、XPで新規に空のMDBを作成してから必要部分をインポートするという手法をとるだけでも問題が解決する場合もありますので、まだのようでしたらお試しあれ、、、

id:hac20380

ありがとうございました。

専門の方に聞いてみます。

2006/07/14 16:02:11

コメントはまだありません

この質問への反応(ブックマークコメント)

トラックバック

  • 解決していたら良いのですが... gong1971の日記 2006-07-14 17:18:11
    なるべく多くの情報を...と思って回答を用意していたら、 また間に合わなかった。一応終了にはなっていないので、 再開して貰えると回答できるのだけど...。(解決していれば構わないの
「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません