📄 frmlsb.frm
字号:
Height = 285
Index = 4
Left = 600
TabIndex = 16
Top = 2640
Width = 975
End
Begin VB.TextBox Text1
BorderStyle = 0 'None
Height = 285
Index = 3
Left = 600
TabIndex = 15
Top = 2160
Width = 975
End
Begin VB.TextBox Text1
BorderStyle = 0 'None
Height = 285
Index = 2
Left = 600
TabIndex = 14
Top = 1800
Width = 975
End
Begin VB.TextBox Text1
BorderStyle = 0 'None
Height = 285
Index = 1
Left = 600
TabIndex = 13
Top = 1440
Width = 975
End
Begin VB.TextBox Text1
BorderStyle = 0 'None
Height = 285
Index = 0
Left = 600
TabIndex = 0
Top = 1080
Width = 975
End
Begin VB.Label Label13
Caption = "注：标题和题头限10个汉字，正文限5个汉字，备注不限"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1200
TabIndex = 51
Top = 4800
Width = 4815
End
Begin VB.Label Label12
Caption = " 7"
Height = 375
Left = 240
TabIndex = 12
Top = 3360
Width = 255
End
Begin VB.Label Label11
Caption = " 6"
Height = 375
Left = 240
TabIndex = 11
Top = 3000
Width = 255
End
Begin VB.Label Label10
Caption = " 5"
Height = 375
Left = 240
TabIndex = 10
Top = 2640
Width = 255
End
Begin VB.Label Label9
Caption = " 4"
Height = 375
Left = 240
TabIndex = 9
Top = 2280
Width = 255
End
Begin VB.Label Label8
Caption = " 3"
Height = 375
Left = 240
TabIndex = 8
Top = 1920
Width = 255
End
Begin VB.Label Label7
Caption = " 2"
Height = 375
Left = 240
TabIndex = 7
Top = 1560
Width = 255
End
Begin VB.Label Label6
Caption = " 1"
Height = 375
Left = 240
TabIndex = 6
Top = 1080
Width = 255
End
Begin VB.Label Label5
Caption = "星期五"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5520
TabIndex = 5
Top = 840
Width = 735
End
Begin VB.Label Label4
Caption = "星期四"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4320
TabIndex = 4
Top = 840
Width = 735
End
Begin VB.Label Label3
Caption = "星期三"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3120
TabIndex = 3
Top = 840
Width = 735
End
Begin VB.Label Label2
Caption = "星期二"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1920
TabIndex = 2
Top = 840
Width = 735
End
Begin VB.Label Label1
Caption = "星期一"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 1
Top = 840
Width = 735
End
End
Attribute VB_Name = "frmlsb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim workb As workbiao
Sub printb(ByVal x0 As Single, ByVal y0 As Single, ByVal Wb As Single, ByVal Hb As Single)
Dim i, j As Integer
Dim x1, y1 As Single
'print 表格
Printer.ForeColor = Gbgcolor
For i = 1 To 9
If i = 1 Or i = 2 Or i = 6 Or i = 9 Then
If i = 1 Or i = 9 Then
Printer.DrawWidth = 5
Else
Printer.DrawWidth = 3
End If
x1 = x0
Else
Printer.DrawWidth = 1
x1 = x0 + Wb / 12
End If
Printer.Line (x1, y0 + 2 * Hb / 11 + (i - 1) * Hb / 11)-(x0 + Wb, y0 + 2 * Hb / 11 + (i - 1) * Hb / 11)
Next i
'redraw first line
Printer.DrawWidth = 5
Printer.Line (x0, y0 + 2 * Hb / 11)-(x0 + Wb, y0 + 2 * Hb / 11)
For i = 1 To 7
If i = 1 Or i = 7 Then
Printer.DrawWidth = 5
Else
Printer.DrawWidth = 1
End If
Printer.Line (x0 + (i - 1) * Wb / 6, y0 + 2 * Hb / 11)-(x0 + (i - 1) * Wb / 6, y0 + 10 * Hb / 11)
Next i
Printer.DrawWidth = 1
Printer.Line (x0 + Wb / 12, y0 + 2 * Hb / 11)-(x0 + Wb / 12, y0 + 10 * Hb / 11)
'print 标题
'Do While Printer.TextWidth(Gstrbt) > Wb
'Gstrbt = Mid$(Gstrbt, 1, Len(Gstrbt) - 1)
'Loop
Printer.FontSize = Gsizebt
Printer.ForeColor = Gbtcolor
Printer.CurrentX = x0 + (Wb - Printer.TextWidth(Gstrbt)) / 2
Printer.CurrentY = y0 + Hb / 22
Printer.Print Gstrbt
'print 正文
Printer.ForeColor = Gzwcolor
Printer.FontSize = Gsizebt - 9
y1 = y0 + 3 * Hb / 11 + (Hb / 11 - Printer.TextHeight("语文")) / 2
For i = 0 To Class - 1
Printer.CurrentY = y1
x1 = x0 + Wb / 6 + (Wb / 6 - Printer.TextWidth("初一11.语文")) / 2
For j = 0 To Day - 1
Printer.CurrentY = y1
Printer.CurrentX = x1
Printer.Print Trim$(workb.biao(i, j))
x1 = x1 + Wb / 6
Next j
y1 = y1 + Hb / 11
Next i
'print 题头
Printer.ForeColor = Gttcolor
Printer.FontSize = Gsize
Printer.CurrentY = y0 + 2 * Hb / 11 - Printer.TextHeight(workb.name) - Hb / 44
Printer.CurrentX = x0
Printer.Print workb.name
Printer.CurrentY = y0 + 2 * Hb / 11 - Printer.TextHeight(Gstrsj) - Hb / 44
Printer.CurrentX = x0 + Wb - Printer.TextWidth(Gstrsj)
If Chkhavesj Then
Printer.Print Gstrsj
End If
Printer.CurrentX = x0 + (Wb / 12 - Printer.TextWidth("时间")) / 2
Printer.CurrentY = y0 + 2 * Hb / 11 + (Hb / 11 - Printer.TextHeight("时间")) / 2
Printer.Print "时间"
Printer.CurrentY = y0 + 2 * Hb / 11 + (Hb / 11 - Printer.TextHeight("时间")) / 2
Printer.CurrentX = x0 + Wb / 12 + (Wb / 12 - Printer.TextWidth("节次")) / 2
Printer.Print "节次"
Printer.CurrentY = y0 + 2 * Hb / 11 + (Hb / 11 - Printer.TextHeight("时间")) / 2
x1 = x0 + Wb / 6 + (Wb / 6 - Printer.TextWidth("星期一")) / 2
Printer.CurrentX = x1
Printer.Print "星期一"
Printer.CurrentY = y0 + 2 * Hb / 11 + (Hb / 11 - Printer.TextHeight("时间")) / 2
x1 = x1 + Wb / 6
Printer.CurrentX = x1
Printer.Print "星期二"
x1 = x1 + Wb / 6
Printer.CurrentX = x1
Printer.CurrentY = y0 + 2 * Hb / 11 + (Hb / 11 - Printer.TextHeight("时间")) / 2
Printer.Print "星期三"
x1 = x1 + Wb / 6
Printer.CurrentX = x1
Printer.CurrentY = y0 + 2 * Hb / 11 + (Hb / 11 - Printer.TextHeight("时间")) / 2
Printer.Print "星期四"
x1 = x1 + Wb / 6
Printer.CurrentX = x1
Printer.CurrentY = y0 + 2 * Hb / 11 + (Hb / 11 - Printer.TextHeight("时间")) / 2
Printer.Print "星期五"
Printer.CurrentX = x0 + Wb / 12 + (Wb / 12 - Printer.TextWidth("1")) / 2
y1 = y0 + 2 * Hb / 11 + (Hb / 11 - Printer.TextHeight("1")) / 2
For i = 1 To 7
Printer.CurrentX = x0 + Wb / 12 + (Wb / 12 - Printer.TextWidth("11")) / 2
y1 = y1 + Hb / 11
Printer.CurrentY = y1
Printer.Print Str$(i)
Next i
Printer.CurrentX = x0 + (Wb / 12 - Printer.TextWidth("上")) / 2
Printer.CurrentY = y0 + 4 * Hb / 11 + Hb / 22
Printer.Print "上"
Printer.CurrentX = x0 + (Wb / 12 - Printer.TextWidth("上")) / 2
Printer.CurrentY = y0 + 5 * Hb / 11 + Hb / 22
Printer.Print "午"
Printer.CurrentY = y0 + 7 * Hb / 11 + 3 * Hb / 44
Printer.CurrentX = x0 + (Wb / 12 - Printer.TextWidth("上")) / 2
Printer.Print "下"
Printer.CurrentY = y0 + 8 * Hb / 11 + 3 * Hb / 44
Printer.CurrentX = x0 + (Wb / 12 - Printer.TextWidth("上")) / 2
Printer.Print "午"
'print 备注
'Printer.ForeColor = Gttcolor
Printer.CurrentX = x0 + Wb / 8
Printer.CurrentY = y0 + 10 * Hb / 11 + Hb / 44
Printer.FontSize = Gsize - 2
Printer.Print Gstrbz
End Sub
Private Sub Command1_Click()
Unload frmlsb
End Sub
Private Sub Command2_Click()
Printer.Orientation = 1
Gsizebt = 22
Gsize = 12
Gstrbt = Trim$(Text2.Text)
Gstrbz = Trim$(Text4.Text)
ww = Printer.ScaleWidth * 90 / 100
hh = Printer.ScaleHeight * 45 / 100
workb.name = Trim$(Text3.Text)
For i = 0 To Class - 1
For j = 0 To Day - 1
workb.biao(i, j) = Left(Trim$(Text1(7 * j + i).Text), 6)
'workb.biao(i, j) = Left$(jskbs(b + 1).rkbiao(i, j), 2)
If Trim$(workb.biao(i, j)) = "0" Then workb.biao(i, j) = " "
Next j
Next i
Call printb(xx, yy, ww, hh)
Printer.EndDoc
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -