请问用print方法如何打印如下的文本:
_____________________
|表格 | 表格 | 表格13|
---------------------
|表格 | 表格 | 表格23|
---------------------就是打印一个表格。
_____________________
|表格 | 表格 | 表格13|
---------------------
|表格 | 表格 | 表格23|
---------------------就是打印一个表格。
解决方案 »
- 各位大侠帮帮忙,如何实现串口数据采集,处理,逻辑控制
- vb 编写ACTIVEX控件的问题
- 请求大虾关于查同时询多个表的问题,急(在线等)
- 关于richtextbox或textbox等编辑控件的双击问题.
- 现金请人做一小系统
- 我用串口每次发送6个数据,其中最后两个是由text输入的十六进制数据,请教以下代码为什么不管用
- [行到网游缤纷处,笑看人妖兴旺时],感谢人妖,你们是网络游戏时代最靓丽的风景线。
- 有那位知道是不是有Linux下的BASIC语言!
- 重装系统ctl不能使用的问题
- Install shield怎么把不同的5组文件安装到不同目录下?
- 读xml中的多条记录怎样读
- 大师们:救救我!!! 为什么提示找不到DLL文件?!
当然你需要计算一下字符的个数。
object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]
Printer.CurrentX = 10
Printer.CurrentY = 10
Printer.Print "sdfsdf" & vbTab & vbTab & "sdfdfsdf"
Printer.Line (0, 0)-(0, 500)
Printer.Line (500, 0)-(500, 500)
Printer.Line (2000, 0)-(2000, 500)
Printer.Line (0, 500)-(2000, 500)
Printer.EndDoc
End Sub
object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]
Printer.CurrentX = 10
Printer.CurrentY = 10
Printer.Print "sdfsdf" & vbTab & vbTab & "sdfdfsdf"用CurrentX,CurrentY随时定位,输入文本
我上边的代码就是在表格中写的字,你运行一下看看效果
楼上ch21st(风尘鸟) 说得对。再列举点可能用到的属性和方法:NewPage:用以结束 Printer 对象中的当前页并前进到下一页;
EndDoc:用于终止发送给 Printer 对象的打印操作,将文档释放到打印设备或后台打印程序;
KillDoc:用于立即终止当前打印作业;
Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]:在对象上画直线和矩形;
Print [outputlist]:显示(打印)文本;
CurrentX [= x]:返回或设置下一次打印或绘图方法的 水平 (CurrentX) 坐标;
CurrentY [= y]:返回或设置下一次打印或绘图方法的 垂直 (CurrentY) 坐标;
TwipsPerPixelX:返回水平 (TwipsPerPixelX) 度量的对象的每一像素中的缇数;
TwipsPerPixelY:返回垂直 (TwipsPerPixelY) 度量的对象的每一像素中的缇数;
TextHeight(string):用以返回按 Form、PictureBox 或 Printer 的当前字体将被打印的文本字符串的高度;
TextWidth(string):用以返回按 Form,PictureBox 或 Printer 的当前字体被打印的文本字符串的宽度;
ScaleX (width, fromscale, toscale):用以将 Form,PictureBox 或 Printer 的宽度值从一种 ScaleMode 属性的度量单位转换到另一种;
ScaleY (height, fromscale, toscale):用以将 Form,PictureBox 或 Printer 的高度值从一种 ScaleMode 属性的度量单位转换到另一种;全是从 MSDN 拷来的,见笑了。