📄 frmprint.frm
字号:
Top = 315
Width = 435
End
Begin VB.Label Label13
BackColor = &H00C0E0FF&
BackStyle = 0 'Transparent
Caption = "厘米"
Height = 240
Left = 1860
TabIndex = 63
Top = 665
Width = 435
End
Begin VB.Label Label12
BackColor = &H00C0E0FF&
BackStyle = 0 'Transparent
Caption = "厘米"
Height = 240
Left = 1860
TabIndex = 62
Top = 1015
Width = 435
End
Begin VB.Label Label11
BackColor = &H00C0E0FF&
BackStyle = 0 'Transparent
Caption = "厘米"
Height = 240
Left = 1860
TabIndex = 61
Top = 1365
Width = 435
End
Begin VB.Label Label10
BackColor = &H00C0E0FF&
BackStyle = 0 'Transparent
Caption = "上："
Height = 270
Left = 195
TabIndex = 60
Top = 315
Width = 435
End
Begin VB.Label Label9
BackColor = &H00C0E0FF&
BackStyle = 0 'Transparent
Caption = "下："
Height = 270
Left = 195
TabIndex = 59
Top = 665
Width = 435
End
Begin VB.Label Label8
BackColor = &H00C0E0FF&
BackStyle = 0 'Transparent
Caption = "左："
Height = 270
Left = 195
TabIndex = 58
Top = 1015
Width = 435
End
Begin VB.Label Label7
BackColor = &H00C0E0FF&
BackStyle = 0 'Transparent
Caption = "右："
Height = 270
Left = 195
TabIndex = 57
Top = 1365
Width = 435
End
End
Begin VB.Frame fraStyle
Caption = "线条样式"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2265
Left = 150
TabIndex = 24
Top = 1650
Width = 4095
Begin VB.OptionButton optLineStyle
Caption = "样式四"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 3
Left = 150
TabIndex = 29
Top = 1800
Width = 1035
End
Begin VB.OptionButton optLineStyle
Caption = "样式三"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 2
Left = 150
TabIndex = 28
Top = 1290
Width = 1035
End
Begin VB.OptionButton optLineStyle
Caption = "样式二"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 1
Left = 150
TabIndex = 27
Top = 780
Width = 1065
End
Begin VB.OptionButton optLineStyle
Caption = "样式一"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 0
Left = 150
TabIndex = 26
Top = 270
Value = -1 'True
Width = 1035
End
Begin VB.PictureBox picBM
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
ForeColor = &H00C00000&
Height = 1900
Left = 1980
ScaleHeight = 125
ScaleMode = 3 'Pixel
ScaleWidth = 91
TabIndex = 25
Top = 210
Width = 1400
End
End
Begin VB.Frame fraOrientation
Caption = "纸张方向"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1425
Left = 4350
TabIndex = 30
Top = 180
Width = 2355
Begin VB.OptionButton optOrientation
Caption = "纵向"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 0
Left = 1080
TabIndex = 16
Top = 450
Value = -1 'True
Width = 765
End
Begin VB.OptionButton optOrientation
Caption = "横向"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 1
Left = 1080
TabIndex = 17
Top = 900
Width = 705
End
Begin VB.Label Label15
Caption = "方向："
Height = 240
Left = 255
TabIndex = 65
Top = 285
Width = 600
End
Begin VB.Image imgOrientation
Height = 480
Index = 1
Left = 270
Picture = "frmPrint.frx":0A1D
Top = 570
Visible = 0 'False
Width = 480
End
Begin VB.Image imgOrientation
Height = 480
Index = 0
Left = 270
Picture = "frmPrint.frx":115F
Top = 570
Width = 480
End
End
End
Begin VB.Image imgMou
Height = 480
Left = 5250
Picture = "frmPrint.frx":18A1
Top = 3060
Width = 480
End
End
Attribute VB_Name = "frmPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'=========================================
'this module is created by xieluo
'描述:
' 提供打印、打印预览、选择打印内容等功能
'请修改者详细填写修改人,修改日期和修改内容
'****************************************
'
'修改人员: 修改了必须预览才能打印的问题。赵朔
'修改日期: 2003-06-04
'修改人员: 修改了页码打印到下一页的问题。赵朔
'修改日期: 2003-06-04
'
'****************************************
'=========================================
'========
'私有常量
'========
Private Const DC_PAPERS = 2
Private Const DC_PAPERNAMES = 16
Private Const CCHDEVICENAME = 32
Private Const CCHFORMNAME = 32
Private Const LEFT_MARGIN = 1
Private Const RIGHT_MARGIN = 1
Private Const TOP_MARGIN = 2
Private Const BOTTOM_MARGIN = 2
Private Const PIXELS_PER_CM = 567
Private Const TITLE_HEIGHT = 400
Private Const LINE_ADJUST = 45
Private Const CURRENTCOLOR = &HFF&
Private Const NORMALCOLOR = &H0&
Private Const S_RETURN = "|"
Dim lPreCol As Long
Dim lPreFixCol As Long
Dim bRaise As Boolean '是否激发check事件
'API及类型声明
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Type DEVMODE
dmDeviceName As String * CCHDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCHFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Long
dmPelsWidth As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -