VB上如何打印窗体指定位置的内容？

VB可以用CurrentX、CurrentY 属性实现定位打印。用ScaleMode 属性确定打印机对象坐标的度量单位。

CurrentX、CurrentY 属性，返回或设置下一次打印或绘图方法的 水平 (CurrentX) 或垂直

(CurrentY) 坐标。

ScaleMode 属性，当使用图形方法或调整控件位置时，返回或设置一个值，该值指示对象坐标的度量单位。

具体实现代码：

Option Explicit

    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

1、首先我们打开电脑进入到桌面，然后找到word文档图标点击打开。

2、其次会进入到文件界面，点击左侧菜单中的打印选项。

3、最后在右侧的窗口中就会出现打印界面，点击窗口下方的打印所有页选项即可。

---