销售报表小票打印代码

hupingrenjia

Option Compare Database
Option Explicit
Private Sub Report_Open(Cancel As Integer)
    Me.标签0.Caption = strCompany & "-销售单"
End Sub
Private Sub Report_Page()
    Dim qi As Single    '起
    Dim zhi As Single   '止
    Dim hqi As Single   '横线起
    Dim n As Integer
   
    Report.ScaleMode = 7
   
    qi = 3
    zhi = 9.6
    hqi = 4.8
   
    '竖线
    Line (0, qi)-(0, zhi + 0.801)
    Line (5.3, qi)-(5.3, zhi)
    Line (8.6, qi)-(8.6, zhi)
    Line (10.1, qi)-(10.1, zhi)
    Line (12.3, qi)-(12.3, zhi)
    Line (14.5, qi)-(14.5, zhi)
    Line (16.9, qi)-(16.9, zhi + 0.801)
   
    For n = 1 To 8
        Line (0, hqi)-(16.9, hqi)
        hqi = hqi + 0.801
    Next n
        
    n = Me.Text124 Mod 7
   
    If n > 0 Then
        Line (0, zhi)-(5.3, zhi - (7 - n) * 0.801)
    End If
   
End Sub

Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)
    Me.Text135 = DLookup("地址", "公司信息表")
    Me.Text137 = DLookup("电话", "公司信息表")
End Sub
Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
    Me.Text116 = Me.Text116 + Me.金额
End Sub
Private Sub 组页眉0_Print(Cancel As Integer, PrintCount As Integer)
    Me.Text116 = 0
End Sub
上面是原代码，并不适合76mm的小票打印机，请问如何修改？

hupingrenjia

哪个解答一下？

高处不胜寒

指的是纸张还是？

hupingrenjia

纸张，先说一下，试一试。

hupingrenjia

想得到答案。