使用PRINTER,以下是最简单的形式: 1.定义新模块: public sub Print_Data dim a as string dim data1 as string dim data2 as string if form1.dbgrid1.bof=false then form1.dbgrid1.recordset.movefirst do until form1.dbgrid1.eof data1=form1.dbgrid1.recordset.field("data1").value data2=form1.dbgrid1.recordset.field("data2").value '把所有的项都进行付值 printer.print data1 & " " data2 loop end if end doc end sub2.在相应的FORM中加一个按钮,按钮CLICK属性代码: call Print_Data
printer.paintpicture mshflexgrid1.picture,1000,2000
printer.enddoc
其中1000,2000是打印机坐标。
1.定义新模块:
public sub Print_Data
dim a as string
dim data1 as string
dim data2 as string if form1.dbgrid1.bof=false then
form1.dbgrid1.recordset.movefirst
do until form1.dbgrid1.eof
data1=form1.dbgrid1.recordset.field("data1").value
data2=form1.dbgrid1.recordset.field("data2").value
'把所有的项都进行付值
printer.print data1 & " " data2
loop
end if
end doc
end sub2.在相应的FORM中加一个按钮,按钮CLICK属性代码:
call Print_Data