向大家求助，如何设计打印报表，使打出的报表类似存款单据，一定重谢

[ozarkgirl]

如何设计这样的报表，如果方便请您给出相应的代码，一定重谢一定给分~~谢谢

[ozarkgirl]

首先在此感谢richerd2001预览没问题了，那张图片成为了背景底图，可时打印出来还是什么都没有啊？我用的是黑白激光打印机，谢谢赐教

[Richard2001]

我的程序不打印图片。只是个例子。
打印内容及格式要你自己写。

[Richard2001]

自己做个打印控件吧。

[ozarkgirl]

怎么做啊？那什么做啊？需要什么工具？谢谢richard2001,请您在指点指点~~谢谢：）

[Richard2001]

VB就可以做。
如：
Printer.Line ... '画线
Printer.Print "报表" '打印字符串
...

[ozarkgirl]

哇赛~~~Richard2001你好厉害啊~~~那我要是画个矩形呢？线的长度怎样标出呢？能否插入图片？您就高抬贵手，多给我些代码吧~~~~~谢谢，谢谢您了

[sunny1204]

可以用ActiveReport 2.0

还可以用Printer对象里面的Line方法Print

[ozarkgirl]

那我可不可以这样呢？先创建一个窗体，在窗体上面布置好以后，用Me.PrintForm来打印这个窗体，打印时能否去掉窗体框（就是那个渐变的色条）呢？

[Richard2001]

等一下。我给你例子。

[ozarkgirl]

实在是太感谢了Richard2001，谢谢你：）

[ozarkgirl]

实在是太感谢了Richard2001，谢谢你：）

[Richard2001]

可以做个简单的预览和打印功能：
你在Form中间加一个PictureBox,设Appearance=0,大小比例与一张打印纸相似。
再加两个按钮：“预览“(Preview)和“打印“(Print)按钮。

Sub SetData(obj As Object)
If TypeOf obj Is Picture Then
obj.Cls
End If

On Error GoTo exit_data

Dim CX, CY, i, curY, curX
Dim StepRow, lColor, adjRowHeight, iBottomRight

lColor = obj.ForeColor
'首行显示公司名称
CX = 4
obj.Font.Bold = False
obj.Font.Size = 9
obj.CurrentY = CX
obj.CurrentX = obj.Width / 2 - obj.TextWidth("地球")
'obj.ForeColor = RGB(256, 0, 0)
obj.Print "地球公司"
StepRow = obj.TextHeight("A")
'标题
CX = CX + StepRow
obj.Font.Bold = True
obj.Font.Size = 2 * 9
obj.CurrentY = CX
obj.CurrentX = obj.Width / 2 - obj.TextWidth("存款")
obj.ForeColor = RGB(256, 0, 0) '红色
obj.Print "存款单据"
StepRow = obj.TextHeight("A")
'首部信息第一行
obj.ForeColor = lColor '恢复
CX = CX + StepRow
obj.Font.Bold = False
obj.Font.Size = 9
obj.CurrentY = CX: obj.CurrentX = 150
obj.Print "左"
obj.CurrentY = CX: obj.CurrentX = obj.Width / 2 - obj.TextWidth("中") / 2
obj.Print "中"
obj.CurrentY = CX: obj.CurrentX = obj.ScaleWidth - 150 - obj.TextWidth("右")
obj.Print "右"


'=================画行线=================
curY = CX + StepRow: curX = 150

For i = 1 To 5
If i = 1 Then
obj.DrawWidth = 2
Else
obj.DrawWidth = 1
End If
obj.Line (curX, curY)-(obj.ScaleWidth - 150, curY)
iBottomRight = curY
'~~~~~
adjRowHeight = obj.TextHeight("A") + 3
curY = curY + adjRowHeight + 4
Next

'=============画竖线=================
curY = CX + StepRow: curX = 150
For i = 1 To 2
obj.DrawWidth = 1
obj.Line (curX, curY)-(curX, iBottomRight)
curX = curX + obj.Width / 2 - obj.TextWidth("中") / 2
Next
obj.Line (obj.ScaleWidth - 150, curY)-(obj.ScaleWidth - 150, iBottomRight)

'==============打印数据==================
Dim str
str = "打印数据"
curY = CX + StepRow + ((adjRowHeight + 4) / 2) - obj.TextHeight("A") / 2
curX = (150 + obj.Width / 2) / 2 - obj.TextWidth(str) / 2
obj.CurrentY = curY
obj.CurrentX = curX
obj.Print str

'...

Exit Sub

exit_data:
MsgBox Error
Exit Sub
End Sub

Private Sub Preview_Click()
SetData Pic
End Sub

Private Sub Print_Click()
SetData Printer
Printer.EndDoc
End Sub

[Richard2001]

你在打印机上打印出来与你的预览对比一下吧。

[ozarkgirl]

打印可以就是一个表格，如果预览他报错说：“编译错误：ByRef参数类型不符”

[Richard2001]

没有吧？！我都通过了才给你的。
你新建个工程，把PictureBox名改为Pic,再试试。