这样的报表的怎么打印

[xiaochongzi630]

药 方
姓名：XXX 性别：男 年龄：50

药品名称： 数量：
XXXX 30
XXXX 30
XXXX 30
XXXX 30
XXXX 30
XXXX 30
XXXX 30
XXXX 30

总金额：XXX元 日期：XX年XX月XX日


用VB6自带的datareport控件，如何控制纸张的大小，我想让上面这个报表打出来只是一小条，而不是整个的一张A4的纸，打出来以后就像是在医院里开的药方一样，一条纸，大约是A4纸横过来的三分之一吧，这个该如何实现啊，谢谢了

[xcpin]

定义一个打印函数,然后逐条记录进行打印,函数如下:
Private Sub prnt(X As Integer, Y As Integer, str As String)
Printer.CurrentX = X
Printer.CurrentY = Y
Printer.ScaleMode = 6
Printer.font.Name = "黑体"
Printer.font.Size = 14
Printer.Print str
End Sub

[alanshel]

俺也是做医院系统的,欢迎你和俺联系..呵呵
这个俺已经做好了.
Q 184442259

[yuvotesyg518]

通过设置DataReport的ReportWidth、LeftMargin、RightMargin、BottomMargin、TopMargin这些属性可以设置报表的大小。

需要注意的是，设置这些值的时候应十分细心，否则容易出错。

[huacha]

http://www.wave12.com/web/SigCon.asp?bCate=50&sCateName=%B9%A6%C4%DC%BD%E9%C9%DC&ID=173&CateName=wsReport4.5