发信人: geng_sm()
整理人: leitiger(2002-06-11 11:21:36), 站内信件
|
【 在 leton (leton) 的大作中提到: 】
String ls_data
String ls_PrintText
Long ll_PrintJob
Integer li_Length = 50
Integer i = 0
ls_data = mle_1.text
ll_PrintJob = PrintOpen()
ls_PrintText = Left(ls_Data, li_Length)
DO While Len(ls_PrintText) > 0
Print(ll_PrintJob, 1, ls_PrintText)
i ++
ls_PrintText = Mid(ls_Data, i * li_Length, li_Length)
LOOP
PrintClose(ll_PrintJob)
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.96.135.116]
|
|