不用第三方控件,没有数据库,vb6,打印出表格及内容怎样实现？

Question

thank u,具体的命令是哪些?给我列出几个吧.有更好的解决方式吗?

Answer 1

对 Printer 对像编程，但它不提供打印预览。
袁飞打印预览控件，兼容 Printer 对象，提供预览。

Answer 2

printer.line (x1,y1)-(x2,y2) 等用来划表格
看看msdn

Answer 3

Sub 打印验收单()
On Error Resume Next
Printer.Orientation = 1
'-------------话图形
Printer.ScaleMode = vbPoints '设定对象坐标的度量单位
Printer.PaperSize = vbPRPSB4 '设定纸的大小------------------可以设个过程！
'定义边距
Dim bj As Integer
bj = 24
'Txt = 1000
'定义行单位
Dim wid As Integer
wid = (Printer.ScaleWidth - 2 * bj) / 12
'定义列单位Dim a
a = 16
'表头
Printer.CurrentX = Printer.ScaleWidth / 2 - 5.25 * a
Printer.CurrentY = bj - a
With Printer.Font
    .Name = "黑体"
    .Size = 24
End With
Printer.Print "验    收    单"
With Printer.Font
    .Name = "宋体"
    .Size = 11
End With
Printer.Line (Printer.ScaleWidth / 2 - 5.25 * a, 10 + bj)-(Printer.ScaleWidth / 2 + 5.25 * a, 10 + bj)
Printer.Line (Printer.ScaleWidth / 2 - 5.25 * a, 12 + bj)-(Printer.ScaleWidth / 2 + 5.25 * a, 12 + bj)
Printer.CurrentX = bj
Printer.CurrentY = bj + 1
Printer.Print "货款结算方式：" & Label3(25).Caption
Printer.CurrentX = bj
Printer.CurrentY = a + bj
Printer.Print "供应单位全称：" & Label3(24).Caption  '--------------------------------1
Printer.CurrentX = Printer.ScaleWidth / 2 - 3 * a
Printer.CurrentY = a + bj
Printer.Print "开票日期：" & Str$(DTPicker1.Value)
Printer.CurrentX = Printer.ScaleWidth - bj - 3 * wid
Printer.CurrentY = bj - a + 2
Printer.Print "按特定用途分类："
Printer.CurrentX = Printer.ScaleWidth - bj - 3 * wid
Printer.CurrentY = bj + 1
Printer.Print "为："
Printer.CurrentX = Printer.ScaleWidth - bj - 3 * wid
Printer.CurrentY = a + bj
Printer.Print "本单编号：" & Text4.Text
Printer.DrawWidth = 2
Printer.Line (bj, a + bj + a)-(Printer.ScaleWidth - bj, a + bj + a)
Printer.DrawWidth = 1
Printer.Line (bj + wid, 2 * a + bj)-(Printer.ScaleWidth - bj, 2 * a + bj)
Printer.Line (bj + wid, 2 * a + bj)-(bj + wid, 2 * a + bj + 5 * a)
Printer.Line (bj + 3 * wid, 2 * a + bj + a)-(bj + 3 * wid, 2 * a + bj + 5 * a)
Printer.Line (bj + 6 * wid, 2 * a + bj + a)-(bj + 6 * wid, 2 * a + bj + 5 * a)
Printer.Line (bj + 7 * wid, 2 * a + bj)-(bj + 7 * wid, 2 * a + bj + 5 * a)
Printer.Line (bj + 8 * wid, 2 * a + bj + a)-(bj + 8 * wid, 2 * a + bj + 5 * a)
Printer.Line (bj + 9 * wid, 2 * a + bj)-(bj + 9 * wid, 2 * a + bj + 5 * a)
Printer.Line (bj + 11 * wid, 2 * a + bj + a)-(bj + 11 * wid, 2 * a + bj + 5 * a)
'Printer.Line (bj + 13 * wid, 2 * a + bj)-(bj + 13 * wid, 2 * a + bj + 5 * a)
Printer.Line (bj, 2 * a + bj + 3 * a)-(Printer.ScaleWidth - bj, 2 * a + bj + 3 * a)
Printer.Line (bj + wid, 2 * a + bj + a)-(Printer.ScaleWidth - bj, 2 * a + bj + a)
Printer.DrawWidth = 2
Printer.Line (bj, 2 * a + bj + 5 * a)-(Printer.ScaleWidth - bj, 2 * a + bj + 5 * a)
Printer.DrawWidth = 1
Printer.CurrentX = bj + (wid - 33) / 2
Printer.CurrentY = bj + 2 * a + (3 * a - 11) / 2
Printer.Print "编  号"
Printer.CurrentX = bj + wid + (5 * wid - 88) / 2
Printer.CurrentY = bj + 2 * a + (a - 11) / 2
Printer.Print "项            目"
Printer.CurrentX = bj + wid + (2 * wid - 44) / 2
Printer.CurrentY = bj + 2 * a + a + (2 * a - 11) / 2
Printer.Print "名    称"
Printer.CurrentX = bj + 3 * wid + (3 * wid - 88) / 2
Printer.CurrentY = bj + 2 * a + a + (2 * a - 11) / 2
Printer.Print "材质、及规格型号"
Printer.CurrentX = bj + 6 * wid + (wid - 22) / 2
Printer.CurrentY = bj + 2 * a + a + (2 * a - 11) / 2
Printer.Print "单位"
Printer.CurrentX = bj + 7 * wid + (2 * wid - 44) / 2
Printer.CurrentY = bj + 2 * a + (a - 11) / 2
Printer.Print "数    量"
Printer.CurrentX = bj + 7 * wid + (wid - 22) / 2
Printer.CurrentY = bj + 2 * a + (2 * a - 11) / 2 + a
Printer.Print "原发"
Printer.CurrentX = bj + 8 * wid + (wid - 22) / 2
Printer.CurrentY = bj + 2 * a + (2 * a - 11) / 2 + a
Printer.Print "实收"
Printer.CurrentX = bj + 9 * wid + (3 * wid - 77) / 2
Printer.CurrentY = bj + 2 * a + (a - 11) / 2
Printer.Print "按帐单价格表现"
Printer.CurrentX = bj + 9 * wid + (2 * wid - 44) / 2
Printer.CurrentY = bj + 2 * a + (2 * a - 11) / 2 + a
Printer.Print "总    额"
Printer.CurrentX = bj + 11 * wid + 2
Printer.CurrentY = bj + 2 * a + (a - 11) / 2 + a
Printer.Print "其中："
Printer.CurrentX = bj + 11 * wid + wid - 33 - 4
Printer.CurrentY = bj + 2 * a + (a - 11) / 2 + 2 * a
Printer.Print "运什费"
'-----------------------------------------表的框架-----------------------------

Answer 4

http://202.98.116.66/amtd/taishan/index.html  有个代码

Answer 5

http://www.dapha.net/vb/list.asp?id=1735

Answer 6

我觉得输出到EXCEL中比较方便