📄 print.bas
字号:
Attribute VB_Name = "print"
'/////////////////////////////// 设置协调打印位置的全局变量 ///////////////////////////////
Public gHeight, gWidth As Integer '表示纸张的高度、宽度
Public gRow1, gRow2, gRow3, gRow4, gRow5, gRow55, gRow6, gRow7, gRow8 As Integer '表示打印各行的垂直位置（最大为 100）
Public gCol1, gCol2, gCol3, gCol4, gCol5, gCol6, gCol7, gCol8 As Integer '表示打印各行水平起始位置（最大为 100）
'─││┆┈┄┆┊┌┐└┘├┤┬┴┼╱╲「」
Public Function printer_list(username As String, cyear As String, cmonth As String, fee_s As String, xyear As String, xmonth As String, xday As String, places As String, printer_date As String)
'用户名
Dim line_1 As Integer
Dim line_2 As Integer
Dim line_3 As Integer
Dim line_4 As Integer
Dim line_5 As Integer
Dim line_6 As Integer
Dim line_7 As Integer
Dim line_8 As Integer
line_1 = 13
line_2 = 16
line_3 = 19
line_4 = 29
line_5 = 52
line_6 = 57
line_7 = 61
line_8 = 79
Printer.CurrentY = line_1
Printer.CurrentX = 5
Printer.Print Trim(username)
'电费(年份+月份 +日期+ 数量) +期限(年份+月份)
Printer.CurrentY = line_2
Printer.CurrentX = 15
Printer.Print Trim(cyear)
Printer.CurrentY = line_2
Printer.CurrentX = 25
Printer.Print Trim(cmonth)
Printer.CurrentY = line_2
Printer.CurrentX = 37
Printer.Print Format(Trim(fee_s), "0.00")
Printer.CurrentY = line_2
Printer.CurrentX = 56
Printer.Print Trim(xyear)
Printer.CurrentY = line_2
Printer.CurrentX = 64
Printer.Print Trim(xmonth)
'期限(日期)+地点
Printer.CurrentY = line_3
Printer.CurrentX = 5
Printer.Print Trim(xday)
Printer.CurrentY = line_3
Printer.CurrentX = 15
Printer.Print Trim(places)
'打印日期
Printer.CurrentY = line_4
Printer.CurrentX = 51
Printer.Print Format(Date, "yyyy mm dd")
'--------------------------------------------------------
'用户名
Printer.CurrentY = line_5
Printer.CurrentX = 5
Printer.Print Trim(username)
'电费(年份)
Printer.CurrentY = line_6
Printer.CurrentX = 19
Printer.Print Trim(cyear)
'电费(月份)
Printer.CurrentY = line_6
Printer.CurrentX = 29
Printer.Print Trim(cmonth)
'电费(电费)
Printer.CurrentY = line_6
Printer.CurrentX = 47
Printer.Print Format(Trim(fee_s), "0.00")
'期限 (年份 + 月份+日期) + 地点
Printer.CurrentY = line_7
Printer.CurrentX = 8
Printer.Print Trim(xyear)
Printer.CurrentY = line_7
Printer.CurrentX = 18
Printer.Print Trim(xmonth)
Printer.CurrentY = line_7
Printer.CurrentX = 28
Printer.Print Trim(xday)
Printer.CurrentY = line_7
Printer.CurrentX = 39
Printer.Print Trim(places)
'打印日期
Printer.CurrentY = line_8
Printer.CurrentX = 48
Printer.Print Format(Date, "yyyy mm dd")
Printer.NewPage
End Function
Public Function printer_init_c()
Printer.ColorMode = 1 '用单色打印
' Printer.Copies = 1 '打印的打印份数
Printer.CurrentX = 0
Printer.CurrentY = 0 '打印机的初始位置
Printer.Duplex = 1 '单面打印
Printer.Font.Bold = True '打印按黑体
Printer.Font.Italic = False '打印斜体
Printer.Font.Name = "楷体" '打印的字体
Printer.Font.Size = 11 '打印字体的大小
Printer.Font.Underline = False '不打印下划线
Printer.Font.Weight = 9 '字体的重量
'Printer.FontTransparent = True '打印字体的透明
Printer.ScaleMode = 3 '按像素计算打印机纸张的大小
Printer.ScaleMode = 0
Printer.ScaleTop = 0 '设置坐标的起始位置的最上边
Printer.ScaleLeft = 0 '设置坐标的起始位置的最左边
Printer.ScaleHeight = 100 '设置坐标的全部高度
Printer.ScaleWidth = 100 '设置坐标的全部长度
Printer.Width = 10000
Printer.Height = 15150
Printer.Orientation = 1
End Function
Public Function printer_init1()
Printer.ColorMode = 1 '用单色打印
' Printer.Copies = 1 '打印的打印份数
Printer.CurrentX = 0
Printer.CurrentY = 0 '打印机的初始位置
Printer.Duplex = 1 '单面打印
Printer.Font.Bold = True '打印按黑体
Printer.Font.Italic = False '打印斜体
Printer.Font.Name = "楷体" '打印的字体
Printer.Font.Size = 11 '打印字体的大小
Printer.Font.Underline = False '不打印下划线
Printer.Font.Weight = 9 '字体的重量
'Printer.FontTransparent = True '打印字体的透明
Printer.ScaleMode = 3 '按像素计算打印机纸张的大小
Printer.ScaleMode = 0
Printer.ScaleTop = 0 '设置坐标的起始位置的最上边
Printer.ScaleLeft = 0 '设置坐标的起始位置的最左边
Printer.ScaleHeight = 67 '设置坐标的全部高度
Printer.ScaleWidth = 100 '设置坐标的全部长度
Printer.Width = 20000
Printer.Height = 16000
Printer.Orientation = 1
End Function
Public Function printer_init()
Printer.ColorMode = 1 '用单色打印
' Printer.Copies = 1 '打印的打印份数
Printer.CurrentX = 0
Printer.CurrentY = 0 '打印机的初始位置
Printer.Duplex = 1 '单面打印
Printer.Font.Bold = True '打印按黑体
Printer.Font.Italic = False '打印斜体
Printer.Font.Name = "楷体" '打印的字体
Printer.Font.Size = 11 '打印字体的大小
Printer.Font.Underline = False '不打印下划线
Printer.Font.Weight = 9 '字体的重量
'Printer.FontTransparent = True '打印字体的透明
Printer.ScaleMode = 3 '按像素计算打印机纸张的大小
' Printer.ScaleMode = 0
Printer.ScaleTop = 0 '设置坐标的起始位置的最上边
Printer.ScaleLeft = 0 '设置坐标的起始位置的最左边
Printer.ScaleHeight = 67 '设置坐标的全部高度
Printer.ScaleWidth = 100 '设置坐标的全部长度
Printer.Width = 15000
Printer.Height = 16000
Printer.Orientation = 1
End Function
'发票格式设置（不自动调整）
Public Function SetPrinterPar() As Boolean
SetPrinterPar = False
gHeight = 5300
gWidth = 8200
'gHeight = 7200
'gWidth = 7000
gRow1 = 0
gRow2 = 18
gRow3 = 27
gRow4 = 50
gRow5 = 76
gRow55 = 77
gRow6 = 86
gCol1 = 10
gCol2 = 16
gCol3 = 18
gCol4 = 8
gCol5 = 22
gCol6 = 13
SetPrinterPar = True
End Function
'发票格式设置（根据用户调整)
Public Function SetPrinterPara(monthx As Integer, monthy As Integer, numberx As Integer, numbery As Integer, namex As Integer, namey As Integer, dispx As Integer, dispy As Integer, pricex As Integer, pricey As Integer, datex As Integer, datey As Integer) As Boolean
SetPrinterPara = False
gHeight = 5300
gWidth = 8200
'gHeight = 7200
'gWidth = 7000
gRow1 = monthy
gRow2 = numbery
gRow3 = namey
gRow4 = dispy
gRow5 = pricey
gRow6 = datey
gCol1 = monthx
gCol2 = numberx
gCol3 = namex
gCol4 = dispx
gCol5 = pricex
gCol6 = datex
SetPrinterPara = True
End Function
'///////////////////////////////// 打印发票全局函数 ////////////////////////
'/////////////////////////////////// 参数说明 ///////////////////////////
' sYueFen as String :月份
' sHuHao as String :户号
' sQuYeMa as String :区页码
' sNo as String :NO
' sHuMing as String :户名
' sDiZhi as String :地址
' iBenQi as Integer :本期示数
' iShangQi as Integer :上期示数
' iBiaoSun as Integer :表损
' lDanJia as Long :单价
' sBeiZhu as String :备注
' sYinHangDM as String :银行代码
' sShouFeiY as String :收费员
'/////////////////////////////////////////////////////////////////////////////
Public Function PrintFp(ByVal sYueFen As String, ByVal sHuHao As String, ByVal sQuYeMa As String, _
ByVal sNo As String, ByVal sHuMing As String, ByVal sDiZhi As String, _
ByVal iBenQi As Long, ByVal iShangQi As Long, ByVal iBiaoSun As Long, _
ByVal lDanJia As Double, ByVal sBeiZhu As String, _
ByVal stimes As Long, ByVal sYinHangDM As String, ByVal sShouFeiY As Variant) As Boolean
Dim lJinE As Double
Dim sBenQi, sShangQi As String
Dim sBiaoSun, sDianLiang, sDanJia, sJinE, sQian, sBai, sShi, sYuan, sJiao, sFen As String
Dim sNian, sYue, sRi As String
Dim sTemp, iTemp, lTemp
PrintFp = False
On Error Resume Next
'sYueFen = Right("00" & CStr(iYueFen), 2)
'sHuHao = CStr(iHuHao)
'sQuYeMa = CStr(iQuYeMa)
'sNo = CStr(iNo)
'sHuMing = sHuMing
'sDiZhi = sDiZhi
sBenQi = CStr(iBenQi)
sShangQi = CStr(iShangQi)
sBiaoSun = CStr(iBiaoSun)
sDianLiang = CStr((iBenQi - iShangQi) * stimes + iBiaoSun + CLng(sBeiZhu))
sDanJia = Format(lDanJia, "0.0000")
lJinE = ((iBenQi - iShangQi) * stimes + iBiaoSun + CLng(sBeiZhu)) * lDanJia
sJinE = CStr(lJinE * 100)
'sBeiZhu = sBeiZhu
sQian = cMoneyToString((CLng(CLng(lJinE) - (CLng(lJinE) Mod 1000))) / 1000)
'sQian = cMoneyToString((CInt(CInt(lJinE) - (CInt(lJinE) Mod 1000))) / 1000)
lJinE = Format(lJinE, "0.00")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -