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

You might want to use String.Format , it helps with aligning your strings and setting padding etc. check out These Examples

于 2013-01-24T16:14:38.510 回答