各个label字形大小不同,printer好像无法支持
printform的话,又要打印form,
而我,要的只是form上的内容
水平有限,请尽量详细点,谢谢
(例如
用GUI+来取得要打印坐标以图形的方式打印出来...
只有这一句,对我来说无异天书)
printform的话,又要打印form,
而我,要的只是form上的内容
水平有限,请尽量详细点,谢谢
(例如
用GUI+来取得要打印坐标以图形的方式打印出来...
只有这一句,对我来说无异天书)
for each c in me.controls
if not typeof c is label then c.visible=false
next然后 printform
=============
支持的:
set printer.font = label.font
Printer.Font.Name = "宋体"
Printer.Font.Size = 16
Printer.CurrentX = 100
Printer.CurrentY = 200
Printer.Print Label1.Caption
Printer.EndDoc
End Sub
fuxc(Michael(继续迷茫)),也要回去试试
kxyzjm(kxyzjm)的方法,打印一句好像就要换页,也不行啊
Printer.Font.Name = "宋体"
Printer.Font.Size = 16
Printer.CurrentX = 100
Printer.CurrentY = 200
Printer.Print Label1.Caption
Printer.Print Label2.Caption
Printer.Print Label3.Caption
Printer.Print Label4.Caption
Printer.Print Label5.Caption
Printer.EndDoc
End Sub
正确答案是fuxc兄(printer可以支持动态改变)
提请版主处理...