Error con Dosprint
Posted: Mon Jun 09, 2008 5:13 pm
Hola,
Cuando usaba dosprint en fw16 lo asi de esa forma :
FUNCTION r2ecibo(caps,odlg2)
MEMVAR BAND
memvar tec
memvar tit
LOCAL oPrinter
LOCAL CONTADOR := 1
LOCAL I :=0
local tot:=0
LOCAL cPort := "LPT1" /* "\\SERVIDOR\EPSON" */
LOCAL CNOMBRE
local cnum:=800
local veces:=0
local cdirec
local eles:=array(9)
local Y:=0
DEFINE DOS PRINTER oPrinter ;
PORT cPort ;
PRINTER "EPSON"
SET FONT CPICompress OF oPrinter WIDTH 73 LEFT 5
@ 6,39 SAY CHR(18)+"800.00" of oprinter
@ 8,19 say CHR(18)+"FRANCISCO GARIBAY" OF oprinter
y todo salia bien, pero ahora con FWH al momento de corrrer me marca el siguiente error:
ath and name: C:\fwh\rafaelos\rafaelos.Exe (32 bits)
Size: 654,848 bytes
Time from start: 0 hours 0 mins 1 secs
Error occurred at: 09/06/2008, 09:41:56
Error description: Error BASE/1605 Invalid self: NEW
Args:
[ 1] = O Object
[ 2] = U
Stack Calls
===========
Called from: DOSPRINT.PRG => TDOSPRINT:NEW(442)
alguna idea ???
gracias
Cuando usaba dosprint en fw16 lo asi de esa forma :
FUNCTION r2ecibo(caps,odlg2)
MEMVAR BAND
memvar tec
memvar tit
LOCAL oPrinter
LOCAL CONTADOR := 1
LOCAL I :=0
local tot:=0
LOCAL cPort := "LPT1" /* "\\SERVIDOR\EPSON" */
LOCAL CNOMBRE
local cnum:=800
local veces:=0
local cdirec
local eles:=array(9)
local Y:=0
DEFINE DOS PRINTER oPrinter ;
PORT cPort ;
PRINTER "EPSON"
SET FONT CPICompress OF oPrinter WIDTH 73 LEFT 5
@ 6,39 SAY CHR(18)+"800.00" of oprinter
@ 8,19 say CHR(18)+"FRANCISCO GARIBAY" OF oprinter
y todo salia bien, pero ahora con FWH al momento de corrrer me marca el siguiente error:
ath and name: C:\fwh\rafaelos\rafaelos.Exe (32 bits)
Size: 654,848 bytes
Time from start: 0 hours 0 mins 1 secs
Error occurred at: 09/06/2008, 09:41:56
Error description: Error BASE/1605 Invalid self: NEW
Args:
[ 1] = O Object
[ 2] = U
Stack Calls
===========
Called from: DOSPRINT.PRG => TDOSPRINT:NEW(442)
alguna idea ???
gracias