📄 form1.frm
字号:
Width = 495
End
Begin VB.Shape Shape4
BorderColor = &H000000FF&
Height = 540
Left = 1320
Top = 330
Width = 495
End
Begin VB.Shape Shape3
BorderColor = &H000000FF&
Height = 540
Left = 705
Top = 330
Width = 500
End
Begin VB.Line Line26
BorderColor = &H00008000&
X1 = 5370
X2 = 8415
Y1 = 690
Y2 = 690
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "中华人民邮政汇款通知"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 315
Left = 5445
TabIndex = 0
Top = 315
Width = 3075
End
Begin VB.Line Line25
BorderColor = &H00008000&
X1 = 5730
X2 = 5730
Y1 = 6030
Y2 = 7050
End
Begin VB.Line Line24
BorderColor = &H00008000&
X1 = 7260
X2 = 7260
Y1 = 6045
Y2 = 7020
End
Begin VB.Line Line23
BorderColor = &H00008000&
X1 = 4110
X2 = 4110
Y1 = 6030
Y2 = 8100
End
Begin VB.Line Line22
BorderColor = &H00008000&
X1 = 2100
X2 = 8835
Y1 = 7590
Y2 = 7590
End
Begin VB.Line Line21
X1 = 2085
X2 = 8820
Y1 = 7035
Y2 = 7035
End
Begin VB.Line Line20
BorderColor = &H00008000&
X1 = 2085
X2 = 8835
Y1 = 6600
Y2 = 6600
End
Begin VB.Line Line19
BorderColor = &H00008000&
X1 = 2070
X2 = 2070
Y1 = 6030
Y2 = 8115
End
Begin VB.Shape Shape2
BorderColor = &H00008000&
Height = 2115
Left = 645
Top = 6015
Width = 8205
End
Begin VB.Shape Shape1
BorderColor = &H00008000&
Height = 3990
Left = 9375
Top = 840
Width = 1560
End
Begin VB.Line Line18
BorderColor = &H00008000&
X1 = 6870
X2 = 8895
Y1 = 3240
Y2 = 3240
End
Begin VB.Line Line17
BorderColor = &H00008000&
X1 = 6855
X2 = 8910
Y1 = 4905
Y2 = 4905
End
Begin VB.Line Line16
BorderColor = &H00008000&
X1 = 7680
X2 = 7680
Y1 = 960
Y2 = 1800
End
Begin VB.Line Line15
BorderColor = &H00008000&
X1 = 7320
X2 = 8865
Y1 = 1800
Y2 = 1800
End
Begin VB.Line Line14
BorderColor = &H00008000&
X1 = 6840
X2 = 8880
Y1 = 1395
Y2 = 1395
End
Begin VB.Line Line13
BorderColor = &H00008000&
X1 = 8880
X2 = 8880
Y1 = 960
Y2 = 4920
End
Begin VB.Line Line12
BorderColor = &H00008000&
X1 = 750
X2 = 6870
Y1 = 5160
Y2 = 5160
End
Begin VB.Line Line11
BorderColor = &H00008000&
X1 = 1215
X2 = 6840
Y1 = 4635
Y2 = 4635
End
Begin VB.Line Line10
BorderColor = &H00008000&
X1 = 1215
X2 = 6840
Y1 = 3840
Y2 = 3840
End
Begin VB.Line Line9
BorderColor = &H00008000&
X1 = 1200
X2 = 6855
Y1 = 3240
Y2 = 3240
End
Begin VB.Line Line8
BorderColor = &H00008000&
X1 = 1215
X2 = 6840
Y1 = 2280
Y2 = 2280
End
Begin VB.Line Line7
BorderColor = &H00008000&
X1 = 2400
X2 = 2400
Y1 = 1800
Y2 = 5160
End
Begin VB.Line Line6
X1 = 1200
X2 = 1200
Y1 = 1800
Y2 = 5160
End
Begin VB.Line Line5
BorderColor = &H00008000&
X1 = 720
X2 = 7320
Y1 = 1800
Y2 = 1800
End
Begin VB.Line Line4
BorderColor = &H00008000&
X1 = 720
X2 = 8880
Y1 = 960
Y2 = 960
End
Begin VB.Line Line3
X1 = 6840
X2 = 6840
Y1 = 960
Y2 = 5160
End
Begin VB.Line Line2
BorderColor = &H00008000&
X1 = 690
X2 = 9150
Y1 = 5505
Y2 = 5505
End
Begin VB.Line Line1
BorderColor = &H00008000&
X1 = 720
X2 = 720
Y1 = 960
Y2 = 5175
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\postprint.mdb"
End Sub
Private Sub Text3_Change()
Label24.Caption = Left(Text3.Text, 1) & " " & Right(Left(Text3.Text, 2), 1) & " " & Right(Left(Text3.Text, 3), 1) & " " & Right(Left(Text3.Text, 4), 1) & " " & Right(Left(Text3.Text, 5), 1) & " " & Right(Left(Text3.Text, 6), 1)
End Sub
Private Sub Text4_Change() '转换小写金额为大写金额
Text4.Refresh
Text8.Text = changemoney(Val(Text4.Text))
If Text4.Text = "0" Then
Text8.Text = "零圆"
Else
Text8.Text = changemoney(Val(Text4.Text))
End If
End Sub
Private Sub ComPrint_Click()
Dim a As Integer
Dim b As Integer
a = 10
b = 10
Printer.Height = 10000 '设置打印纸张高度
Printer.Width = 12000 '设置打印纸张宽度
Printer.FontSize = 25 '设置打印字体大小
Printer.CurrentX = 530 + a
Printer.CurrentY = 150 + b
Printer.Print Left(Text3.Text, 1) '打印邮编第一位
Printer.FontSize = 25
Printer.CurrentX = 1090 + a
Printer.CurrentY = 150 + b
Printer.Print Left(Right(Text3.Text, 5), 1) '打印邮编第二位
Printer.FontSize = 25
Printer.CurrentX = 1580 + a
Printer.CurrentY = 150 + b
Printer.Print Left(Right(Text3.Text, 4), 1) '打印邮编第三位
Printer.CurrentX = 2200 + a
Printer.CurrentY = 150 + b
Printer.FontSize = 25
Printer.Print Left(Right(Text3.Text, 3), 1) '打印邮编第四位
Printer.CurrentX = 2700 + a
Printer.CurrentY = 150 + b
Printer.FontSize = 25
Printer.Print Left(Right(Text3.Text, 2), 1) '打印邮编第五位
Printer.CurrentX = 3290 + a
Printer.CurrentY = 150 + b
Printer.FontSize = 25
Printer.Print Right(Text3.Text, 1) '打印邮编第六位
Printer.FontSize = 12
Printer.CurrentX = 2460 + a
Printer.CurrentY = 1900 + b
Printer.FontSize = 12
Printer.Print Text8.Text '打印汇款金额
Printer.CurrentX = 9700 + a
Printer.CurrentY = 1930 + b
Printer.Print Text5.Text
Printer.CurrentX = 1900 + a
Printer.CurrentY = 2440 + b
Printer.Print Text2.Text '打印收款人地址
Printer.CurrentX = 9400 + a
Printer.CurrentY = 2440 + b
Printer.Print "第"
Printer.CurrentX = 9700 + a
Printer.CurrentY = 2440 + b
Printer.Print Text6.Text '打印刊物期次
Printer.CurrentX = 10100 + a
Printer.CurrentY = 2440 + b
Printer.Print "期"
Printer.CurrentX = 2000 + a
Printer.CurrentY = 3100 + b
Printer.Print Text1.Text '打印收款人姓名
Printer.CurrentX = 9400 + a
Printer.CurrentY = 3100 + b
Printer.Print "第"
Printer.CurrentX = 9700 + a
Printer.CurrentY = 3100 + b
Printer.Print Text7.Text '打印稿件页码
Printer.CurrentX = 10100 + a
Printer.CurrentY = 3100 + b
Printer.Print "页"
Printer.CurrentX = 2000 + a
Printer.CurrentY = 3800 + b
Printer.Print Text9.Text '打印汇款人地址
Printer.CurrentX = 9600 + a
Printer.CurrentY = 3800 + b
Printer.Print "稿费" '打印汇款来由
Printer.CurrentX = 2000 + a
Printer.CurrentY = 4550 + b
Printer.Print Text10.Text '打印汇款人姓名
Printer.CurrentX = 3800 + a
Printer.CurrentY = 7200 + b
Printer.Print Text11.Text '打印汇款人地址
Printer.CurrentX = 3800 + a
Printer.CurrentY = 7780 + b
Printer.Print Text12.Text '打印汇款人姓名
Printer.EndDoc
End Sub
Private Sub ComEnd_Click()
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -