Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Vfp50 - Do you know about ??CHR(27)+'*p0Y'
Message
 
À
15/07/1997 16:04:11
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00040071
Message ID:
00040126
Vues:
53
>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
Barbara Paltiel, Paltiel Inc.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform