📄 frmmodcommonprint.frm
字号:
VERSION 5.00
Object = "{7E00A3A2-8F5C-11D2-BAA4-04F205C10000}#1.0#0"; "VSVIEW6.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmModCommonPrint
Caption = "通用打印"
ClientHeight = 8595
ClientLeft = 165
ClientTop = 450
ClientWidth = 11040
LinkTopic = "Form1"
ScaleHeight = 8595
ScaleWidth = 11040
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComctlLib.Toolbar tb
Align = 1 'Align Top
Height = 540
Left = 0
TabIndex = 0
Top = 0
Width = 11040
_ExtentX = 19473
_ExtentY = 953
ButtonWidth = 1455
ButtonHeight = 953
Style = 1
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 16
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印设置"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "页面设置"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "多页显示"
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 3
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "单页"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "双页"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "自动"
EndProperty
EndProperty
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "首页"
Key = "首页"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "上一页"
Key = "上一页"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "下一页"
Key = "下一页"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "尾页"
Key = "尾页"
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "比例"
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 6
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "200%"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "150%"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "100%"
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "75%"
EndProperty
BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "50%"
EndProperty
BeginProperty ButtonMenu6 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "25%"
EndProperty
EndProperty
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "放大"
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "缩小"
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "关闭"
EndProperty
EndProperty
End
Begin VSVIEW6Ctl.VSPrinter vp
Height = 9780
Left = 240
TabIndex = 1
Top = 675
Width = 10800
_cx = 70142570
_cy = 70140771
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
MousePointer = 0
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty HdrFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Courier New"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_ConvInfo = -1
AutoRTF = -1 'True
Preview = -1 'True
DefaultDevice = 0 'False
PhysicalPage = -1 'True
AbortWindow = -1 'True
AbortWindowPos = 0
AbortCaption = "Printing..."
AbortTextButton = "Cancel"
AbortTextDevice = "on the %s on %s"
AbortTextPage = "Now printing Page %d of"
FileName = ""
MarginLeft = 1440
MarginTop = 1440
MarginRight = 1440
MarginBottom = 1440
MarginHeader = 0
MarginFooter = 0
IndentLeft = 0
IndentRight = 0
IndentFirst = 0
IndentTab = 720
SpaceBefore = 0
SpaceAfter = 0
LineSpacing = 100
Columns = 1
ColumnSpacing = 180
ShowGuides = 2
LargeChangeHorz = 300
LargeChangeVert = 300
SmallChangeHorz = 30
SmallChangeVert = 30
Track = 0 'False
ProportionalBars= -1 'True
Zoom = 54.9019607843137
ZoomMode = 3
ZoomMax = 400
ZoomMin = 10
ZoomStep = 5
MouseZoom = 2
MouseScroll = -1 'True
MousePage = -1 'True
EmptyColor = -2147483636
TextColor = 0
HdrColor = 0
BrushColor = 0
BrushStyle = 0
PenColor = 0
PenStyle = 0
PenWidth = 0
PageBorder = 0
Header = ""
Footer = ""
TableSep = "|;"
TableBorder = 7
TablePen = 0
TablePenLR = 0
TablePenTB = 0
HTMLStyle = 1
End
Begin MSComctlLib.StatusBar sb
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 2
Top = 8250
Width = 11040
_ExtentX = 19473
_ExtentY = 609
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 5292
MinWidth = 5292
Text = "状态： 浏览"
TextSave = "状态： 浏览"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3528
MinWidth = 3528
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmModCommonPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public PrintInfo As ClsPrintInfo '打印信息
Public strDBMainTable As String '保存到数据库的主表名称
Public strDBDetailTable As String '保存到数据库的明细表名称
Dim frm As New frmModCommonPrintSetup
Dim strPageRange() As String '页码范围
Dim intCurrentCol%, intCurrentRow% '记录当前列,行
Dim lngCurrentX&, lngCurrentY& '记录当前位置
Dim lngLeftMargin&, lngTopMargin& '记录全局左边距,上边距
Dim BodyAlign$, InterWidth%, InterHeight%, Cols% '记录全局布局属性，列间距，行间距，列数
Dim LabelAlign$, LabelWidth%, LabelHeight%, LabelVisable As Boolean '记录全局标签布局属性，标签宽度，标签高度，是否显示
Dim TextAlign$, lngTextWidth%, lngTextHeight%, TextVisable As Boolean '记录全局文本布局属性，文本宽度，文本高度，是否显示
Dim intTableBorder As TableBorderSettings '记录表格表格边框
Dim TableLabelVisable As Boolean, TableTextVisable As Boolean '记录表格标签是否显示，记录表格文本是否显示
Dim One_Width%, One_Height% '记录一个字宽，一个字高
Dim Font_Gap As Double '字间距
Dim strSpanPoints As String '记录合并点
Dim arrTableSpanCol As Variant '记录已转化好的表格列合并信息
Dim Page_Height As Long '记录页高
Dim Title_Height As Long '记录标题高度
Dim SayingAboveTable_Height As Long '记录表前叙述高度
Dim Table_Height As Long '记录表高度
Dim SayingBelowTable_Height As Long '记录表后叙述高度
Dim Sign_Height As Long '记录签名高度
Dim RowsFirstPage As Long '记录第一页的行数
Dim RowsPerPage As Long '记录每页的行数
Dim RowsLastPage As Long '记录最后一页的行数
Public strPrintInfoName As String '打印信息名称
Public SubTotal_Height As Long '汇总信息所需高度
Public TopHeader_Height As Long '顶层列头高度，再列头合并时使用
Public blnRepeatTitle As Boolean '每页都显示标题
Public blnRepeatSayingAboveTable As Boolean '每页都显示表前叙述
Public blnRepeatSayingBelowTable As Boolean '每页都显示表后叙述
Public blnRepeatSign As Boolean '每页都显示标签
Public Enum EnumRepeatView '定义重复枚举类型
cp_RepeatView_Title = 1
cp_RepeatView_SayingAboveTable = 2
cp_RepeatView_SayingBelowTable = 8
cp_RepeatView_Sign = 16
cp_RepeatView_All = 31
End Enum
Public Enum EnumPrintOrientation '定义打印方向
cp_Orientation_Vertical '纵向
cp_Orientation_Horizontal '横向
End Enum
Public PrintMarginLeft As Double '左边距
Public PrintMarginRight As Double '右边距
Public PrintMarginHeader As Double '上边距
Public PrintMarginFooter As Double '下边距
Public PrintOrientation As EnumPrintOrientation '打印方向
Public PrintPaperSize As PaperSizeSettings '打印纸代号
Public PrintPaperWidth As Double '打印纸宽度
Public PrintPaperHeight As Double '打印纸高度
Public MaxRowsPerPage As Integer '每页能排的最大行数
Public PageWidth As Double '页宽
Public PageHeight As Double '页高
Public Row_Height As Double '记录行高
Public RowInterRate As Double '行缝隙
Public ParagraphInterRate As Double '段落缝隙
Public blnEmptyRow As Boolean '是否填充空行
Public blnExtenLastCol As Boolean '最后一列是否拉到最大
Public blnColumnForPage As Boolean '自动调整列宽到整页
Public intPrintModel As Integer '打印模式
Dim arrColWidth '保存表格最终的宽度
Dim arrHeader '保存列头数组
Dim strHeaderMerge As String '保存列头合并信息
Dim strFormat As String '保存列格式化信息
Dim intEmptyRows As Integer '记录当前空行数
Dim dblEmptyBeginY As Double '记录空行起始位置
Dim Subtotal_Type() As Integer '保存汇总类型
Dim Subtotal_CaptionCol() As Integer '保存汇总标签所在列
Dim Subtotal_Caption() As String '保存汇总标签
Dim Subtotal_SumCol() As Integer '保存汇总数据所在列
Dim Subtotal_Sum() As String '保存汇总数据
Dim Subtotal_SumPosition() As Integer '保存汇总数据显示位置
Dim Subtotal_Function() As Integer '保存汇总计算函数类型
Dim Subtotal_Format() As String '汇总信息格式化
Dim Subtotal_SpanCol() As String '保存汇总列合并信息
Dim Subtotal_Align() As Integer '保存汇总汇总Align信息
Dim Subtotal_Row() As Integer '汇总数据所在行
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -