📄 frmprint.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmPrint
BorderStyle = 3 'Fixed Dialog
Caption = "正在打印..."
ClientHeight = 2865
ClientLeft = 2385
ClientTop = 3150
ClientWidth = 6375
Icon = "frmPrint.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2865
ScaleWidth = 6375
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.PictureBox picGif
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000004&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 600
Left = 4905
ScaleHeight = 600
ScaleWidth = 690
TabIndex = 12
Top = 315
Width = 690
End
Begin VB.OptionButton optPages
Caption = "范围"
Height = 195
Index = 2
Left = 630
TabIndex = 11
Top = 765
Width = 690
End
Begin VB.OptionButton optPages
Caption = "全部页"
Height = 240
Index = 1
Left = 630
TabIndex = 10
Top = 450
Value = -1 'True
Width = 1005
End
Begin VB.CommandButton cmdBegin
Caption = "开始(&B)"
Height = 330
Left = 3015
TabIndex = 0
Top = 2160
Width = 1230
End
Begin VB.TextBox txtTo
Alignment = 2 'Center
Enabled = 0 'False
Height = 285
Left = 3060
TabIndex = 6
Text = "1"
Top = 720
Width = 690
End
Begin VB.TextBox txtFrom
Alignment = 2 'Center
Enabled = 0 'False
Height = 285
Left = 1575
TabIndex = 5
Text = "1"
Top = 720
Width = 735
End
Begin VB.Timer t
Interval = 10
Left = 540
Top = 2025
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "退出(&Q)"
Height = 330
Left = 4500
TabIndex = 2
Top = 2160
Width = 1230
End
Begin MSComctlLib.ProgressBar prg
Height = 330
Left = 360
TabIndex = 1
Top = 1575
Width = 5685
_ExtentX = 10028
_ExtentY = 582
_Version = 393216
Appearance = 1
End
Begin VB.Image Image2
Height = 600
Left = 1890
Picture = "frmPrint.frx":000C
Stretch = -1 'True
Top = 2025
Visible = 0 'False
Width = 555
End
Begin VB.Image Image1
Height = 600
Left = 1170
Picture = "frmPrint.frx":0316
Stretch = -1 'True
Top = 2025
Visible = 0 'False
Width = 555
End
Begin VB.Label page
AutoSize = -1 'True
Height = 195
Left = 405
TabIndex = 9
Top = 2115
Width = 45
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "页"
Height = 195
Left = 4005
TabIndex = 8
Top = 765
Width = 180
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "到"
Height = 195
Left = 2610
TabIndex = 7
Top = 765
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "打印范围:"
Height = 195
Left = 225
TabIndex = 4
Top = 180
Width = 765
End
Begin VB.Label info
AutoSize = -1 'True
Caption = "当前状态:"
Height = 195
Left = 360
TabIndex = 3
Top = 1260
Width = 765
End
End
Attribute VB_Name = "frmPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'
'Private bCancel As Boolean '/*是否中断输出
'Private picShow As Boolean '/*图片的切换
'Private it As Integer '/*计时
'
'Private Sub cmdBegin_Click()
'Dim i As Integer
'Dim j As Integer
' cmdBegin.Enabled = False
' cmdCancel.Caption = "取消&(C)"
' info.Caption = "正在计算分页..."
' CalPage
' bCancel = False
' Dim pFrom As Integer
' Dim pTo As Integer
' If optPages(1).Value Then
' pFrom = 1
' pTo = pgCnt
' Else
' pFrom = CInt(txtFrom.text)
' pTo = CInt(txtTo.text)
' End If
' For i = pFrom To pTo
' For j = 1 To cutCnt
' info.Caption = "正在输出表头..."
' OutHead Printer, i '/*输出表头
' info.Caption = "正在输出表尾..."
' OutFoot Printer, i '/*输出表尾
' info.Caption = "正在输出日期页码..."
' OutPageDate Printer, i, j '/*输出日期页码
' info.Caption = "正在输出页头..."
' OutTitle Printer '/*输出页头
' info.Caption = "正在输出页头..."
' OutTail Printer '/*输出页尾
' info.Caption = "正在输出列头..."
' OutColHead Printer, i, j '/*输出列头
' info.Caption = "正在输出正文..."
' OutContent Printer, i, j '/*输出正文
' OutBorder Printer, i, j '/*输出边框
' info.Caption = "正在输出图片..."
' OutPic Printer, i, j '/*输出图片
' If j < cutCnt Or i < txtTo.text Then
' Printer.NewPage
' Else
' Printer.EndDoc
' End If
' page.Caption = "当前正在打印第 " & i & " 页 "
' If cutCnt > 1 Then
' page.Caption = page.Caption & "第 " & j & " 分页"
' End If
' page.Caption = page.Caption & "..."
' If bCancel Then
' Printer.KillDoc
' GoTo err_proc
' End If
' Next j
' Next i
'err_proc:
' cmdBegin.Enabled = True
' cmdCancel.Caption = "退出(&Q)"
' info.Caption = "当前状态:"
' page.Caption = ""
' prg.Value = 0
' picGif.Cls
'End Sub
'
'Private Sub cmdCancel_Click()
' If cmdCancel.Caption = "取消&(C)" Then
' bCancel = True
' Else
' Unload Me
' End If
'End Sub
'
'Private Sub Form_Load()
' SetFont Me
' txtTo.text = pgCnt
'End Sub
'
'Private Sub optPages_Click(Index As Integer)
' Select Case Index
' Case 1
' txtFrom.Enabled = False
' txtTo.Enabled = False
' Case 2
' txtFrom.Enabled = True
' txtTo.Enabled = True
' End Select
'End Sub
'
'Private Sub t_Timer()
' '/*将输出状态返回
' If Not cmdBegin.Enabled Then
' Dim i As Integer
' i = sp * 100
' If i > 100 Then i = 100
' prg.Value = i
' '/*切换图片
' it = it + 1
' If it > 10 Then
' picGif.Cls
' If picShow Then
' picGif.PaintPicture Image1.Picture, 0, 0, Image1.width, Image1.height
' Else
' picGif.PaintPicture Image2.Picture, 0, 0, Image1.width, Image1.height
' End If
' picShow = Not picShow
' it = 0
' End If
' End If
'End Sub
'
'Private Sub txtFrom_LostFocus()
''/*如果为非法数据，则复原到1
' If Not IsNumeric(txtFrom.text) Then
' txtFrom.text = "1"
' Exit Sub
' End If
' On Error GoTo err_proc
' Dim i As Integer
' i = CInt(txtFrom.text)
' If i < 1 Or i > CInt(txtTo.text) Then
' txtFrom.text = "1"
' Exit Sub
' End If
' Exit Sub
'err_proc:
' txtFrom.text = "1"
'End Sub
'
'Private Sub txtTo_LostFocus()
''/*如果为非法数据，则复原到1
' If Not IsNumeric(txtTo.text) Then
' txtTo.text = pgCnt
' Exit Sub
' End If
' On Error GoTo err_proc
' Dim i As Integer
' i = CInt(txtTo.text)
' If i < CInt(txtFrom.text) Or i > pgCnt Then
' txtTo.text = pgCnt
' Exit Sub
' End If
' Exit Sub
'err_proc:
' txtTo.text = pgCnt
'End Sub
Private Sub cmdBegin_Click()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -