谁能帮我做一个软件,要求输出固定格式到一分米宽的打孔纸上
①XXXXXXX收费凭据
学号： 姓名： 班级：
出勤天数：
留园天数： 当前日期
————————————————————————
收费项目 金额 退费项目 金额
————————————————————————
托费： 退伙食费：
②代收留园费： 退其他费：
③代收伙食费： 退费合计：
④代收保健费：
⑤其他：
收费合计： 实收金额：
————————————————————————
具体说明:
其中①为单位名称，可以更改
②③④留园费伙食费保健费能设置初始值。例如代收留园费=留园费*留园天数,其他依此类推。
⑤其他这一项要求为一个下拉列框，分别为书费，旅游费，其他，退其他费同⑤。
实收金额等于收费合计减去退费合计
要求打印输出到高7CM长10CM的打孔纸上。这个是核心部分
其他要求：
录入的数据以班级为查询关键字
生成报表，可打印输出，报表格式为如下：
X月份停膳登记表
班级：
学号姓名12345。。。。。。2728293031备注
输出介质为普通A4纸，横向输出,其中1到31是一月的天数,篇幅所限，只能这么说了
有细节不能确定的可商量咨询，这个软件的核心是打印输出收费凭据的格式到撕边打孔纸上。
QQ:37614986
谁能帮忙吗?因为在CSDN找到上传文件的地方,只好COPY了,排版乱七八糟的
有意的联系我,我发WORD给你
[解决办法]
参考以下的定位打印代码：
Option Explicit
Dim x As Integer
Dim y As Integer
Dim fnt As Byte
Dim txt As String
Dim dd As Variant
Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt As Variant)
Printer.CurrentX = x
Printer.CurrentY = y
Printer.FontSize = fnt
Printer.Print txt
End Function
Private Sub Command1_Click() '打印字符串
Printer.FontSize = 36
Printer.Print "This is the first line of text in a pair. "
Printer.Print "This is the second line of text in a pair. "
Printer.EndDoc
End Sub
Private Sub Command3_Click() '打印文本内容
fnt = 16
x = 100
y = 100
txt = Text1
dd = prnt(x, y, fnt, txt)
Printer.EndDoc
End Sub
Private Sub Form_Load()
Text1 = "打印 "
End Sub
