vb.net如何打印窗口 vbs打印( 二 )


Dim X As Long
Dim y As Long
Dim fnt As Variant
Dim txt As String
Dim dy As Variant
Public Function prnt(X As Variant, y As Variant, fnt As Variant, txt As Variant)
Printer.CurrentX = X
Printer.CurrentY = y
Printer.FontSize = fnt
Printer.Print txt
End Function
Private Sub Command1_Click()
Printer.ScaleMode = 6 '以mm定位
Printer.CurrentX = 10
Printer.CurrentY = 20
fnt = 12
txt = "YD(0)"
dy = prnt(X, y, fnt, txt)
Printer.EndDoc
End Sub
【vb.net如何打印窗口 vbs打印】vb.net如何打印窗口的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vbs打印、vb.net如何打印窗口的信息别忘了在本站进行查找喔 。

推荐阅读