谁用过超市中的小票打印机？用vb编的程序，为何报表打印时，打出的数据是挤在一起的乱码？

[fivehun]

谁用过超市中的小票打印机？用vb编的程序，为何报表打印时，打出的数据是挤在一起的乱码？数据是从数据库中读出的。请高手指教！

[二师兄的老公]

帮你顶！
考虑一下字体、打印页面大小等等关键属性。

[dxqylzg]

用printer 对象应该没问题的。

[fivehun]

我用的是activereporter1.0

[fankun]

不是调用的字体程序不兼容，就是你的打印机有问题

[planetike]

不知道楼主的打印机是什么型号的.我的是那种一般的热敏POS打印机.
'开始打印
If Not PrintBill Then
Lspxx2.Caption = "系统设置为不打印小票,按【F3】手动开启钱箱!"
Else
Lspxx2.Caption = "正在打印销售小票...."
Open "LPT1" For Output As #1
If OpenMbox Then '是否弹出钱箱
Print #1, OpenBox(OpenBoxCommand)
End If
Print #1, Space(CInt((20 - Len(XPBT)) / 2)) & XPBT
Print #1, ""
Print #1, "收银员:" & UsrCode & " [NO]:" & LSH
Print #1, Replace(Space(32), " ", "-")
Print #1, "商品名 数量 单价 小计"
For i = 1 To CurRow
Print #1, CutStr3(Trim(FlexGrid.TextMatrix(i - 1, 1)), 8) & CutStr2(Trim(FlexGrid.TextMatrix(i - 1, 2)), 5) & CutStr2(Trim(FlexGrid.TextMatrix(i - 1, 4)), 5) & CutStr2(Trim(FlexGrid.TextMatrix(i - 1, 5)), 6)
Next
Print #1, Replace(Space(32), " ", "-")
Print #1, "机号: " & POS_NO & " 数量: " & CurRow & "总计: " & Format(CurZHJE, "0.00") & "元"
Print #1, "付款: " & Format(CurFK, "0.00") & "(元) 找零: " & Format(CurFK - CurSFJE, "0.0") & "元"
If CurxfkSFYX Then
If PrintXFK Then
Print #1, "消费券号码: " & Trim(CurXFKH) & " (有效)"
Else
Print #1, "消费券号码: (保密) (有效)"
End If
Else
If PrintXFK Then
Print #1, "消费券号码: " & Trim(CurXFKH) & "(无效)"
Else
Print #1, "消费券号码: (保密)(无效)"
End If
End If
Print #1, "本次消费券消费金额: " & Format(CurXFKJE, "0.00") & "元"
Print #1, XPBW
Print #1, ""
If Trim(GGC) <> "" Then
Print #1, "----------* 本店消息 *----------"
Print #1, Space(CInt((25 - Len(GGC)) / 2)) & GGC
Print #1, ""
Else
Print #1, ""
Print #1, ""
End If
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Close #1

[fivehun]

我所用的打印机是EPSON TM-U210PD

[fivehun]

而且用的是activereporter1.0

[SuperZhou]

用Activereport 2.0吧,最新的版本为1208
去Datadynamic的官方FTP网站:ftp.datadynamics.com下载

[fivehun]

请告诉我用户名和密码！谢谢！