Delphi POS打印收据文字对齐

Question

如果输出格式应该是这样，我如何打印到POS打印机？纸张尺寸 3 英寸

line 1 = ITEM DESCRIPTION 
line 2 = QTY UNIT x UNIT PRICE_ _ _ _ _ _ _ TOTAL PRICE
Total PRICE is right align

示例格式

BOND PAPER
1 REAM x 100.00 --------------- 100.00
BOND PAPER 2
2 REAM X 100.00 --------------- 200.00
BOND PAPER 3
1 REAM X 1,354.00 ----------- 1,354.00

Answer 1

POS 打印机通常使用固定宽度的字体，因此右对齐 TotalPrice 的值只是计算要插入到 ItemDescription 之后的行中的填充量的问题。

在您的示例中，您使用的是 38 个字符的行，因此如果 ItemDescription 的长度为 15 个字符，而 TotalPrice 的长度为 6 个字符，则 Padding 需要
38 - (ItemDescription + TotalPrice) = 38 - (15 + 6) = 17个字符长。但是由于您似乎在 ItemDescription 之后和 TotalPrice 之前立即添加了一个 space，因此您的 Padding 需要减去这 2 个额外的字符...因此，在这种情况下，Padding 需要 15 个字符长。

将此应用于您的最后一行：

Length(ItemDescription) = 17
Length(TotalPrice) = 8
Padding = 38 - (17 + 8 + 2) = 11

因此，您发送到固定宽度字体 POS 的最后一行将是：

PrintLine = Concat(ItemDescription,' ',StringOfChar('-',Padding),' ', TotalPrice)

对于给定的固定宽度字符纸张大小，这应该始终右对齐 TotalPrice（将 38 更改为您的 POS 打印机额定的任何字符数），并且只要 ItemDescription、TotalPrice 和您的总长度单个字符 spaces 不超过打印机的总字符宽度（您可能应该在计算 Padding 之前检查这一点）。

Delphi POS打印收据文字对齐

Delphi POS printing receipt text alignment

delphi

delphi-7