📄 frm_accountbook.frm
字号:
Printer.Line (v5, A)-(v5, A + 300)
Printer.CurrentX = v5 + 50
Printer.CurrentY = A + 50
If MS1.TextMatrix(i, 4) <> "" Then Printer.Print MS1.TextMatrix(i, 4)
End If
If MS1.ColWidth(5) > 0 Then
Printer.Line (v6, A)-(v6, A + 300)
Printer.CurrentX = v6 + 50
Printer.CurrentY = A + 50
If MS1.TextMatrix(i, 5) <> "" Then Printer.Print MS1.TextMatrix(i, 5)
End If
If MS1.ColWidth(6) > 0 Then
Printer.Line (v7, A)-(v7, A + 300)
Printer.CurrentX = v7 + 80
Printer.CurrentY = A + 50
If MS1.TextMatrix(i, 6) <> "" Then Printer.Print MS1.TextMatrix(i, 6)
End If
If MS1.ColWidth(7) > 0 Then
Printer.Line (v8, A)-(v8, A + 300)
Printer.CurrentX = v8 + 80
Printer.CurrentY = A + 50
If MS1.TextMatrix(i, 7) <> "" Then Printer.Print MS1.TextMatrix(i, 7)
End If
Printer.Line (v9, A)-(v9, 300 + A)
Printer.Line (v1, A + 300)-(v9, 300 + A)
A = A + 300
Next i
Printer.FontSize = 12
Printer.CurrentX = v1 + 20
Printer.CurrentY = A + 100
Printer.Print "应收金额: " & LabGathering.Caption
Printer.CurrentX = v1 + 3000
Printer.CurrentY = A + 100
Printer.Print "应付金额: " & LabPayment.Caption
Printer.CurrentX = v1 + 5500
Printer.CurrentY = A + 100
Printer.Print "往来单位: " & Label4.Caption
Printer.Line (v1, 800 + A)-(v9, 800 + A)
Printer.FontSize = 10
Printer.CurrentX = v1 + 100
Printer.CurrentY = A + 460
Printer.Print "日期和时间:"
Printer.CurrentX = v1 + 1100
Printer.CurrentY = A + 460
Printer.CurrentX = v1 + 2600
Printer.CurrentY = A + 460
Printer.Print "计划人:"
Printer.CurrentX = v1 + 5300
Printer.CurrentY = A + 460
Printer.Print "复核人:"
Printer.CurrentX = v1 + 7800
Printer.CurrentY = A + 460
Printer.CurrentX = 9000
Printer.CurrentY = A + 460
Printer.Print "共" & Int(MS1.Rows / 60) + 1 & "页 第 １ 页"
End If
If MS1.Rows > 60 Then
e = Int(MS1.Rows / 60) + 1
F = 0
For d = 1 To (e - 1)
Printer.FontSize = 80
Printer.CurrentX = 2600
Printer.CurrentY = 200
Printer.Print "与『" & Label4.Caption & "』" & Me.Caption '标题
Printer.CurrentX = 200
Printer.CurrentY = 700
Printer.FontSize = 11
Printer.Print "日期:" & Date
Printer.CurrentX = 3000
Printer.CurrentY = 700
Printer.Print "时间:" & Time
A = 1100
c = 1
For i = (F + 0) To (F + 60)
v9 = MS1.Width * 1.1
Printer.Line (v1, 1000)-(v9, 1000)
Printer.Line (v1, A)-(v11, A)
If MS1.ColWidth(0) > 0 Then
Printer.Line (v1, A)-(v1, A + 300)
Printer.CurrentX = 260
Printer.CurrentY = A + 50
Printer.FontSize = 10
If MS1.TextMatrix(i, 0) <> "" Then Printer.Print MS1.TextMatrix(i, 0)
End If
If MS1.ColWidth(1) > 0 Then
Printer.Line (v2, A)-(v2, A + 300)
Printer.CurrentX = v2 + 10
Printer.CurrentY = A + 50
Printer.FontSize = 11
' Printer.Print Text1(1).Text
If MS1.TextMatrix(i, 1) <> "" Then Printer.Print MS1.TextMatrix(i, 1)
End If
If MS1.ColWidth(2) > 0 Then
Printer.Line (v3, A)-(v3, A + 300)
Printer.CurrentX = v3 + 50
Printer.CurrentY = A + 50
Printer.FontSize = 11
'Printer.Print Text1(2).Text
If MS1.TextMatrix(i, 2) <> "" Then Printer.Print MS1.TextMatrix(i, 2)
End If
If MS1.ColWidth(3) > 0 Then
Printer.Line (v4, A)-(v4, A + 300)
Printer.CurrentX = v4 + 50
Printer.CurrentY = A + 50
Printer.FontSize = 11
'Printer.Print Text1(3).Text
If MS1.TextMatrix(i, 3) <> "" Then Printer.Print MS1.TextMatrix(i, 3)
End If
If MS1.ColWidth(4) > 0 Then
Printer.Line (v5, A)-(v5, A + 300)
Printer.CurrentX = v5 + 50
Printer.CurrentY = A + 50
'Printer.Print Text1(5).Text
If MS1.TextMatrix(i, 4) <> "" Then Printer.Print MS1.TextMatrix(i, 4)
End If
If MS1.ColWidth(5) > 0 Then
Printer.Line (v6, A)-(v6, A + 300)
Printer.CurrentX = v6 + 50
Printer.CurrentY = A + 50
'Printer.Print Text1(4).Text
If MS1.TextMatrix(i, 5) <> "" Then Printer.Print MS1.TextMatrix(i, 5)
End If
If MS1.ColWidth(6) > 0 Then
Printer.Line (v7, A)-(v7, A + 300)
Printer.CurrentX = v7 + 80
Printer.CurrentY = A + 50
'Printer.Print Text1(6).Text
If MS1.TextMatrix(i, 6) <> "" Then Printer.Print MS1.TextMatrix(i, 6)
End If
If MS1.ColWidth(7) > 0 Then
Printer.Line (v8, A)-(v8, A + 300)
Printer.CurrentX = v8 + 80
Printer.CurrentY = A + 50
'Printer.Print Text1(7).Text
If MS1.TextMatrix(i, 7) <> "" Then Printer.Print MS1.TextMatrix(i, 7)
End If
Printer.Line (v9, A)-(v9, A + 300)
Printer.Line (v1, A + 300)-(v9, A + 300)
Printer.Line (v1, A)-(v9, A)
A = A + 300
Next i
Printer.CurrentX = v1 + 20
Printer.CurrentY = A + 100
Printer.Print "应付金额: " & LabPayment.Caption
Printer.CurrentX = v1 + 3000
Printer.CurrentY = A + 100
Printer.Print "应收金额: " & LabGathering.Caption
Printer.CurrentX = v1 + 3000
Printer.CurrentY = A + 100
' Printer.Print "应付金额: " & LabPayment.Caption
Printer.CurrentX = v1 + 5300
Printer.CurrentY = A + 100
Printer.Print "往来单位: " & Label4.Caption
Printer.Line (v1, 800 + A)-(v9, 800 + A)
Printer.FontSize = 10
Printer.CurrentX = v1 + 100
Printer.CurrentY = A + 460
Printer.Print "日期和时间:"
Printer.CurrentX = v1 + 1100
Printer.CurrentY = A + 460
Printer.CurrentX = v1 + 2600
Printer.CurrentY = A + 460
Printer.Print "计划人:"
Printer.CurrentX = v1 + 5300
Printer.CurrentY = A + 460
Printer.Print "复核人:"
Printer.CurrentX = v1 + 7800
Printer.CurrentY = A + 460
F = F + 60
Printer.CurrentX = 8000
Printer.CurrentY = A + 200
Printer.Print "第 "; d & " 页"
Next d
A = 2300
Printer.FontSize = 15
Printer.CurrentX = 2600
Printer.CurrentY = 200
Printer.Print "与『" & Label4.Caption & "』" & Me.Caption '标题
Printer.CurrentX = 200
Printer.CurrentY = 700
Printer.FontSize = 11
Printer.Print "日期:" & Date
Printer.CurrentX = 3000
Printer.CurrentY = 700
Printer.Print "时间:" & Time
A = 1100
c = 1
For i = F + 1 To MS1.Rows - 1
v9 = MS1.Width * 1.1
Printer.Line (v1, 1000)-(v9, 1000)
Printer.Line (v1, A)-(v11, A)
If MS1.ColWidth(0) > 0 Then
Printer.Line (v1, A)-(v1, A + 300)
Printer.CurrentX = 260
Printer.CurrentY = A + 50
Printer.FontSize = 10
If MS1.TextMatrix(i, 0) <> "" Then Printer.Print MS1.TextMatrix(i, 0)
End If
If MS1.ColWidth(1) > 0 Then
Printer.Line (v2, A)-(v2, A + 300)
Printer.CurrentX = v2 + 10
Printer.CurrentY = A + 50
Printer.FontSize = 11
If MS1.TextMatrix(i, 1) <> "" Then Printer.Print MS1.TextMatrix(i, 1)
End If
If MS1.ColWidth(2) > 0 Then
Printer.Line (v3, A)-(v3, A + 300)
Printer.CurrentX = v3 + 50
Printer.CurrentY = A + 50
Printer.FontSize = 11
If MS1.TextMatrix(i, 2) <> "" Then Printer.Print MS1.TextMatrix(i, 2)
End If
If MS1.ColWidth(3) > 0 Then
Printer.Line (v4, A)-(v4, A + 300)
Printer.CurrentX = v4 + 50
Printer.CurrentY = A + 50
Printer.FontSize = 11
If MS1.TextMatrix(i, 3) <> "" Then Printer.Print MS1.TextMatrix(i, 3)
End If
If MS1.ColWidth(4) > 0 Then
Printer.Line (v5, A)-(v5, A + 300)
Printer.CurrentX = v5 + 50
Printer.CurrentY = A + 50
If MS1.TextMatrix(i, 4) <> "" Then Printer.Print MS1.TextMatrix(i, 4)
End If
If MS1.ColWidth(5) > 0 Then
Printer.Line (v6, A)-(v6, A + 300)
Printer.CurrentX = v6 + 50
Printer.CurrentY = A + 50
If MS1.TextMatrix(i, 5) <> "" Then Printer.Print MS1.TextMatrix(i, 5)
End If
If MS1.ColWidth(6) > 0 Then
Printer.Line (v7, A)-(v7, A + 300)
Printer.CurrentX = v7 + 80
Printer.CurrentY = A + 50
If MS1.TextMatrix(i, 6) <> "" Then Printer.Print MS1.TextMatrix(i, 6)
End If
If MS1.ColWidth(7) > 0 Then
Printer.Line (v8, A)-(v8, A + 300)
Printer.CurrentX = v8 + 80
Printer.CurrentY = A + 50
If MS1.TextMatrix(i, 7) <> "" Then Printer.Print MS1.TextMatrix(i, 7)
End If
Printer.Line (v9, A)-(v9, A + 300)
Printer.Line (v1, A + 300)-(v9, A + 300)
Printer.Line (v1, A)-(v9, A)
A = A + 300
Next i
Printer.FontSize = 13
Printer.CurrentX = v1 + 20
Printer.CurrentY = A + 100
Printer.Print "应付金额: " & LabPayment.Caption
Printer.CurrentX = v1 + 3000
Printer.CurrentY = A + 100
Printer.Print "应收金额: " & LabGathering.Caption
Printer.CurrentX = v1 + 3000
Printer.CurrentY = A + 100
Printer.CurrentX = v1 + 5300
Printer.CurrentY = A + 100
Printer.Print "往来单位: " & Label4.Caption
Printer.Line (v1, 800 + A)-(v9, 800 + A)
Printer.FontSize = 10
Printer.CurrentX = v1 + 100
Printer.CurrentY = A + 460
Printer.Print "日期和时间:"
Printer.CurrentX = v1 + 1100
Printer.CurrentY = A + 460
Printer.CurrentX = v1 + 2600
Printer.CurrentY = A + 460
Printer.Print "计划人:"
Printer.CurrentX = v1 + 5300
Printer.CurrentY = A + 460
Printer.Print "复核人:"
Printer.CurrentX = v1 + 7800
Printer.CurrentY = A + 460
Printer.CurrentX = 8000
Printer.CurrentY = A + 200
Printer.Print "第 "; d & " 页"
End If
End If
Printer.EndDoc
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -