0

POS プリンターを使用して画面 (RichTextBox など) に何かを印刷できる方法を探しています。

現在使用している方法は次のとおりです。文字列をメソッドに送信し、この文字列を RichTextBox に貼り付けますが、テキスト ボックスは ESCAPE POS コードを認識しません。したがって、これらのコードを別のものに置き換える必要があります。文字列 (ESCAPE POS コードを含む) を画面またはテキスト ボックスに直接出力できれば、はるかに簡単になります。

私の問題を説明するいくつかのコード:

Dim ESC As String = Chr(&H1B)
Dim newLine = ESC + "|1lF"

printstring = "Omzet per Locatie-groep/artikel" + newLine
printstring += gTouchSettings.CompanyName + newLine
printstring += newLine
printstring += "Periode: " + Format(fromdate, "dd/MM/yyyy") + " - " +    
                    Format(todate, "dd/MM/yyyy") + newLine
printstring += newLine
printstring += "LocatieGr  Omschrijving   Aantal Ontvangen"
printstring += newLine
printstring += newLine

改行を消去できます。その解決策を見つけました。しかし、今、私はこのレイアウトの問題を抱えています:

printstring += Left(MySqlDR!description & Space(27), 27) & 
                   Right("      " &    Format(MySqlDR!quantity, "###0"), 7)
printstring += Right("      " & Format(MySqlDR!item_price, "######0.00"), 8) + 
               newLine

これは、POS プリンターで印刷すると見栄えがよくなりますが、TextBox で印刷するとひどいものになります。

4

1 に答える 1

1

を使用するString.Formatと、文字列の整列やパディングの設定などに役立ちます。これらの例を確認してください

于 2013-01-24T16:14:38.510 に答える