print

[csdnquestion]

请问用print方法如何打印如下的文本：
_____________________
|表格 | 表格 | 表格13|
---------------------
|表格 | 表格 | 表格23|
---------------------

就是打印一个表格。

[二师兄的老公]

你是怎么发的这个帖子，就用Printer对象打印相同的字符。
当然你需要计算一下字符的个数。

[csdnquestion]

我要的是一个完整的表格。就是象excel和word中的表格一样，非常整齐，完全闭合的那种。

[道素]

画线用
Printer.Line

[二师兄的老公]

要画线，就用 Line 方法：
object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]

[道素]

Private Sub Command1_Click()

Printer.Line (0, 0)-(2000, 0)
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

[二师兄的老公]

要画线，就用 Line 方法：
object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]

[csdnquestion]

各位，主要是表格中还要有字，要不画个空表格有什么用。

[道素]

看这个
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 拷来的，见笑了。