📄 printinvoice.frm
字号:
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 2895
MaxLength = 4
TabIndex = 8
Top = 180
Width = 945
End
Begin VB.TextBox Text4
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 1080
MaxLength = 4
TabIndex = 5
Top = 195
Width = 855
End
Begin VB.Label Label24
ForeColor = &H000000FF&
Height = 285
Left = 3930
TabIndex = 54
Top = 240
Width = 2430
End
Begin VB.Label Label8
Caption = "至表码："
Height = 255
Left = 2160
TabIndex = 7
Top = 270
Width = 735
End
Begin VB.Label Label7
Caption = "从表码："
Height = 255
Left = 120
TabIndex = 6
Top = 285
Width = 855
End
End
Begin VB.Frame Frame3
Caption = "做台收费："
Height = 705
Left = 1710
TabIndex = 2
Top = 45
Width = 6525
Begin VB.TextBox Text41
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Left = 4680
Locked = -1 'True
TabIndex = 15
Top = 240
Width = 975
End
Begin VB.TextBox Text6
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Left = 2880
TabIndex = 13
Top = 240
Width = 975
End
Begin VB.TextBox Text3
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Left = 1095
MaxLength = 4
TabIndex = 3
ToolTipText = "请输入4位用户编码,按回车."
Top = 240
Width = 855
End
Begin VB.Label Label38
Caption = "找钱："
Height = 255
Left = 4080
TabIndex = 14
Top = 315
Width = 870
End
Begin VB.Label Label37
Caption = "收钱："
Height = 255
Left = 2160
TabIndex = 12
Top = 315
Width = 615
End
Begin VB.Label Label36
Caption = "用户表码："
Height = 255
Left = 120
TabIndex = 11
Top = 315
Width = 975
End
End
Begin VB.CommandButton Command2
Cancel = -1 'True
Caption = "退出(&E)"
Height = 375
Left = 8325
TabIndex = 1
Top = 630
Width = 975
End
Begin VB.CommandButton Command1
Caption = "打印(&P)"
Height = 375
Left = 8310
TabIndex = 0
Top = 120
Width = 975
End
End
Attribute VB_Name = "PrintInvoice"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim PriUserRecord As Long
Dim Hrecd As Recordset
Dim TemRecd As Recordset
Private Sub Command1_Click()
On Error GoTo hander
Dim I As Integer, kj As Integer, it As Integer, II As Integer
If pbUserPermission <> "" Then
If pbUserPermission <> "系统管理员" Then
MsgBox "您的权限不够，请于系统管理员联系!", vbInformation
Exit Sub
End If
End If
If Option1 Then
Call SetPrinterPar
Call PrinterInit
Call PrintP
Printer.EndDoc
Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.用户名称,用户电费.组合编码,用户电费.[" & JJ & "] AS 发票打印,用户电费.[" & EE & "] AS 调整金额,用户电费.停用,用户电费.主表 From 用户电费 WHERE 用户电费.组合编码='" & UserSeek & Trim(Text3) & "' and 用户电费.主表=-1")
If Not MdbR.NoMatch = True Then
MdbR.Edit
MdbR.Fields!发票打印 = 1
MdbR.Update
End If
Text3.SelStart = 0
Text3.SelLength = Len(Text3)
Text3.SetFocus
Command1.Enabled = False
Else '连续打印
Call RestFP
kj = 1
With MdbR
If .RecordCount <> 0 Then
Screen.MousePointer = 11
Call printer_init
For I = 0 To .RecordCount - 1
Call ViewFP(.Fields!组合编码)
If .AbsolutePosition = .RecordCount Then
.MoveLast
Else
.MoveNext
End If
Select Case kj
Case 1
'标题'发票序号'台区,户号,户名'用电明细,'大写'审核,年月日
For II = 1 To 5
Select Case II
Case 4
Call ProcView(14, PrinXY(II))
Case 5
Call ProcView(16, PrinXY(II))
Case Else
Call ProcView(II, PrinXY(II))
End Select
Next
For it = 1 To ListView1.ListItems.Count
Set ListView1.SelectedItem = ListView1.ListItems(it)
Select Case it
Case 1
Call ProcView(7, PrinXY(6))
Case 2
If ListView1.ListItems.Count = 2 Then
Call ProcView(8, PrinXY(7))
Else
Call ProcView(8, PrinXY(6))
End If
Case 3
If ListView1.ListItems.Count = 3 Then
Call ProcView(9, PrinXY(7))
Else
Call ProcView(9, PrinXY(6))
End If
Case 4
If ListView1.ListItems.Count = 4 Then
Call ProcView(10, PrinXY(7))
Else
Call ProcView(10, PrinXY(6))
End If
End Select
Next
Case 2
'标题
Call ProcView(19, PrinXY(1))
'发票序号
Call ProcView(20, PrinXY(2))
'台区,户号,户名
Call ProcView(21, PrinXY(3))
'用电明细
For it = 1 To ListView1.ListItems.Count
Set ListView1.SelectedItem = ListView1.ListItems(it)
Select Case it
Case 1
Call ProcView(25, PrinXY(6))
Case 2
If ListView1.ListItems.Count = 2 Then
Call ProcView(26, PrinXY(7))
Else
Call ProcView(26, PrinXY(6))
End If
Case 3
If ListView1.ListItems.Count = 3 Then
Call ProcView(27, PrinXY(7))
Else
Call ProcView(27, PrinXY(6))
End If
Case 4
If ListView1.ListItems.Count = 4 Then
Call ProcView(28, PrinXY(7))
Else
Call ProcView(28, PrinXY(6))
End If
End Select
Next
'大写
Call ProcView(32, PrinXY(4))
'审核,年月日
Call ProcView(33, PrinXY(5))
Case 3
Call ProcView(36, PrinXY(1))
Call ProcView(38, PrinXY(2))
Call ProcView(39, PrinXY(3))
'用电明细
For it = 1 To ListView1.ListItems.Count
Set ListView1.SelectedItem = ListView1.ListItems(it)
Select Case it
Case 1
Call ProcView(43, PrinXY(6))
Case 2
If ListView1.ListItems.Count = 2 Then
Call ProcView(44, PrinXY(7))
Else
Call ProcView(44, PrinXY(6))
End If
Case 3
If ListView1.ListItems.Count = 3 Then
Call ProcView(45, PrinXY(7))
Else
Call ProcView(45, PrinXY(6))
End If
Case 4
If ListView1.ListItems.Count = 4 Then
Call ProcView(46, PrinXY(7))
Else
Call ProcView(46, PrinXY(6))
End If
End Select
Next
'大写
Call ProcView(49, PrinXY(4))
'审核,年月日
Call ProcView(51, PrinXY(5))
Case 4
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -