人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

●質問者: hac20380
●カテゴリ:コンピュータ
✍キーワード:access as BMP H2 String
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● kn1967
●60ポイント

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

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

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


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


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

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


余談になりますが、

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

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

◎質問者からの返答

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

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ