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

制作快递单打印软件,需要指定打印的位置!如何实现!只需要打印快递单图片坐标内的内容!http://hiphotos.baidu.com/zhidao/pic/item/6... 制作快递单打印软件,需要指定打印的位置!如何实现!只需要打印快递单图片坐标内的内容!
https://gss0.baidu.com/7LsWdDW5_xN3otqbppnN2DJv/zhidao/pic/item/6a600c332d8f42b71b4cff7f.jpg?t=1294479688640&t=1294479700968 图片地址
展开
 我来答
zdingyun
2015-08-08 · 知道合伙人软件行家
zdingyun
知道合伙人软件行家
采纳数:15429 获赞数:48173
1982年上海业余工业大学化工系毕业 现退休

向TA提问 私信TA
展开全部

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
百度网友94c322dc3
2011-01-09 · TA获得超过168个赞
知道答主
回答量:69
采纳率:0%
帮助的人:48.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属性决定)
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式