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

VBA设置excel自动打印：

sub

dayin()

Application.ActiveSheet.PrintOut

copies:=1

end

sub

这是打印当前的工作表

打印一份

如果是打印当前工作薄中的工作表

Excel.ActiveWorkBook.PrintOut(1,Excel.WorkSheets.count,1,.T.)　消颂带参数的打印

参数说明：共四个参数

参数1-数值：当前工作簿中进行打印的起始工作表号(默认1)参数2-数值：当拿伏郑前工作簿中进行打印的结束工作表号(默认最末)

参数3-数值：打印份数(默认1)

参数4-逻辑值：是预览打印还是直接打印：.T.-预览打印，.F.-直接打印(默认.F.)

Excel.ActiveSheet.PrintOut()

参数说明：共八个参数

参数1-数值：起始页号，省略则默认为开始位置参数2-数值：终止页号，省略则默厅丛认为最后一页

参数3-数值：打印份数，省略则默认为1份

参数4-逻辑值：是否预览，省略则默认为直接打印(.F.)

参数5-字符值：设置活动打印机名称，省略则为默认打印机

参数6-逻辑值：是否输出到文件，省略则默认为否(.F.)，若选.T.且参数8为空，则Excel提示输入要输出的文件名

参数7-逻辑值：输出类型，省略则默认为(.T.)逐份打印，否则逐页打印

参数8-字符值：当参数6为.T.时，设置要打印到的文件名

Excel.ActiveSheet.PrintOut(1,3,6,.F.,"MyPrinter",.F.,.T.,,)　从1页打印到3页，打印6份，通过MyPrinter打印机来打印，并且，要逐份打印。

---