📄 printxdd.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form PrintXdd
BorderStyle = 3 'Fixed Dialog
Caption = "用户档案校对单"
ClientHeight = 5835
ClientLeft = 45
ClientTop = 330
ClientWidth = 10035
Icon = "PrintXdd.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5835
ScaleWidth = 10035
ShowInTaskbar = 0 'False
Begin MSComctlLib.ImageList ImageList1
Left = 1425
Top = 5385
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 20
ImageHeight = 20
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 1
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "PrintXdd.frx":0442
Key = ""
EndProperty
EndProperty
End
Begin VB.CommandButton Command1
Caption = "退出(&E)"
Height = 360
Index = 1
Left = 8535
TabIndex = 2
Top = 5445
Width = 1440
End
Begin VB.CommandButton Command1
Caption = "打印(&P)"
Height = 360
Index = 0
Left = 6495
TabIndex = 1
Top = 5445
Width = 1440
End
Begin MSComctlLib.ListView ListView1
Height = 5265
Left = 60
TabIndex = 0
Top = 120
Width = 9915
_ExtentX = 17489
_ExtentY = 9287
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 9
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "用户编码"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "用户名称"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "电表底度"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "用户编码"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "用户名称"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "电表底度"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 6
Text = "用户编码"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 7
Text = "用户名称"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 8
Text = "电表底度"
Object.Width = 1764
EndProperty
End
End
Attribute VB_Name = "PrintXdd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click(Index As Integer)
If Index = 0 Then
Call Print_Xdd
Else
Unload Me
End If
End Sub
Private Sub Form_Load()
On Error Resume Next
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 1 - 1200
OpenMdb
Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.用户编码,用户电费.用户名称,用户电费.[" & AAA & "] AS 上期示数 FROM 用户电费 WHERE 用户电费.镇村代码='" & UserSeek & "' and 用户电费.主表=-1 order by 用户电费.组合编码")
With MdbR
For i = 0 To .RecordCount
Set xitem = ListView1.ListItems.Add(, , .Fields("用户编码"), , 1)
xitem.SubItems(1) = .Fields("用户名称")
xitem.SubItems(2) = .Fields("上期示数")
If .AbsolutePosition = .RecordCount Then
.MoveLast
Exit For
Else
.MoveNext
End If
xitem.SubItems(3) = .Fields("用户编码")
xitem.SubItems(4) = .Fields("用户名称")
xitem.SubItems(5) = .Fields("上期示数")
If .AbsolutePosition = .RecordCount Then
.MoveLast
Exit For
Else
.MoveNext
End If
xitem.SubItems(6) = .Fields("用户编码")
xitem.SubItems(7) = .Fields("用户名称")
xitem.SubItems(8) = .Fields("上期示数")
If .AbsolutePosition = .RecordCount Then
.MoveLast
Exit For
Else
.MoveNext
End If
Next
End With
End Sub
Sub Print_Xdd()
Dim i As Integer
Dim j As Integer
Dim Start As String
Dim end_s As String
Dim k As Integer
Dim temp_string As String
On Error GoTo hander
Call printer_init '设置坐标的全部长度
Printer.CurrentY = 0
Printer.CurrentX = 0
Printer.FontSize = 16
Printer.Print Space(24) & XcName & "用户档案校对单"
Printer.FontSize = 11
Printer.Print Space(10) & "打印日期:" & Date & Space(70) & "第" & Printer.Page; "页"
Printer.Print String(110, "-")
Printer.Print " 用户编码 用户名称 建档底度 用户编码 用户名称 建档底度 用户编码 用户名称 建档底度"
j = 0
For i = 1 To ListView1.ListItems.Count
If j < 62 Then
Printer.Print Space(3) & ListView1.ListItems(i).Text & Space(5) & Left(Trim(ListView1.ListItems(i).SubItems(1)) & Space(8), 10 - convert_str(Trim(ListView1.ListItems(i).SubItems(1)))) & Space(5) & Left(Trim(Val(ListView1.ListItems(i).SubItems(2))) & Space(6), 6 - convert_str(Trim(Val(ListView1.ListItems(i).SubItems(3))))) & Space(4) & ListView1.ListItems(i).SubItems(3) & Space(5) & Left(Trim(ListView1.ListItems(i).SubItems(4)) & Space(8), 10 - convert_str(Trim(ListView1.ListItems(i).SubItems(4)))) & Space(8) & Left(Trim(Val(ListView1.ListItems(i).SubItems(5))) & Space(6), 6 - convert_str(Trim(Val(ListView1.ListItems(i).SubItems(5))))) & Space(7) & ListView1.ListItems(i).SubItems(6) & Space(5) & Left(Trim(ListView1.ListItems(i).SubItems(7)) & Space(8), 10 - convert_str(Trim(ListView1.ListItems(i).SubItems(7)))) & Space(4) & Left(Trim(Val(ListView1.ListItems(i).SubItems(8))) & Space(6), 6 - convert_str(Trim(Val(ListView1.ListItems(i).SubItems(8)))))
j = j + 1
Else
Printer.Print Space(3) & ListView1.ListItems(i).Text & Space(5) & Left(Trim(ListView1.ListItems(i).SubItems(1)) & Space(8), 10 - convert_str(Trim(ListView1.ListItems(i).SubItems(1)))) & Space(5) & Left(Trim(Val(ListView1.ListItems(i).SubItems(2))) & Space(6), 6 - convert_str(Trim(Val(ListView1.ListItems(i).SubItems(3))))) & Space(4) & ListView1.ListItems(i).SubItems(3) & Space(5) & Left(Trim(ListView1.ListItems(i).SubItems(4)) & Space(8), 10 - convert_str(Trim(ListView1.ListItems(i).SubItems(4)))) & Space(8) & Left(Trim(Val(ListView1.ListItems(i).SubItems(5))) & Space(6), 6 - convert_str(Trim(Val(ListView1.ListItems(i).SubItems(5))))) & Space(7) & ListView1.ListItems(i).SubItems(6) & Space(5) & Left(Trim(ListView1.ListItems(i).SubItems(7)) & Space(8), 10 - convert_str(Trim(ListView1.ListItems(i).SubItems(7)))) & Space(4) & Left(Trim(Val(ListView1.ListItems(i).SubItems(8))) & Space(6), 6 - convert_str(Trim(Val(ListView1.ListItems(i).SubItems(8)))))
Printer.Print String(110, "-")
Printer.NewPage
Printer.FontSize = 16
Printer.Print Space(24) & XcName & "用户档案校对单"
Printer.FontSize = 11
Printer.Print Space(10) & "打印日期:" & Date & Space(50) & "第" & Printer.Page; "页"
Printer.Print String(110, "-")
Printer.Print " 用户编码 用户名称 建档底度 用户编码 用户名称 建档底度 用户编码 用户名称 建档底度"
j = 0
End If
Next
Printer.Print String(110, "-")
Printer.Print ""
Printer.EndDoc
Exit Sub
hander:
Select Case Err.Number
Case 482:
MsgBox "打印机错误!", vbCritical
Exit Sub
Case Else
Resume Next
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -