?? frmprint.frm
字號(hào):
VERSION 5.00
Object = "{00025600-0000-0000-C000-000000000046}#4.6#0"; "crystl32.ocx"
Begin VB.Form FrmPrint
Caption = "三角形平差成果表打印"
ClientHeight = 3405
ClientLeft = 60
ClientTop = 345
ClientWidth = 5130
LinkTopic = "Form1"
ScaleHeight = 3405
ScaleWidth = 5130
StartUpPosition = 3 '窗口缺省
Begin Crystal.CrystalReport CrystalReport1
Left = 120
Top = 2760
_ExtentX = 741
_ExtentY = 741
_Version = 262150
End
Begin VB.CommandButton CmdExit
Caption = "退出"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3000
TabIndex = 2
Top = 2880
Width = 1095
End
Begin VB.CommandButton CmdPrint
Caption = "打印"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1200
TabIndex = 1
Top = 2880
Width = 1095
End
Begin VB.ComboBox cboSelType
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
ItemData = "FrmPrint.frx":0000
Left = 2160
List = "FrmPrint.frx":0007
TabIndex = 0
Top = 480
Width = 2655
End
Begin VB.Label Label1
Caption = "請(qǐng)選擇打印內(nèi)容"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 3
Top = 480
Width = 1815
End
End
Attribute VB_Name = "FrmPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim StrSelect As String
Dim idx As Integer
Private Sub cboSelType_Click()
StrSelect = cboSelType.Text
idx = cboSelType.ListIndex
If idx < 0 Then idx = 0
End Sub
Private Sub CmdExit_Click()
Unload FrmPrint
End Sub
Private Sub CmdPrint_Click()
Dim I As Integer
Dim strtmp As String
Dim ReportPath As String
Dim arecord As Recordset
ReportPath = App.path + "\三角形閉合差表.rpt"
CrystalReport1.ReportFileName = ReportPath
CrystalReport1.DataFiles(0) = g_ProjectFile
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Action = 1
' Unload FrmPrint
End Sub
Private Sub Form_Load()
Dim I As Integer
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
cboSelType.Text = cboSelType.List(0)
StrSelect = cboSelType.List(0)
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -