Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Vfp50 - Do you know about ??CHR(27)+'*p0Y'
Message
De
16/07/1997 09:30:55
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00040071
Message ID:
00040206
Vues:
57
>>thanks Jim for answering.. I can not use the Generic Text printer driver, I must
>>use the HP driver. Let me tell you what I am trying to do...
>>I am trying to open an .frm file and stuff it will DATA from a table
>>and print it out. Both the FRM and the DATA needs to print out at the
>>same time. Let me show you my code:
>>
>>* for HP III/IV
>>m.brksz=1000
>>m.jfile=FOPEN('myformfile.frm')
>>m.sz = FSEEK(m.jfile,0,2)
>>=FSEEK(m.jfile,0)
>>m.ct=(m.sz/m.brksz)+1
>>FOR xxx = 1 TO m.ct
>> l_string=FREAD(m.jfile,m.brksz)
>> ??? l_string
>> ENDFOR
>>=FCLOSE(m.jfile)
>>
>>SET PRINTER ON
>>SET CONSOLE OFF
>>SET TALK OFF
>>?? CHR(27)+'(10U'+CHR(27)+'(s0p12.00h10.0v0s0b3T'
>>?? CHR(27)+'*p0X'
>>?? CHR(27)+'*p0Y'
>>=xy_offset(150,812)
>>?? 'test by rob'
>>?? CHR(27)+'E'
>>SET CONSOLE ON
>>SET PRINTER OFF
>>
>>
>>FUNCTION xy_offset
>>PARAMETER nx,ny
>>PRIVATE x,y
>> xoffset=0
>> yoffset=0
>> x=STR(nx+xoffset)
>> y=STR(ny+yoffset)
>> ?? CHR(27)+'*p'+ALLTRIM(x)+'X'
>> ?? CHR(27)+'*p'+ALLTRIM(y)+'Y'
>>RETURN
>>You are right, it works great in DOS, but I need to it work in vfp50 in win95.
>>any ideas?
>
>Rob, check out the ??? (3 question marks) command which tells the printer "this is a printer code" instead of the ? and ?? commands which say "Print this stuff"
>
>HTH
>Barbara

thanks Barbara...rob
Robert Keith
Independent Developer
San Antonio, Texas
E-mail address:
rebelrob1@yahoo.com
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform