Hi Evelyn,
You can use @say commands if you dont have graphics on your report,but no need to send to text file, check this.
Sample :
messagebox("Please insert documents to Print.",0+64,"Payment Validation")
Select("Control")
_type = control.type
_station_no = control.station_no
_machine_no = control.machine_no
_user_code = Control.user_code
_last_or = Control.last_or
Set Device to print
@ 44, 62 Say _type+" "+"MC"+" "+_machine_no+" "+"ST"+" "+_station_no+" "+"OP"+" "+_user_code
@ 45, 62 Say "ACCOUNT NO : "+ xAcct_no
store alltrim(str(day(date()))) to _day
Store 0 to dayc
_dayc = alltrim(str(dayc))
_year = year(date())
If len(_day) = 1
@ 46,62 say _dayc
@ 46,63 say _day
else
@ 46,62 say _day
Endif
store alltrim(str(month(date()))) to _month
Store 0 to monthz
_monthc=alltrim(str(monthz))
If len(_month) = 1
@ 46,64 say _monthc
@ 46,65 say _month
else
@ 46,64 say _month
Endif
@ 46,66 Say right(str(year(date()),4),2)
*@ 46, 62 Say STR(day(Dat()),2)+ltrim(Str(Month(Date()),2))+Str(Year(Date()),4)
Select("Or")
If newor = 0
@ 46,69 Say _neworc+" "+Xbill_code
else
@ 46,69 Say _Pneworc+" "+Xbill_code
Endif
*@ 56, 72 Say "B$"+ltrim(str(xcash_amt,"99,999,999.99"))&&&+" "+xpay_code
_bayad_niya = padl(Alltrim(str(xcash_amt)),14,'*') && 15
@ 46, 79 Say _bayad_niya &&xcash_amt
@ 46, 94 say xpay_code
&&&& Customers Receipt Validation Portion (Cashier Copy)
@ 48, 62 Say _type+" "+"MC"+" "+_machine_no+" "+"ST"+" "+_station_no+" "+"OP"+" "+_user_code
@ 49, 62 Say "ACCOUNT NO : "+ xAcct_no
store alltrim(str(day(date()))) to _day
Store 0 to dayc
_dayc = alltrim(str(dayc))
If len(_day) = 1
@ 50,62 say _dayc
@ 50,63 say _day
else
@ 50,62 say _day
Endif
*? alltrim(str(month(date())))
store alltrim(str(month(date()))) to _month
Store 0 to monthz
_monthc = alltrim(str(monthz))
If len(_month) = 1
@ 50,64 say _monthc
@ 50,65 say _month
else
@ 50,64 say _month
Endif
_year = year(date())
@ 50,66 Say right(str(year(date()),4),2)
*/*@ 50, 62 Say STR(day(Date()),2)+ltrim(Str(Month(Date()),2))+Str(Year(Date()),2)
Select("Or")
If newor = 0
@ 50,69 Say _neworc+" "+Xbill_code
else
@ 50,69 Say _Pneworc+" "+Xbill_code
Endif
*@ 56, 72 Say "B$"+ltrim(str(xcash_amt,"99,999,999.99"))&&&+" "+xpay_code
_bayad_niya = padl(Alltrim(str(xcash_amt)),14,'*') && 15
@ 50, 79 Say _bayad_niya &&xcash_amt
@ 50, 94 say xpay_code
Set Print to
Set Device to Screen
This code will print faster than when using report designer.
Or you can set the printer to print in draft mode to make it faster..
Best Regards,
Jojo R. dela Cuesta
Dalplus Technologies
http://www.dalplus.com