Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Goma Ram
  Where is Goma Ram?
 
 Oman
 Goma Ram
 Tags
Subject: printing issue
Thread ID: 393884 Message ID: 393884 # Views: 50 # Ratings: 0
Version: Visual FoxPro 6 Category: Reports and Printers
Date: Wednesday, December 25, 2013 8:44:24 AM         
   


Dear All

I had use below codes for printing of bar code and it working fine with 32bit, but where in 64 i get error for ! RUn command.

Please see below codes and help how to use with Windows 8 (64bit)

PROC barc_ACC
sele Aaitem
xxitem = item
xxdesc = desc
xxrepr = repr
xxpcode = " "
xxqty = 1
xxprice = 'Yes-All '
define wind xxbcode from 10,10 to 15,50
acti wind xxbcode
@ 01,01 say 'Number of Bar Code : '
@ 02,01 say 'Print Price-Yes/No : '
@ 01,25 get xxqty pict '999'
@ 02,25 get xxprice pict '@M Yes-All, Yes-Price, Yes-Code, No-All'
read
rele wind xxbcode
IF READ() = 12 .OR. READ() = 268
retu
ENDIF
set step on
SET PRINT TO c:\L_code.txt
SET Print On
SET cons off
?'N'
?'q202'
?'Q130,24'
?'JB'
?'D9'
?'S2'
?'O'
do case
case xxprice='Yes-All'
?'A12,8,0,2,1,2,N,"'+STR(xxRepr,7,3)+'-'+ALLT(xxPcode)+'"'
case xxprice='Yes-Price'
?'A12,8,0,2,1,2,N,"'+STR(xxRepr,7,3)+'"'
case xxprice='Yes-Code'
?'A12,8,0,2,1,2,N,"'+ALLT(xxPcode)+'"'
endcase
?'B12,40,0,1,1,2,41,B,"'+ALLT(xxitem)+'"'
?'P1,'+ALLT(str(xxQTY))
SET print off
SET print to
SET cons on
! type c:\l_code.txt >prn && this line getting error
sele aaitem
RETU

ENTIRE THREAD

printing issue Posted by Goma Ram @ 12/25/2013 8:44:24 AM
RE: printing issue Posted by Tore Bleken @ 12/25/2013 11:33:46 AM
RE: printing issue Posted by Goma Ram @ 12/25/2013 12:08:42 PM
RE: printing issue Posted by Tore Bleken @ 12/25/2013 1:47:00 PM