VB如何打印窗体上指定位置的内容
制作快递单打印软件,需要指定打印的位置!如何实现!只需要打印快递单图片坐标内的内容!http://hiphotos.baidu.com/zhidao/pic/item/6...
制作快递单打印软件,需要指定打印的位置!如何实现!只需要打印快递单图片坐标内的内容!
https://gss0.baidu.com/7LsWdDW5_xN3otqbppnN2DJv/zhidao/pic/item/6a600c332d8f42b71b4cff7f.jpg?t=1294479688640&t=1294479700968 图片地址 展开
https://gss0.baidu.com/7LsWdDW5_xN3otqbppnN2DJv/zhidao/pic/item/6a600c332d8f42b71b4cff7f.jpg?t=1294479688640&t=1294479700968 图片地址 展开
展开全部
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
展开全部
Printer.PaintPicture picture,x1,y1,width1,height1,x2,y2,width2,height2
其中picture是要打印的图片或图片框的picture或image属性
x1,y1是指示参数picture在打印纸上闭扒春绘制的轿耐位置。
width1,height1指示图像在打印纸上的大小此颂,会适当拉伸或压缩,如省略,则使用原始尺寸。
x2,y2指示图像打印区域的起点。
width2,height2指示打印区域的大小。
(所有大小所采用的单位均由ScaleMode属性决定)
其中picture是要打印的图片或图片框的picture或image属性
x1,y1是指示参数picture在打印纸上闭扒春绘制的轿耐位置。
width1,height1指示图像在打印纸上的大小此颂,会适当拉伸或压缩,如省略,则使用原始尺寸。
x2,y2指示图像打印区域的起点。
width2,height2指示打印区域的大小。
(所有大小所采用的单位均由ScaleMode属性决定)
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询