?? frmprint.frm
字號:
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 720
TabIndex = 30
Top = 2400
Width = 1335
End
Begin VB.CheckBox Chkpbj
Caption = "全選"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 1440
TabIndex = 15
Top = 240
Width = 1095
End
Begin VB.ListBox Lstpbj
Columns = 2
Height = 1680
Left = 240
MultiSelect = 2 'Extended
TabIndex = 9
Top = 480
Width = 2295
End
Begin VB.CommandButton cmdpbjok
Caption = "開始打印"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
TabIndex = 7
Top = 1920
Width = 975
End
Begin VB.Label Labpbj
Caption = "選定班級："
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 4
Top = 240
Width = 975
End
End
End
Attribute VB_Name = "frmprint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'for bj js print
Dim bjs As Integer
Dim kcexp() As kctype
Dim bjexp() As bjtype
Dim nowbj As bjtype
Dim newbiao As bjkcbiao
Dim nowbiao As jsrkbiao
Dim bzmy1 As Integer
Dim njjsm() As String * 8
Dim jsm() As String * 8
Dim njjsshu() As Integer
Dim xx, yy As Integer
Dim kcm() As String * 8
Dim sname As String
Dim sheadbj, sheadjs As String
Sub drawjskb(x1 As Integer, y1 As Integer, an As Integer)
Printer.ScaleWidth = 102: Printer.ScaleHeight = 220
Printer.CurrentX = x1 + 40: Printer.CurrentY = y1 + 13
Printer.FontSize = 18
Printer.Print "教 師 課 程 表"
Printer.FontSize = 13
x0 = x1 + 1: y0 = y1 + 25
For i = 1 To 9
If i = 3 Or i = 4 Or i = 5 Or i = 6 Or i = 7 Or i = 8 Then
Printer.Line (x0 + 11, y0)-(x0 + 100, y0)
GoTo p1
End If
Printer.Line (x0, y0)-(x0 + 100, y0)
p1: y0 = y0 + 10
Next i
x0 = x1 + 1: y0 = y1 + 25
If an = 7 Then
Printer.Line (x0, y0 + 50)-(x0 + 100, y0 + 50)
Else
Printer.Line (x0, y0 + 60)-(x0 + 100, y0 + 60)
End If
x0 = x1 + 21: y0 = y1 + 25
For i = 1 To 6
'If i = 2 Then : GoTo p2
'ir i=3 then printer.line (x1+21
Printer.Line (x0, y0)-(x0, y0 + 80)
x0 = x0 + 16
Next i
Printer.Line (x1 + 12, y1 + 35)-(x1 + 12, y1 + 105)
Printer.Line (x1 + 1, y1 + 25)-(x1 + 1, y1 + 105)
Printer.CurrentX = x1 + 22: Printer.CurrentY = y1 + 27.5
Printer.Print " 星 期 一"
Printer.CurrentX = x1 + 38: Printer.CurrentY = y1 + 27.5
Printer.Print " 星 期 二"
Printer.CurrentX = x1 + 54: Printer.CurrentY = y1 + 27.5
Printer.Print " 星 期 三"
Printer.CurrentX = x1 + 70: Printer.CurrentY = y1 + 27.5
Printer.Print " 星 期 四"
Printer.CurrentX = x1 + 86: Printer.CurrentY = y1 + 27.5
Printer.Print " 星 期 五"
Printer.CurrentX = x1 + 16: Printer.CurrentY = y1 + 37.5
Printer.Print "1"
Printer.CurrentX = x1 + 16: Printer.CurrentY = y1 + 47.5
Printer.Print "2"
Printer.CurrentX = x1 + 16: Printer.CurrentY = y1 + 57.5
Printer.Print "3"
Printer.CurrentX = x1 + 16: Printer.CurrentY = y1 + 67.5
Printer.Print "4"
Printer.CurrentX = x1 + 16: Printer.CurrentY = y1 + 77.5
Printer.Print "5"
Printer.CurrentX = x1 + 16: Printer.CurrentY = y1 + 87.5
Printer.Print "6"
Printer.CurrentX = x1 + 16: Printer.CurrentY = y1 + 97.5
Printer.Print "7"
Printer.CurrentX = x1 + 5.5: Printer.CurrentY = y1 + 42
Printer.Print "上"
If an = 7 Then
Printer.CurrentX = x1 + 5.5: Printer.CurrentY = y1 + 63
Printer.Print "午"
Else
Printer.CurrentX = x1 + 5.5: Printer.CurrentY = y1 + 73
Printer.Print "午"
End If
If an = 7 Then
Printer.CurrentX = x1 + 5.5: Printer.CurrentY = y1 + 83
Printer.Print "下"
Printer.CurrentX = x1 + 5.5: Printer.CurrentY = y1 + 93
Printer.Print "午"
Else
Printer.CurrentX = x1 + 5.5: Printer.CurrentY = y1 + 87.5
Printer.Print "下"
Printer.CurrentX = x1 + 5.5: Printer.CurrentY = y1 + 97.5
Printer.Print "午"
End If
End Sub
Sub drawjsb(x1 As Integer, y1 As Integer)
Printer.ScaleWidth = 102: Printer.ScaleHeight = 220
Printer.CurrentX = x1 + 40: Printer.CurrentY = y1 + 13
Printer.FontSize = 18
Printer.Print "教 師 課 程 表"
Printer.FontSize = 13
x0 = x1 + 1: y0 = y1 + 25
For i = 1 To 9
If i = 3 Or i = 4 Or i = 5 Or i = 7 Or i = 8 Then
Printer.Line (x0 + 11, y0)-(x0 + 100, y0)
GoTo p1
End If
Printer.Line (x0, y0)-(x0 + 100, y0)
p1: y0 = y0 + 10
Next i
x0 = x1 + 21: y0 = y1 + 25
For i = 1 To 6
'If i = 2 Then : GoTo p2
'ir i=3 then printer.line (x1+21
Printer.Line (x0, y0)-(x0, y0 + 80)
x0 = x0 + 16
Next i
Printer.Line (x1 + 12, y1 + 35)-(x1 + 12, y1 + 105)
Printer.Line (x1 + 1, y1 + 25)-(x1 + 1, y1 + 105)
Printer.CurrentX = x1 + 22: Printer.CurrentY = y1 + 27.5
Printer.Print " 星 期 一"
Printer.CurrentX = x1 + 38: Printer.CurrentY = y1 + 27.5
Printer.Print " 星 期 二"
Printer.CurrentX = x1 + 54: Printer.CurrentY = y1 + 27.5
Printer.Print " 星 期 三"
Printer.CurrentX = x1 + 70: Printer.CurrentY = y1 + 27.5
Printer.Print " 星 期 四"
Printer.CurrentX = x1 + 86: Printer.CurrentY = y1 + 27.5
Printer.Print " 星 期 五"
Printer.CurrentX = x1 + 16: Printer.CurrentY = y1 + 36
Printer.Print "1"
Printer.CurrentX = x1 + 16: Printer.CurrentY = y1 + 46
Printer.Print "2"
Printer.CurrentX = x1 + 16: Printer.CurrentY = y1 + 56
Printer.Print "3"
Printer.CurrentX = x1 + 16: Printer.CurrentY = y1 + 66
Printer.Print "4"
Printer.CurrentX = x1 + 16: Printer.CurrentY = y1 + 76
Printer.Print "5"
Printer.CurrentX = x1 + 16: Printer.CurrentY = y1 + 86
Printer.Print "6"
Printer.CurrentX = x1 + 16: Printer.CurrentY = y1 + 96
Printer.Print "7"
Printer.CurrentX = x1 + 5.5: Printer.CurrentY = y1 + 43
Printer.Print "上"
Printer.CurrentX = x1 + 5.5: Printer.CurrentY = y1 + 63
Printer.Print "午"
Printer.CurrentX = x1 + 5.5: Printer.CurrentY = y1 + 83
Printer.Print "下"
Printer.CurrentX = x1 + 5.5: Printer.CurrentY = y1 + 93
Printer.Print "午"
End Sub
Sub drawbzmbiao()
Printer.ScaleWidth = 100
Printer.ScaleHeight = 240
For x0 = 20 To 80 Step 30
Printer.Line (x0, 15)-(x0, 235)
Next x0
For y0 = 15 To 235 Step 10
Printer.Line (20, y0)-(80, y0)
Next y0
Printer.CurrentX = 42: Printer.CurrentY = 7
Printer.FontSize = 16: Printer.Print "班主任名單"
Printer.CurrentX = 32: Printer.CurrentY = 18
Printer.FontSize = 14: Printer.Print "班 級"
Printer.CurrentX = 60: Printer.CurrentY = 18
Printer.Print "班 主 任"
'MsgBox "1+" + CStr(bzmy1)
End Sub
Sub drawnjjsm()
Printer.ScaleWidth = 100: Printer.ScaleHeight = 230
Printer.CurrentX = 35: Printer.CurrentY = 15
Printer.FontSize = 16
Printer.Print "教師名單（按年級分組）"
End Sub
Sub drawpkcjsm()
Printer.NewPage
Printer.ScaleWidth = 100: Printer.ScaleHeight = 200
Printer.CurrentX = 35: Printer.CurrentY = 5: Printer.FontSize = 16
Printer.Print "教師名單（按課程分組）"
xx = 5: yy = 20
Printer.CurrentX = xx: Printer.CurrentY = yy:
Printer.FontSize = 12
End Sub
Sub drawsj(x1 As Integer, y1 As Integer)
'sjhead$ = "課程時間表"
Open App.Path + "\pksj1.bin" For Binary As #1
For i = 1 To 14
Get #1, 2 * i - 1, sj1(i)
'MsgBox CStr(sj1(i))
Next i: Close #1
y0 = y1 + 10
For i = 1 To 9
x0 = x1 + 10
If i = 1 Or i = 2 Or i = 6 Or i = 9 Then x0 = x1
'Printer.CurrentX = x0: Printer.CurrentY = y0
Printer.Line (x0, y0)-(x1 + 50, y0)
y0 = y0 + 10
Next i
x0 = x1
For i = 1 To 5
'Printer.CurrentX = x0: Printer.CurrentY = y0
Printer.Line (x0, y1 + 10)-(x0, y1 + 90)
If i >= 3 Then x0 = x0 + 15: GoTo n
x0 = x0 + 10
n: Next i
y0 = y1 + 23
For i = 1 To 7
Printer.CurrentX = x1 + 14
Printer.CurrentY = y0
Printer.Print CStr(i)
y0 = y0 + 10
Next i
Printer.CurrentY = y1 + 13
Printer.CurrentX = x1 + 4
Printer.Print "段"
Printer.CurrentX = x1 + 4
Printer.CurrentY = y1 + 31
Printer.Print "上"
Printer.CurrentX = x1 + 4
Printer.CurrentY = y1 + 46
Printer.Print "午"
Printer.CurrentX = x1 + 4
Printer.CurrentY = y1 + 63
Printer.Print "下"
Printer.CurrentX = x1 + 4
Printer.CurrentY = y1 + 78
Printer.Print "午"
Printer.CurrentY = y1 + 13
Printer.CurrentX = x1 + 14
Printer.Print "節"
Printer.CurrentY = y1 + 13
Printer.CurrentX = x1 + 25
Printer.Print "開始"
Printer.CurrentY = y1 + 13
Printer.CurrentX = x1 + 40
Printer.Print "結束"
y0 = y1 + 23
x0 = x1 + 23
Printer.FontSize = 10
For i = 1 To 13 Step 2
star$ = Trim$(Str$(Fix(sj1(i) / 60))) + ":" + Trim$(Str$(sj1(i) - Fix(sj1(i) / 60) * 60))
If Fix(sj1(i) / 60) < 10 Then star$ = "0" + Trim$(star$)
If sj1(i) - Fix(sj1(i) / 60) * 60 < 10 Then star$ = Left$(star$, 3) + "0" + Right$(star$, 1)
Printer.CurrentX = x0: Printer.CurrentY = y0
Printer.Print star$
y0 = y0 + 10
Next i
x0 = x1 + 38
y0 = y1 + 23
For i = 2 To 14 Step 2
star$ = Trim$(Str$(Fix(sj1(i) / 60))) + ":" + Trim$(Str$(sj1(i) - Fix(sj1(i) / 60) * 60))
Printer.CurrentX = x0: Printer.CurrentY = y0
Printer.Print star$
y0 = y0 + 10
Next i
Printer.CurrentX = x1 + 17
Printer.CurrentY = y1 + 2
Printer.FontSize = 15
Printer.Print "課程時間表"
Printer.FontSize = 12
End Sub
Sub drawbiao(head As String)
'Printer.NewPage
Printer.ScaleWidth = 90: Printer.ScaleHeight = 240
y0 = 20
For i = 1 To 22
Printer.Line (3, y0)-(88, y0)
y0 = y0 + 10
Next i
x0 = 18
For i = 1 To 8
Printer.Line (x0, 20)-(x0, 230)
x0 = x0 + 10
Next i
Printer.Line (3, 20)-(3, 230)
'Printer.DrawWidth = 7
Printer.Line (57.7, 20)-(57.7, 230)
Printer.Line (17.7, 20)-(17.7, 230)
Printer.Line (3, 20)-(17.7, 30)
Printer.FontSize = 15
Printer.CurrentX = 39: Printer.CurrentY = 12
Printer.Print head
Printer.FontSize = 12
x0 = 22
For i = 1 To 7
Printer.CurrentX = x0
Printer.CurrentY = 23
Printer.Print CStr(i)
x0 = x0 + 10
Next i
Printer.CurrentX = 3.5
Printer.CurrentY = 26
Printer.Print " 班級名"
Printer.CurrentX = 11: Printer.CurrentY = 21
Printer.Print "節 號"
End Sub
Private Sub cmdpbj_Click()
'MsgBox CStr(Printer.FontSize)
If combopbj.Index = -1 Then MsgBox "請先指定要打印的班級！": Exit Sub
sname = "初一 8 班"
sheadbj = "班 級 課 程 表"
'sheadjs = "教 師 課 程 表"
Printer.DrawWidth = 6
'Printer.Line (4600, 4600)-(6000, 4600)
x0 = 3025
y0 = 5000
For i = 1 To 9
Printer.Line (3025, y0)-(9775, y0)
y0 = y0 + 675
Next i
x0 = 3025 + 1125
For i = 1 To 6
Printer.Line (x0, 5000)-(x0, 10400)
x0 = x0 + 1125
Next i
Printer.Line (3025, 5675)-(3025, 10400)
Printer.Line (2000, 5000)-(2000, 10400) 'first |
Printer.Line (2000, 5000)-(3025, 5000)
Printer.Line (2000, 5675)-(3025, 5675)
Printer.Line (2000, 8375)-(3025, 8375)
Printer.Line (2000, 10400)-(3025, 10400)
Printer.CurrentX = 2400
Printer.CurrentY = 6300
Printer.Print "上"
Printer.CurrentY = 7400: Printer.CurrentX = 2400
Printer.Print "午"
Printer.CurrentY = 8975: Printer.CurrentX = 2400
Printer.Print "下"
Printer.CurrentY = 9650: Printer.CurrentX = 2400
Printer.Print "午"
Printer.CurrentY = 5200
Printer.CurrentX = 2300
Printer.FontSize = 12
Printer.Print sname
x0 = 4300
Dim xh(5) As String
xh(1) = "星期一": xh(2) = "星期二": xh(3) = "星期三": xh(4) = "星期四": xh(5) = "星期五"
Printer.CurrentX = x0: Printer.CurrentY = 5200
For i = 1 To 5
Printer.CurrentX = x0: Printer.CurrentY = 5200
Printer.Print xh(i)
x0 = x0 + 1125
Next i
Printer.CurrentX = 5500
Printer.CurrentY = 4500
Printer.FontSize = 16
Printer.Print sheadbj
x0 = 3480
y0 = 5950
For i = 1 To 7
Printer.CurrentX = x0
Printer.CurrentY = y0
Printer.Print i
y0 = y0 + 675
Next i
Printer.EndDoc
End Sub
Sub pbzm()
ReDim bjexp(bjs)
Open App.Path + "\bj.ran" For Random As #1 Len = 18
For i = 1 To bjs
Get #1, i, bjexp(i)
Next i
Close #1
bzmy1 = 26
For i = 1 To bjs
If i = 1 Or i = 21 Or i = 41 Then
Call drawbzmbiao
bzmy1 = 26
End If
Printer.CurrentX = 21: Printer.CurrentY = bzmy1
Printer.Print Mid$(bjexp(i).bjnjm, 1, 3) + Mid$(bjexp(i).bjbjm, 1, 2)
Printer.CurrentX = 51: Printer.CurrentY = bzmy1
Printer.Print Mid$(bjexp(i).bjbzrm, 1, 4)
'MsgBox CStr(bzmy1) + "first":
bzmy1 = bzmy1 + 10 ': MsgBox CStr(bzmy1)
If i = 20 Or i = 40 Then Printer.NewPage
Next i
Printer.EndDoc
End Sub
Sub pkcjsm()
'Printer.widthed = 100: Printer.heighted = 200
'Dim pkc As kctype
Dim jend As Integer
Dim zks As Integer
Open App.Path + "\zkcshu.bin" For Binary As #1
Get #1, 1, zks
Close #1
ReDim kcexp(zks)
'MsgBox CStr(zks)
ReDim kcm(zks)
Open App.Path + "\kc.ran" For Random As #2 Len = 18
Dim strtemp As String
jend = 1
For i = 1 To zks
Get #2, i, kcexp(i)
'Text1.Text = kcexp(i).kckcm:
'MsgBox kcexp(i).kckcm
For j = 1 To jend
If kcm(j) = kcexp(i).kckcm Then GoTo ext1
Next j
'jend = jend + 1
kcm(jend) = kcexp(i).kckcm
jend = 1 + jend
ext1:
Next i
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -