module1.bas

办公室小车管理系统,能自动打印派车单,自动统计小车的出车里程耗油等.

Attribute VB_Name = "Module1"
Public sj1, sj2, sj
Public lcc As Integer
Public jhhy As Integer
Public bmdd, bch, bdcr, bjsy, bqzr, brcdw, bangongr, mm, qym As String
Public sl As Integer
Public ybm As String


Sub oprint()
pags = MsgBox("正开始进行打印", 36)
If pags = 6 Then

Dim dj(3) As String
Dim pagen As Integer
'pagen = InputBox("输入打印分数", fs)

dj(3) = "[ 办公室留存 ]"
dj(2) = "[ 随车同行 ]"
dj(1) = " 派车单"

For i = 1 To 1
'Printer.Print
'Printer.Print
Printer.Font.Underline = True

'Printer.FontSize = 16
Printer.FontName = "隶书"
'Printer.Print Tab(29); dj(1)
Printer.FontSize = 14
'Printer.FontName = "宋体"
'Printer.Print
Printer.Print Tab(29); qym; "派车单"
Printer.Font.Underline = False
Printer.FontName = "宋体"
Printer.FontSize = 12
Printer.Print Tab(15); "┏"; String(7, "━"); "┯"; String(7, "━"); "┯"; String(7, "━"); "┯"; String(7, "━"); "┓"; "一二"
Printer.Print Tab(15); "┃"; "  车  号"; Tab(31); "│"; bch; Tab(47); "│"; "   驾驶员"; Tab(63); "│"; bjsy; Tab(79); "┃"; "联联"
Printer.Print Tab(15); "┠"; String(7, "─"); "┼"; String(7, "─"); "┴"; String(7, "─"); "┴"; String(7, "─"); "┨";
Printer.Print Tab(15); "┃"; "  用车时间"; Tab(31); "│"; sj1; "   至  "; sj2; Tab(79); "┃"; "出驾"
Printer.Print Tab(15); "┠"; String(7, "─"); "┼"; String(7, "─"); "┬"; String(7, "─"); "┬"; String(7, "─"); "┨"; "  驶"
Printer.Print Tab(15); "┃"; "  出发地点"; Tab(31); "│"; bmdd; Tab(47); "│"; "   用车单位"; Tab(63); "│"; brcdw; Tab(79); "┃"; "门员"
Printer.Print Tab(15); "┠"; String(7, "─"); "┼"; String(7, "─"); "┼"; String(7, "─"); "┼"; String(7, "─"); "┨"; "  留"
Printer.Print Tab(15); "┃"; "  带 车 人"; Tab(31); "│"; bdcr; Tab(47); "│"; "   派 车 人"; Tab(63); "│"; bqzr; Tab(79); "┃"; "证存"
Printer.Print Tab(15); "┗"; String(7, "━"); "┷"; String(7, "━"); "┷"; String(7, "━"); "┷"; String(7, "━"); "┛"
Printer.Print Tab(17); "办 公 室 负 责 人:  "; bangongr; Tab(50); " （办公室章）  "
'Printer.Print
'Printer.Print

Printer.Print String(88, "--")
Next

Printer.EndDoc
 
End If
End Sub
Sub print2()
pags = MsgBox("正开始进行打印", 36)
If pags = 6 Then
Dim dj(3) As String
dj(1) = "[ 办公室留存 ]"
dj(2) = "[领 料 单（一 联）]"
dj(3) = "[领 料 单（二 联）]"
For i = 1 To 3
Printer.Print
Printer.Print
Printer.Font.Underline = True
Printer.FontSize = 18
Printer.FontName = "隶书"
Printer.Print Tab(21); qym
Printer.FontSize = 12
Printer.FontName = "宋体"
Printer.Print
Printer.Font.Underline = False
Printer.Print Tab(40); dj(i)
Printer.Print Tab(15); "┏"; String(7, "━"); "┯"; String(7, "━"); "┯"; String(7, "━"); "┯"; String(7, "━"); "┓"
Printer.Print Tab(15); "┃"; "  用车单位"; Tab(31); "│"; Tab(35); brcdw; Tab(47); "│"; "   驾 驶 员"; Tab(63); "│"; bjsy; Tab(79); "┃"
Printer.Print Tab(15); "┠"; String(7, "─"); "┼"; String(7, "─"); "┼"; String(7, "─"); "┼"; String(7, "─"); "┨"
Printer.Print Tab(15); "┃"; "  车   号"; Tab(31); "│"; Tab(35); bch; Tab(47); "│"; "   油 品 名"; Tab(63); "│"; ybm; Tab(79); "┃"
Printer.Print Tab(15); "┠"; String(7, "─"); "┼"; String(7, "─"); "┼"; String(7, "─"); "┼"; String(7, "─"); "┨"
Printer.Print Tab(15); "┃"; "  领 用 量"; Tab(31); "│"; Tab(35); sl; Tab(47); "│"; "   时    间"; Tab(63); "│"; sj; Tab(79); "┃"
Printer.Print Tab(15); "┗"; String(7, "━"); "┷"; String(7, "━"); "┷"; String(7, "━"); "┷"; String(7, "━"); "┛"
Printer.Print Tab(17); "办 公 室 负 责 人: "; bangongr; Tab(50); "（办公室章）  "
Printer.Print
 '用车单位
Printer.Print String(88, "--")
Next

Printer.EndDoc
End If
'printer.Show
End Sub