中科新闻网婆婆来了小说传智后续:VB中怎么打印发货票据呀！
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 08:06:34
CurrentX和CurrentY怎么控制
用如下代码实现控制位置打印：
Option Explicit
Private y As Integer
Private x As Integer
Private txt As String
Private fnt As Integer
Private dd As Variant
'打印函数
Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt0 As Variant)
Printer.CurrentX = x
Printer.CurrentY = y
Printer.FontSize = fnt
Printer.Print txt0
End Function
Private Sub cmdPrint_Click()
fnt = 8
y = 300
x = 4500
txt = "机物料库存"
dd = prnt(x, y, fnt, txt)
x = 8500
txt = "第" & p + 1 & "页"
dd = prnt(x, y, fnt, txt)
y = 500
x = 600
txt = "备件代码"
dd = prnt(x, y, fnt, txt)
x = 1500
txt = "备件名称"
dd = prnt(x, y, fnt, txt)
Printer.EndDoc ' 打印完成。
Cls
End Sub