Como hago para imprimir por paginas
Publicado por CLARA (3 intervenciones) el 07/08/2003 00:03:03
Alguien que me de una ayudita con este procedimiento ??????
Haber tengo el sgte procedimiento que me prestaron y lo he usado desde hace tiempo :
PARAMETER ARCHIVO
pmande=savescreen(10,16,17,69)
nomar:=STRTRAN( ARCHIVO,ALLTRIM( xvia )+\"\\\",\"\" )
cajita( 10,16,17,69,\"IMPRESION DE INFORMES\",\"W+/r\" )
store 1 to Pinicial
store 99999 to Pfinal
store \'P\' to destino
@ 13,20 SAY \"Pag. Inicial \" get Pinicial Pict \'99,999\'
@ 14,20 SAY \"Pag. Final \" get Pfinal Pict \'99,999\'
@ 15,20 SAY \"[P]antalla [I]mpresora [D]isco \" get destino pict \'!\'
@ 16,20 SAY \"Nombre de Archivo: \"+NOMAR COLOR \"W+/R\"
read
restscreen(10,16,17,69,pmande)
IF LASTKEY() == 27
return .f.
ENDIF
if pinicial=1 .and. pfinal = 99999
mpgsalida=\"\"
carchivo=archivo
else
bactpac := ALIAS()
MPGarchivo=gentemp()
MPGSALIDA=gentemp()
x1:={}
AADD(X1,{\"texto\",\"C\",254,0})
DBCREATE(\"&MPGarchivo\",X1)
use (mpgarchivo) new alias mpgarchivo
sele mpgarchivo
zap
append from (archivo) SDF
go top
if empty(texto)
delete
endif
MPGACTUAL=1
SET DEVICE TO PRINT
SET PRINT TO &mpgsalida
SET PRINT ON
SET CONSOLE Off
for i=1 to lastrec()
if mpgactual>=Pinicial .and. mpgactual<=pfinal
Haber tengo el sgte procedimiento que me prestaron y lo he usado desde hace tiempo :
PARAMETER ARCHIVO
pmande=savescreen(10,16,17,69)
nomar:=STRTRAN( ARCHIVO,ALLTRIM( xvia )+\"\\\",\"\" )
cajita( 10,16,17,69,\"IMPRESION DE INFORMES\",\"W+/r\" )
store 1 to Pinicial
store 99999 to Pfinal
store \'P\' to destino
@ 13,20 SAY \"Pag. Inicial \" get Pinicial Pict \'99,999\'
@ 14,20 SAY \"Pag. Final \" get Pfinal Pict \'99,999\'
@ 15,20 SAY \"[P]antalla [I]mpresora [D]isco \" get destino pict \'!\'
@ 16,20 SAY \"Nombre de Archivo: \"+NOMAR COLOR \"W+/R\"
read
restscreen(10,16,17,69,pmande)
IF LASTKEY() == 27
return .f.
ENDIF
if pinicial=1 .and. pfinal = 99999
mpgsalida=\"\"
carchivo=archivo
else
bactpac := ALIAS()
MPGarchivo=gentemp()
MPGSALIDA=gentemp()
x1:={}
AADD(X1,{\"texto\",\"C\",254,0})
DBCREATE(\"&MPGarchivo\",X1)
use (mpgarchivo) new alias mpgarchivo
sele mpgarchivo
zap
append from (archivo) SDF
go top
if empty(texto)
delete
endif
MPGACTUAL=1
SET DEVICE TO PRINT
SET PRINT TO &mpgsalida
SET PRINT ON
SET CONSOLE Off
for i=1 to lastrec()
if mpgactual>=Pinicial .and. mpgactual<=pfinal
Valora esta pregunta
0