Question

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

制作快递单打印软件,需要指定打印的位置!如何实现!只需要打印快递单图片坐标内的内容!
https://gss0.baidu.com/7LsWdDW5_xN3otqbppnN2DJv/zhidao/pic/item/6a600c332d8f42b71b4cff7f.jpg?t=1294479688640&t=1294479700968 图片地址

Answer 1

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

Answer 2

Printer.PaintPicture picture,x1,y1,width1,height1,x2,y2,width2,height2
其中picture是要打印的图片或图片框的picture或image属性
x1,y1是指示参数picture在打印纸上绘制的位置。
width1,height1指示图像在打印纸上的大小，会适当拉伸或压缩，如省略，则使用原始尺寸。
x2,y2指示图像打印区域的起点。
width2,height2指示打印区域的大小。

（所有大小所采用的单位均由ScaleMode属性决定）