|
分類:[ASP.NET (VB)]
開発環境はwindows7 VB.netです。
コンソールプログラムで値を渡して印刷するプログラムを書きました。
VB.netにてPrintDocumentを使っています。
印字まではうまくいったのですが、制御コードを送る必要がでてきてしまい、つまずいています。
VBは初めてなので的外れた事をしているかもしれませんが、よろしくご教示下さい。
まず、お尋ねしたいのは、PrintDocument1.Print内で簡単な方法で制御コードを送る方法があるかどうかです。
印字はGraphics.DrawStringにて行なっています。
WEB上をいろいろと見て回り、自分なりに下記の関数を書き
PrintDocument1.Print()の後に呼び出していますが動きません。
Private Shared Function cut_paper()
Dim hPrinter As IntPtr
OpenPrinter(printer_name, hPrinter, IntPtr.Zero)
Dim Result As Boolean
Dim dBinary() As Byte = {29, 86, 66, 1}'制御コード
Dim Written As Integer
Dim dBin As Integer
For i As Integer = 0 To dBinary.Length - 1
dBin = dBinary(i)
Result = WritePrinter(hPrinter, dBin, 256, Written)
Next
ClosePrinter(hPrinter)
End Function
何か決定的な間違いをしているかもしれませんがよろしくお願いします。
ちなみに、制御コードをプリンターに送ることは、javaでは実現できました。
|