📄 frmbjoption.frm
字号:
Left = 240
TabIndex = 26
Top = 720
Width = 15
End
Begin VB.OptionButton Optkd2b
Caption = "宽行打印机每页二表"
Height = 255
Left = 360
TabIndex = 18
Top = 895
Width = 2295
End
Begin VB.OptionButton Optkd4b
Caption = "宽行打印机每页四表"
Height = 195
Left = 360
TabIndex = 17
Top = 1200
Width = 2295
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
ForeColor = &H00000000&
Height = 345
Left = 120
TabIndex = 6
Top = 1560
Width = 855
End
End
Begin VB.CheckBox Chkhavesj
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 = 375
Left = 4080
TabIndex = 3
Top = 600
Width = 1695
End
Begin VB.CheckBox Chkhavebt
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 = 345
Left = 4080
TabIndex = 2
Top = 1200
Width = 1485
End
Begin VB.TextBox Texbt
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 4080
MultiLine = -1 'True
TabIndex = 1
Text = "frmbjoption.frx":179B2
Top = 1800
Width = 1935
End
Begin MSComDlg.CommonDialog dlgcolor
Left = -74760
Top = 2880
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Label Label2
Caption = "请选字体："
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = -74760
TabIndex = 20
Top = 1200
Width = 1695
End
Begin VB.Label Label3
Caption = "请选择："
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = -74760
TabIndex = 14
Top = 600
Width = 6255
End
End
End
Attribute VB_Name = "frmbjoption"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim newbiao As bjkcbiao
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 firstline
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 - 2
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("语文")) / 2
For j = 0 To Day - 1
Printer.CurrentY = y1
Printer.CurrentX = x1
Printer.Print Left$(workb.biao(i, j), 2)
x1 = x1 + Wb / 6
Next j
y1 = y1 + Hb / 11
Next i
'print 题头
Printer.ForeColor = Gttcolor 'Gbjttcolor
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 = Gbjttcolor ' Gbzcolor
Printer.CurrentX = x0 + Wb / 8
Printer.CurrentY = y0 + 10 * Hb / 11 + Hb / 44
Printer.FontSize = Gsize - 2
Printer.Print Gstrbz
End Sub
'Dim bjbtcolor, bjttcolor, bjzwcolor As Long
Private Sub Chkbz_Click()
If Chkbz.Value = 1 Then
Texbz.Enabled = True
'Texbz.SetFocus
Else
Texbz.Enabled = False
'Texbz.SetFocus
End If
End Sub
Private Sub chkhavebt_Click()
If Chkhavebt.Value = 0 Then
Texbt.Enabled = False
Else
Texbt.Enabled = True
'Texbt_Click
End If
End Sub
Private Sub Cmdbgcolor_Click()
dlgcolor.ShowColor
Gbgcolor = dlgcolor.Color
Texbg.ForeColor = Gbgcolor
End Sub
Private Sub Cmdbtcolor_Click()
dlgcolor.ShowColor
Gbtcolor = dlgcolor.Color
Texbtcolor.ForeColor = Gbtcolor
Texbtcolor.Text = "标题颜色"
End Sub
Private Sub Cmdttcolor_Click()
dlgcolor.ShowColor
Gttcolor = dlgcolor.Color
Texttcolor.ForeColor = Gttcolor
Texttcolor.Text = "题头颜色"
End Sub
Private Sub Cmdzt_Click()
'Dlgzt.Flags = cdlCFPrinterFonts
'Dlgzt.ShowFont
'bjzt = Dlgzt.FontName
'Texztyl.FontName = bjzt
End Sub
Private Sub cmdzwcolor_Click()
dlgcolor.ShowColor
Gzwcolor = dlgcolor.Color
texzwcolor.ForeColor = Gzwcolor
texzwcolor.Text = "正文颜色"
End Sub
Private Sub Combjfont_Click()
Gbjzt = Printer.Fonts(Combjfont.ListIndex)
Texztyl.FontName = Gbjzt
End Sub
Private Sub Opt1bjb_Click()
End Sub
Private Sub Opt2bjb_Click()
End Sub
Private Sub Option2_Click()
End Sub
Private Sub Cmdback_Click()
Unload frmbjoption
End Sub
Private Sub Command1_Click()
End Sub
Private Sub Combjok_Click()
If Class > 7 Or Day > 5 Or Class1 > 4 Then
MsgBox "你的工作日数或上课节数太大，在本模块不能打印，请返回主屏执行“导出”操作，导出Execl表后再打印!"
Exit Sub
End If
If Chkbz.Value = 1 Then
'chkhavebjbz = True
Gstrbz = Trim$(Texbz.Text)
Else
'chkhavebjbz = False
Gstrbz = ""
End If
If Chkhavesj.Value = 1 Then
'chkhavebjsj = True
Gstrsj = Str$(Now)
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -