打印问题求助!!
最近帮单位编了一个程序，有一个问题解决不了，请高手指点，一个打印表单，打印按钮的“单击”代码为public abcd3,abci
if thisform.check1.value=1
wtzy="雾天作业，注意安全!"
else
wtzy=" "
endif
if thisform.spinner1.value<1
messagebox ("请您输入打印份数：",0+48)
else
ss=messagebox("您确实要打印计划吗？",4+32)
if ss=6
private dyfs as integer
dyfs=thisform.spinner1.value
SELECT gjhbt
jhbh=gjhbt.计划号
fname="jh"+ltrim(str(jhbh,2))
select gjhnl
append from gjhdata\&fname..dbf
sele gjhfmzy
go 1
do while not eof()
*selec gjhfmzy
abci=trim(gjhfmzy.股道)
sele gjhnl
loca for trim(gjhnl.股道)=trim(abci)
if found()
abcd3="**反面指挥作业，注意安全**"
exit
else
abcd3=" "
endif
sele gjhfmzy
skip 1
enddo
gjhnlsum=reccount()
select gjhbt
QQ = trim(gjhbt.起时)
ZZ = trim(gjhbt.终时)
if (val(QQ)>=0.and.val(QQ)<=24).and.(val(ZZ)>=0.and.val(ZZ)<=24)
if val(QQ)<=val(ZZ)
select lccc1
append from zd\lccc.dbf for val(trim(开点))>=val(QQ).and.val(trim(开点))<=val(ZZ)
else
* if (val(lccc.开点)>=val(QQ).and.val(lccc.开点)<=24) or val(lccc.开点)<=val(ZZ)
select lccc1
append from zd\lccc.dbf for val(trim(开点))>=val(QQ).and.val(trim(开点))<=24.or.val(trim(开点))>=0.and.val(trim(开点))<=val(ZZ)
*endif
endif
endif
select lccc1
lcccsum=recc()
private k as integer
for k = 1 to dyfs step 1
do gjhdy.prg
endfor
thisform.release
close all
use gjh!gjhnl
dele all
pack
use gjh!lccc1
dele all
pack
endif
endif
中间调用了gjhdy.prg程序，该程序的代码为
tt = TRIM(gjhtt)
dyfs = 1
DO WHILE dyfs > 0
SET PRINTER ON
SET CONSOLE OFF
SET HEADING OFF
dyfs = dyfs - 1
SELECT gjhcz
NCOL = 57
AA = TRIM(站名)
ZM = TRIM(AA + '站调车作业通知单')
SELECT gjhbt
QQ = gjhbt.起时
BB = gjhbt.终时
ST0=' '+wtzy+' '+abcd3
ST1 = ' 编号: ' + STR(gjhbt.计划号,2)
ST2 =SPACE(6) +'日期：' + DTOC(gjhbt.日期) + ' ' + '机车：' + TRIM(gjhbt.机号) + ;
' 调车组别：' + TRIM(gjhbt.班组)
ST3 = ' 自 ' + QQ + ' 至 ' + BB
ROW1 = '┏━━━┯━━┯━━┯━━━━━━━━━━━━━━━━┓'
ROW2 = '┃ 股道 │作业│辆数│ 记 事 ┃'
ROW3 = '┠───┼──┼──┼────────────────┨'
ROW3A = '┠──┼──┼──┼─────────────────┨'
ROW3B = '┃ │ │ │ ┃'
ROW4 = '┗━━━┷━━┷━━┷━━━━━━━━━━━━━━━━┛'
ROW5 = ' 调车区长签字: 值班员签字: '
?st0
??SPACE(6)+st0
? ' ' + ZM FONT '宋体' , 16
?? ST1
?? ' ' + ZM AT 26 FONT '宋体' , 16
?? ST1
? ST2
?? ST2 AT 58
? ST3
?? ST3 AT 62
IF .NOT. (tt == '')
?
FOR I = 1 TO LEN(tt)
IF MOD(I,52) = 0
?? SUBSTR(tt,I,1) AT 52
?? SUBSTR(tt,I,1) AT NCOL + 52
?
ELSE
?? SUBSTR(tt,I,1) AT MOD(I,52)
?? SUBSTR(tt,I,1) AT MOD(I,52) + NCOL
ENDIF
ENDFOR
ENDIF
? ROW1
?? ROW1 AT NCOL
? ROW2
?? ROW2 AT NCOL
? ROW3
?? ROW3 AT NCOL
SELECT gjhnl
GO TOP
DO WHILE .NOT. EOF()
IF (6 - LEN(gjhnl.股道) > 0)
GD = gjhnl.股道 + SPACE(4 - LEN(gjhnl.股道))
ELSE
GD = SUBSTR(gjhnl.股道,1,6)
ENDIF
IF (4 - LEN(gjhnl.作业) > 0)
ZY = gjhnl.作业 + SPACE(4 - LEN(gjhnl.作业))
ELSE
ZY = SUBSTR(gjhnl.作业,1,4)
ENDIF
IF (4 - LEN(gjhnl.辆数) > 0)
LS = gjhnl.辆数 + SPACE(4 - LEN(gjhnl.辆数))
ELSE
LS = SUBSTR(gjhnl.辆数,1,4)
ENDIF
IF (35 - LEN(gjhnl.记事) > 0)
JS = gjhnl.记事 + SPACE(35 - LEN(gjhnl.记事))
ELSE
JS = SUBSTR(gjhnl.记事,1,35)
ENDIF
? ROW3B
?? ROW3B AT NCOL
selec gjhfmzy
loca for trim(股道)=trim(gjhnl.股道)
if found()
?? GD AT 2 FONT '黑体',9
?? ZY AT 11 FONT '黑体',9
?? LS AT 17 FONT '黑体',9
?? JS AT 22 FONT '黑体',9
?? GD AT NCOL + 2 FONT '黑体',9
?? ZY AT NCOL + 11 FONT '黑体',9
?? LS AT NCOL + 17 FONT '黑体',9
?? JS AT NCOL + 22 FONT '黑体',9
else
?? GD AT 2
?? ZY AT 11
?? LS AT 17
?? JS AT 22
?? GD AT NCOL + 2
?? ZY AT NCOL + 11
?? LS AT NCOL + 17
?? JS AT NCOL + 22
endif
select gjhnl
SKIP
*IF RECNO() <= RECCOUNT()
IF RECNO() > RECCOUNT()
* ? ROW3A
* ?? ROW3A AT NCOL
* ELSE
? ROW4
?? ROW4 AT NCOL
ENDIF
ENDDO
? ROW5
?? ROW5 AT NCOL
ENDDO
?
? space(3)+"客车车次:"+space(48)+"客车车次:"
select lccc1
coun to oo
if oo#0.and.mod(oo,2)#0
go 1
scat to ll
appe blank
go oo+1
gather from ll
endif
cc=""
dd=""
ee=""
go top
do while .not.eof()
aaa=0
fff=""
do while aaa<2
if val(trim(lccc1.到点))>0
ee=space(3)+lccc1.车次+":"+lccc1.到点+"到"+lccc1.开点+"开"+space(2)
else
ee=space(3)+lccc1.车次+":"+lccc1.开点+"通"+space(9)
endif
fff=fff+ee
aaa=aaa+1
skip
if eof()
exit
endif
enddo
?fff+space(7)+fff
enddo
?
?
RETURN
存在的问题是，我点击了打印按钮后，只会形成一下等待打印的文档，不打印，把主程序开闭后，才开始打印，这是怎么回事，请高手指点，急盼。谢谢!!
