📄 dayinyu.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form dayinyu
Caption = "打印预览"
ClientHeight = 6804
ClientLeft = 48
ClientTop = 348
ClientWidth = 9504
Icon = "DAYINYU.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 120.015
ScaleMode = 6 'Millimeter
ScaleWidth = 167.64
Begin VB.PictureBox Picture1
Height = 7572
Left = 0
ScaleHeight = 7524
ScaleWidth = 11964
TabIndex = 8
Top = 600
Width = 12012
Begin VB.HScrollBar HScroll1
Height = 252
Left = 0
TabIndex = 11
Top = 7320
Width = 2172
End
Begin VB.VScrollBar VScroll1
Height = 1572
Left = 11760
TabIndex = 10
Top = 0
Width = 252
End
Begin VB.PictureBox Picture3
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 5412
Left = 480
ScaleHeight = 5388
ScaleWidth = 6348
TabIndex = 9
Top = 240
Width = 6372
End
End
Begin VB.PictureBox Picture2
Align = 1 'Align Top
Height = 495
Left = 0
ScaleHeight = 444
ScaleWidth = 9456
TabIndex = 0
Top = 0
Width = 9504
Begin VB.CommandButton Command1
Height = 400
Left = 960
Picture = "DAYINYU.frx":0442
Style = 1 'Graphical
TabIndex = 7
ToolTipText = "打印机设置"
Top = 0
Width = 735
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 360
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command4
Caption = "关闭"
Height = 400
Left = 5400
TabIndex = 6
Top = 0
Width = 735
End
Begin VB.CommandButton Command3
Caption = "打印"
Height = 400
Left = 4680
TabIndex = 5
Top = 0
Width = 735
End
Begin VB.CommandButton cmdFirst
Height = 400
Left = 2160
Picture = "DAYINYU.frx":1474
Style = 1 'Graphical
TabIndex = 4
ToolTipText = "第一条"
Top = 0
UseMaskColor = -1 'True
Width = 735
End
Begin VB.CommandButton cmdPrevious
Height = 400
Left = 2760
Picture = "DAYINYU.frx":17B6
Style = 1 'Graphical
TabIndex = 3
ToolTipText = "后一条"
Top = 0
UseMaskColor = -1 'True
Width = 735
End
Begin VB.CommandButton cmdNext
Height = 400
Left = 3360
Picture = "DAYINYU.frx":1AF8
Style = 1 'Graphical
TabIndex = 2
ToolTipText = "前一条"
Top = 0
UseMaskColor = -1 'True
Width = 735
End
Begin VB.CommandButton cmdLast
Height = 400
Left = 3960
Picture = "DAYINYU.frx":1E3A
Style = 1 'Graphical
TabIndex = 1
ToolTipText = "末一条"
Top = 0
UseMaskColor = -1 'True
Width = 735
End
End
End
Attribute VB_Name = "dayinyu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
Dim wfl, htl, yfl As Long
Dim hth, hwm, fhr, yhm, sj As String
Dim txt As String
'##################################################################
'## 过程名称：cmdFirst_Click
'## 参数： 无
'##################################################################
Private Sub cmdFirst_Click()
yuqcd.Adodc1.Recordset.MoveFirst
Call Form_Load
End Sub
'##################################################################
'## 过程名称：cmdLast_Click
'## 参数： 无
'##################################################################
Private Sub cmdLast_Click()
yuqcd.Adodc1.Recordset.MoveLast
Call Form_Load
End Sub
'##################################################################
'## 过程名称：cmdNext_Click
'## 参数： 无
'##################################################################
Private Sub cmdNext_Click()
yuqcd.Adodc1.Recordset.MoveNext
Call Form_Load
End Sub
'##################################################################
'## 过程名称：cmdPrevious_Click
'## 参数： 无
'##################################################################
Private Sub cmdPrevious_Click()
yuqcd.Adodc1.Recordset.MovePrevious
Call Form_Load
End Sub
'##################################################################
'## 过程名称：Command1_Click
'## 参数： 无
'##################################################################
Private Sub Command1_Click()
kk = kk * 1.2
Call Form_Load
End Sub
'##################################################################
'## 过程名称：Command2_Click
'## 参数： 无
'##################################################################
Private Sub Command2_Click()
kk = kk * 0.8
Call Form_Load
End Sub
'##################################################################
'## 过程名称：Command3_Click
'## 参数： 无
'##################################################################
Private Sub Command3_Click()
Call print2
End Sub
'##################################################################
'## 过程名称：Command4_Click
'## 参数： 无
'##################################################################
Private Sub Command4_Click()
Unload Me
End Sub
'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
Private Sub Form_Load()
On Error Resume Next
' Me.Picture1.Font.Bold = True
' Me.Picture1.Font.Charset = 0 '设置或者返回字体中所用字符集。
'Me.Picture1.Font.Italic = False '返回或设置 Font 对象的字形为斜体或非斜体。
' Me.Picture1.Font.Name '返回或设置字体对象的名字。
' Me.Picture1.Font.Size '返回或设置 Font 对象中使用字体的大小
' Me.Picture1.Font.Strikethrough '返回或设置 Font 对象的字形为删除线或无删除
' Me.Picture1.Font.Underline '返回或设置 Font 对象的字形为带下划线或不带下划线
' Me.Picture1.Font.Weight '返回或设置组成 Font 对象的字符的权重
End Sub
'##################################################################
'## 过程名称：Form_Resize
'## 参数： 无
'##################################################################
Private Sub Form_Resize()
'Picture1.Width = Me.Width - 2 * Picture1.Left
VScroll1.Max = Picture3.Height - Picture1.Height
Form_Load
End Sub
'##################################################################
'## 过程名称：print1
'## 参数： 无
'##################################################################
Private Sub print1()
'On Error Resume Next
Picture3.Cls
Picture3.Print
Picture3.Print
Picture3.FontName = "黑体"
Picture3.FontSize = 16
Picture3.FontUnderline = True
txt = yuqcd.RichTextBox1.Text
dd = Fix(Len(txt) / 24)
txt1 = ""
txt1 = txt1 & Mid(txt, 1, 22) & Chr(10) & Chr(13) & Space(19)
For ii = 1 To dd
txt1 = txt1 & Mid(txt, ii * 24 - 2, 24) & Chr(10) & Chr(13) & Space(19)
' 'debug.Print txt1, dd
Next ii
Picture3.Print
Picture3.Print Tab(23); jl_qym & "欠存单"
Picture3.FontName = "宋体"
Picture3.FontSize = 12
Picture3.FontUnderline = False
Picture3.Print
Picture3.Print
Picture3.Print Tab(20); yuqcd.Adodc1.Recordset.Fields(1) & ":"
Picture3.Print
Picture3.Print Tab(20); yuqcd.Adodc1.Recordset.Fields(2) & "先生（女士），你好:"
Picture3.Print
Picture3.Print Tab(24); txt1
Picture3.Print Tab(20); "本合同的简要数据如下："
Picture3.Print
Picture3.Print Tab(20); "用户:"; Tab(38); yhm
'Picture3.Print
Picture3.Print Tab(20); "发货人:"; Tab(38); fhr
'Picture3.Print
Picture3.Print Tab(20); "合同量:"; Tab(38); htl; " 吨"
'Picture3.Print
Picture3.Print Tab(20); "单价:"; Tab(38); dj; " 元"
'Picture3.Print
Picture3.Print Tab(20); "金额:"; Tab(38); je; " 元"
'Picture3.Print
Picture3.Print Tab(20); "已发量:"; Tab(38); yfl; " 吨"
'Picture3.Print
Picture3.Print Tab(20); "欠存量:"; Tab(38); wfl; " 吨"
Picture3.Print
Picture3.Print
Picture3.Print Tab(40); jl_qym
Picture3.Print Tab(50); Format(Now, "yyyy年mm月dd日")
End Sub
'##################################################################
'## 过程名称：VScroll1_Change
'## 参数： 无
'##################################################################
Private Sub VScroll1_Change()
Picture3.Top = -VScroll1.Value
End Sub
'##################################################################
'## 过程名称：VScroll1_Scroll
'## 参数： 无
'##################################################################
Private Sub VScroll1_Scroll()
Picture3.Top = -VScroll1.Value
End Sub
'##################################################################
'## 过程名称：print2
'## 参数： 无
'##################################################################
Private Sub print2()
On Error Resume Next
Printer.Print
Printer.Print
Printer.Print
Printer.Print
Printer.FontName = "黑体"
Printer.FontSize = 14
Printer.FontUnderline = True
txt = yuqcd.RichTextBox1.Text
dd = Fix(Len(txt) / 24)
txt1 = ""
txt1 = txt1 & Mid(txt, 1, 22) & Chr(10) & Chr(13) & Space(19)
For ii = 1 To dd
txt1 = txt1 & Mid(txt, ii * 24 - 2, 24) & Chr(10) & Chr(13) & Space(19)
''debug.Print txt1, dd
Next ii
Printer.Print
Printer.Print Tab(23); jl_qym & "欠存单"
Printer.FontName = "宋体"
Printer.FontSize = 11
Printer.FontUnderline = False
Printer.Print
Printer.Print
Printer.Print Tab(20); yuqcd.Adodc1.Recordset.Fields(1) & ":"
Printer.Print
Printer.Print Tab(20); yuqcd.Adodc1.Recordset.Fields(2) & "先生（女士），你好:"
Printer.Print
Printer.Print Tab(24); txt1
'" 贵公司与我公司的" & hwm & "购销合同现已完成，谢谢你对本公司的支持，"
'Printer.Print
'Printer.Print Tab(20 ); "在此次合同执行过程中如有不尽人意之处，还望多加海涵." & jl_qym & " 全体员工对"; Chr(10) + Chr(13); Tab(20); yhm + "大力支持再次表示感谢."
'Printer.Print
Printer.Print Tab(20); "本合同的简要数据如下："
Printer.Print
Printer.Print Tab(20); "用户:"; Tab(38); yhm
Printer.Print
Printer.Print Tab(20); "发货人:"; Tab(38); fhr
Printer.Print
Printer.Print Tab(20); "合同量:"; Tab(38); htl; " 吨"
Printer.Print
Printer.Print Tab(20); "单价:"; Tab(38); dj; " 元"
Printer.Print
Printer.Print Tab(20); "金额:"; Tab(38); je; " 元"
Printer.Print
Printer.Print Tab(20); "已发量:"; Tab(38); yfl; " 吨"
Printer.Print
Printer.Print Tab(20); "欠存量:"; Tab(38); wfl; " 吨"
Printer.Print
Printer.Print
Printer.Print Tab(40); jl_qym
Printer.Print Tab(40); Format(Now, "yyyy年mm月dd日")
Printer.EndDoc
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -