📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form form1
BorderStyle = 3 'Fixed Dialog
Caption = "打印订单汇总"
ClientHeight = 6090
ClientLeft = 45
ClientTop = 330
ClientWidth = 10035
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "form1.frx":0000
ScaleHeight = 6090
ScaleWidth = 10035
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command2
BackColor = &H00FFC0C0&
Caption = "printer 打印"
Height = 420
Left = 5940
Style = 1 'Graphical
TabIndex = 15
Top = 450
Width = 1620
End
Begin VB.CommandButton Command3
BackColor = &H00FFC0C0&
Caption = "退出"
Height = 420
Left = 8055
Style = 1 'Graphical
TabIndex = 14
Top = 450
Width = 1620
End
Begin VB.CommandButton Command1
BackColor = &H00FFC0C0&
Caption = "printform打印"
Height = 420
Left = 4290
Style = 1 'Graphical
TabIndex = 1
Top = 450
Width = 1620
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "2003.11.02"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 7230
TabIndex = 18
Top = 1860
Width = 1710
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "第 11 期"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 5100
TabIndex = 17
Top = 1830
Width = 1380
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "2003 年"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 3450
TabIndex = 16
Top = 1830
Width = 1380
End
Begin VB.Label Label16
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "1000"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5010
TabIndex = 13
Top = 5190
Width = 3045
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "刊社自用"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 2250
TabIndex = 12
Top = 5175
Width = 1590
End
Begin VB.Label Label14
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "10000"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5010
TabIndex = 11
Top = 4620
Width = 3045
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "邮局零售"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 2250
TabIndex = 10
Top = 4635
Width = 1590
End
Begin VB.Label Label12
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "12000"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5010
TabIndex = 9
Top = 4065
Width = 3045
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "邮局预定"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 2250
TabIndex = 8
Top = 4065
Width = 1590
End
Begin VB.Label Label10
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "2000"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5010
TabIndex = 7
Top = 3510
Width = 3045
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "自办零售"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 2220
TabIndex = 6
Top = 3540
Width = 1590
End
Begin VB.Label Label8
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "3000"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5010
TabIndex = 5
Top = 2955
Width = 3045
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "自办印数"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 2250
TabIndex = 4
Top = 2940
Width = 1590
End
Begin VB.Label Label6
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "35000"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5010
TabIndex = 3
Top = 2370
Width = 3045
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "总 印 数"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 2160
TabIndex = 2
Top = 2400
Width = 1590
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "读者文摘"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 1800
TabIndex = 0
Top = 1830
Width = 1380
End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Command1.Visible = False
Command2.Visible = False
Command3.Visible = False
Me.PrintForm
Command1.Visible = True
Command2.Visible = True
Command3.Visible = True
End Sub
Private Sub Command2_Click()
Printer.Height = 16000
Printer.Width = 11300
Dim A, b, c, d, e, f, g, h As Single
A = 4000: b = 3000: c = 1200
d = 3000: e = 2000: f = 9500
g = 2800
Printer.FontSize = 18
Printer.CurrentX = A
Printer.CurrentY = b
Printer.Print " 印数通知单 "
Printer.FontSize = 13
Printer.CurrentX = e + 800
Printer.CurrentY = b + 550
Printer.Print Label1.Caption & " " & Label2.Caption & " " & Label3.Caption & " " & Label4.Caption
b = b + 300 + 600
Printer.Line (e, b)-(f, b)
Printer.Line (e, b)-(e, b + 550)
Printer.CurrentX = e + 700
Printer.CurrentY = b + 130
Printer.Print "总 印 数"
Printer.Line (e + g, b)-(e + g, b + 550)
Printer.CurrentX = e + g + 2900
Printer.CurrentY = b + 130
Printer.Print Label6.Caption
Printer.Line (f, b)-(f, b + 550)
b = b + 550
Printer.Line (e, b)-(f, b)
Printer.Line (e, b)-(e, b + 550)
Printer.CurrentX = e + 700
Printer.CurrentY = b + 130
Printer.Print "自办发行"
Printer.Line (e + g, b)-(e + g, b + 550)
Printer.CurrentX = e + g + 2900
Printer.CurrentY = b + 130
Printer.Print Label8.Caption
Printer.Line (f, b)-(f, b + 550)
b = b + 550
Printer.Line (e, b)-(f, b)
Printer.Line (e, b)-(e, b + 550)
Printer.CurrentX = e + 700
Printer.CurrentY = b + 130
Printer.Print "自办零售"
Printer.Line (e + g, b)-(e + g, b + 550)
Printer.CurrentX = e + g + 2900
Printer.CurrentY = b + 130
Printer.Print Label10.Caption
Printer.Line (f, b)-(f, b + 550)
b = b + 550
Printer.Line (e, b)-(f, b)
Printer.Line (e, b)-(e, b + 550)
Printer.CurrentX = e + 700
Printer.CurrentY = b + 130
Printer.Print "邮局预订"
Printer.Line (e + g, b)-(e + g, b + 550)
Printer.CurrentX = e + g + 2900
Printer.CurrentY = b + 130
Printer.Print Label12.Caption
Printer.Line (f, b)-(f, b + 550)
b = b + 550
Printer.Line (e, b)-(f, b)
Printer.Line (e, b)-(e, b + 550)
Printer.CurrentX = e + 700
Printer.CurrentY = b + 130
Printer.Print "邮局零售"
Printer.Line (e + g, b)-(e + g, b + 550)
Printer.CurrentX = e + g + 2900
Printer.CurrentY = b + 130
Printer.Print Label14.Caption
Printer.Line (f, b)-(f, b + 550)
b = b + 550
Printer.Line (e, b)-(f, b)
Printer.Line (e, b)-(e, b + 550)
Printer.CurrentX = e + 700
Printer.CurrentY = b + 130
Printer.Print "刊社自用"
Printer.Line (e + g, b)-(e + g, b + 550)
Printer.CurrentX = e + g + 2900
Printer.CurrentY = b + 130
Printer.Print Label16.Caption
Printer.Line (f, b)-(f, b + 550)
b = b + 550
Printer.Line (e, b)-(f, b)
Printer.EndDoc
End Sub
Private Sub Command3_Click()
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -